Liebe VBA-Gemeinde,
mein Code wächst langsam und stetig weiter und ich bin wieder auf ein Problem gestoßen bei dem ich eure Hilfe brauche. Es handelt sich um folgenden Code:
Private Sub bedingte_Zeilenlerrung()
'Abfrage, ob Änderung in Zelle C1 erfolgt ist, daraufhin Spalte T auf 0 setzen
'letzte beschriebene Zeile in Spalte T ermitteln
Dim lzeile As Long
lzeile = Cells(Rows.Count, 20).End(xlUp).Row
Application.ScreenUpdating = False
If Cells(1, 3).Value = "0" Then
Range("T12:"T"&lzeile").Value="0"
End If
Application.ScreenUpdating = True
End Sub
Das Problem im Code ist bei Range("T12:"T"&lzeile"). Wie bekomme ich den richtigen Bereich ausgewählt. Dieser soll von T12 bis zur letzten beschriebenen Zeile in Spalte T sein. Der zuvor dort eingetragene Wert soll überschrieben werden mit dem Wert 0.
Vielen Dank für die Hilfe. |