Sub test()
Dim table As Worksheet, x As Long, y As Long, lngZeilen As Long
Set table = Worksheets("Tabelle1")
lngZeilen = table.Cells(table.Rows.Count, 1).End(xlUp).Row
For y = 1 To lngZeilen
If table.Cells(y, 1).Value Like "frankreic*" Or table.Cells(y, 1).Value Like "Frankreic*" And Not table.Cells(y, 2) = "" Then
x = x + 1
End If
Next y
Range("C2").Value = Range("C2").Value + x
End Sub
Die obige Prozedur wird aufgerufen über:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Call test
Application.EnableEvents = True
End Sub
Meine Frage: Wie kann ich denn noch erreichen, das bei Eingabe in eine Zelle auch zzgl. die Zahl "1" in die gleiche Zeile nur in einer anderen Position einfügt?
Vllt. so:
if ..then...End if
Next y
Range("C2").Value = Range("C2").Value + x
Range(y,x).Value=1
Ich hoffe auf mein Problem ist so verständlich :) ...Danke im Voraus für Hilfen!
Gruß Sino