---

Hallo,
ich komme einfach nicht dahinter.

In einer Zelle (A) können Werte gewählt werden. bei bestimmten Werten,
werden die darunter liegenden Zeilen eingblenden, wo etwas eingegeben
werden kann, wird in (A) etwas bestimmtes gewählt so werden die
Zeilene wieder ausgeblendet.
Hier kommt mein Problem:
Es soll so sein, das wenn die zeilen ausgeblendet werde, diese wieder in den urschprungszustand versetzt werden werden.
Ich hab es bereit so versucht z.B.:

Code:

---

If Range("A1").EntireRow.Hidden = true Then
  Range("A1").Value = "xyz"            'Text in Zelle
end if

---

Wenn ich es nun ausprobiere so flackert mein Bild und Excel rechnet und rechnet und usw.

Was mach ich falsch.

------------------
  Ich nutze Boardsuche | Google | Netiquette

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin.

In welchem Ereignis lässt Du denn deine Wenn-Funktion laufen?

Grüße, Ole

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von okl:
Moin.

In welchem Ereignis lässt Du denn deine Wenn-Funktion laufen?

Grüße, Ole

---

Ist das gemeint?

Code:

---

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
end sub

---

------------------
  Ich nutze Boardsuche | Google | Netiquette

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Der Code so aus:

Code:

---

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
    If Range("A1").Value = "1" Or _
        Range("A1").Value = "2" Then            '... bestimmter Text in Zelle ("...")
        Range("A2").EntireRow.Hidden = False    'Zeilenbereich nicht ausblenden
    Else             
        Range("A2").EntireRow.Hidden = True      'Zeilenbereich ausblenden
        '[hier soll die Zelle A2 mit einem bestimmten Wert "XYZ" gefüllt werden]
    End If
Application.ScreenUpdating = true
End Sub

---

------------------
  Ich nutze Boardsuche | Google | Netiquette

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code:

---

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Application.ScreenUpdating = False
    If Target.Cells.AddressLocal = "$A$1" Then
        If Range("A1").Value = "1" Or Range("A1").Value = "2" Then                    '... bestimmter Text in Zelle ("...")
            Range("A2").EntireRow.Hidden = False    'Zeilenbereich nicht ausblenden
      Else
            Range("A2").EntireRow.Hidden = True      'Zeilenbereich ausblenden
            Range("A2").Value = "xyz"
            '[hier soll die Zelle A2 mit einem bestimmten Wert "XYZ" gefüllt werden]
        End If
    End If
    Application.ScreenUpdating = True
End Sub

---

läuft bei mir hevorragend.

Grüße, Ole

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
super läuft bei mir auch so super.

Code:

---

If Target.Cells.AddressLocal = "$A$1" Then

---

Hier wird die bestimmte celle abgefragt. Ich habe meinen Zellen Namen gegeben.
Also Zelle A1 heist z.B. TEST. Wie sieht dann die Zeile aus?

------------------
  Ich nutze Boardsuche | Google | Netiquette

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo AndreasBo,

probier mal

Code:

---

If Target.Cells.AddressLocal = Range("Test") Then

---

[Edit: Evtl. noch ein .Address / .AddressLocal daranhängen... /Edit]

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

[Diese Nachricht wurde von Paulchen am 19. Jun. 2009 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

vielen Dank Paulchen. Die Zeile lautet so richtig.

Code:

---

If Target.Cells.AddressLocal = Range("TEST").Address

---

------------------
  Ich nutze Boardsuche | Google | Netiquette

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP