wenn kein wert in Zelle, dann weitere zelle prüfen
09.05.2014 13:27:35
Maik
ich brauche hilfe, wie ich in meinem kleinen code dem rechner sagen kann, dass er nach prüfung von r13, bei nicht leerer zelle zusätzlich zur nächsten zelle springt und diese ebenfalls überprüft.
sprich bei r13 und e13 sollte die 13 eine variable sein und hochzählen, bis die abbruchbedinung erfüllt ist.
Option Explicit
Sub test()
If Tabelle1.[r13] = "" Then
Else
Dim text As String
text = Tabelle1.[r13]
With Tabelle1.[e13]
.AddComment (text)
End With
End If
End Sub