Ich bin im Moment an einem umfangreichen Makro und brauche bei einer Schleife eure Hilfe. :)
Ich habe eine Tabelle, bei der ich jede Zeile abarbeiten möchte. Die Schleife dazu habe ich angepasst, dass würde auch funktionieren.
Nun kommt die Schwierigkeit:
In der Spalte C;H habe ich entweder in einer Zelle einen Wert oder in mehr als einer Zelle einen Wert.
Nun soll geprüft werden, ob nur dieser eine Wert vorhanden ist oder mehrere Werte.
Wenn nur ein Wert vorhanden ist, soll dieser in die Spalte M geschrieben werden, bei mehr als einem Wert soll ein Fehler ausgegeben werden.
Vorlage für die Schleife:
Sub Test()
Dim i As Integer
i = 1
Do While Not Cells(i, 1) = ""
If Cells(i, 1) > 5 Then Cells(i, 2) = 10
i = i + 1
Loop
End Sub
Als Beispiel habe ich noch eine kleine Datei angehängt. Hoffe es ist einigermassen verständlich.
Vielen Dank für eure Tipps.
Grüsse
JP