Codeanpassung
21.08.2006 19:05:50
Dirk
nachfolgenden Code habe ich mit Hilfe des Forums gebastelt:
Private Sub CommandButton1_Click() 'fuer Button Aktualisieren
'Sub NurAktiv()
Dim lRow As Long, lRowT As Long
Range("Y9:Y22").Value = "x"
lRowT = 8
For lRow = 9 To 22
If Cells(lRow, 24).Value = "aktiv" Then
If Not IsEmpty(Cells(lRow, 20)) Then
lRowT = lRowT + 1
Cells(lRowT, 25).Value = Cells(lRow, 20).Value
End If
End If
Next lRow
End Sub
Doch nun habe ich am Anfang der Tabelle 2 SPALTEN eingefügt u. bekomme den Code nicht angepasst.
Kann mir jemand helfen - bisher schlugen alle meine Versuche fehl u. ich bin am Verzweifeln...
MfG Dirk N.