Registriert seit: 02.12.2017
Version(en): Office 365
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Anfangszeile = 17
Endzeile = 26
For D = Anfangszeile To Endzeile
If Cells(D, 1).Value = "" Then
Rows(D).Hidden = True
End If
Next
End Sub
Versuchs mal damit das is einfacher... um den Bereich zu verändern muss du einfach die Anfangszeile und Endzeile anpassen!
Eine Menge reden, aber nichts sagen können viele...
Registriert seit: 29.09.2015
Version(en): 2030,5
@Frog:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
range("D17:D26").specialcells(4).entirerow.hidden =true
End Sub
Registriert seit: 25.08.2016
Version(en): 2010
Erstmal Danke für eure Mühen!
Leider funktionieren beide nicht so richtig - zumindest für meine Anforderungen.
Beim Code von Frog kann ich jeweils nur einen Betrag (in Zeile H9 - H11) eingeben - bei einem zweiten wird nichts mehr generiert.
Beim Code von snb werden nur die Zeilen 18 - 20 angezeigt, nicht ab die Zeilen 22 - 24
Bei beiden Codes habe ich ebenfalls das Problem, das diese beim löschen des Betrags (in Zeile H9 - H11) nicht neu starten - sprich, ich kann nur einmal eine Eingabe machen, und muss bei Veränderungen die Datei neu starten.
Gibt es evtl. noch eine andere Möglichkeit?
VG
Paul
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
den beiden letzten codes ist egal, was in H9:H11 passiert. Der eine interessiert sich dafür, was in A17:A26 steht, der andere für D17:D26.
Wenn Du in diesen Zellen nix änderst, bemerkst Du auch nicht, dass der Code ausgeführt wird.
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:1 Nutzer sagt Danke an schauan für diesen Beitrag 28
• Frogger1986