Wie kann ich nach einer Schleife daraus eine Konstante erstellen.
Nachdem ich diese Schleife durchlaufen habe, sind die Daten zB 5 weg.
Wie kann ich daraus eine Konstante erstellen. Das Ergebnis kann sich bei jedem aufruf ändern.
Danke
Sub SCHLEIFENDURCHLAUF()
Dim Konatante As Long
'*********** Letzte zelle *******************
Tabelle1.Select
Konstante = Range("a65536").End(xlUp).Row
MsgBox Konstante ' dient zur Kontrolle
' const = Range("a65536").End(xlUp).Row
'nächsterWert
' DATEN_HOLEN
End Sub