VBA Offset funktioniert nicht
26.01.2017 14:11:08
Nils
ich habe folgendes Problem:
Beim Übertragen des Zelleninhaltes einer Tabelle funktioniert mein Offset-Befehl nicht.
Die Übertragung an sich geht, aber wenn ich einen zweiten Wert mit dem selben Makro übertragen will, springt er nicht in die daruntergelegene Zeile.
Hier mal mein Versuch:
Sub Uebertragen()
Sheets("Tabelle1").Select
Range("K67").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
Range("B207").Select
If ActiveCell = "" Or IsEmpty(ActiveCell.Value) Then
ActiveSheet.Paste
Else
Do Until ActiveCell = "" Or IsEmpty(ActiveCell.Value)
ActiveCell.Offset(RowOffset:=i, ColumnOffset:=0).Select
ActiveSheet.Paste
Exit Do
Loop
End If
End Sub
MfG Nils
Anzeige