Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Daten von AN3 nach I3 kopieren Makro
Normale Version: Daten von AN3 nach I3 kopieren Makro
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

luna101

04.05.2021, 18:03
Hallo ihr fleissigen Helfer,
habe mit dem Makrorecorder ein Makro erstellen lassen, das mir Daten von AN3 nach I3 kopiert. Dies funktioniert, ist aber langsam.
Wie muss ich das Makro ändern, dass nur Spalte A3 bis letzte Zeile kopiert wird?
Es sind auch leerzeilen vorhanden und die Zeilenzahl ist verschieden.
Danke für eure Hilfe
Gruss Martin

Sub Makro1()
'
' Makro1 Makro
'
    Range("AN3:AN38").Select
    Selection.Copy
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 1
    Range("I3").Select
    ActiveSheet.Paste
End Sub

Werner.M

04.05.2021, 18:59
Hallo,

Code:
Public Sub aaa()
Dim loLetzte As Long

With Worksheets("Tabelle1")
    loLetzte = .Cells(.Rows.Count, "AN").End(xlUp).Row
    .Range("A3:A" & loLetzte).Value = .Range("AN3:AN" & loLetzte).Value
End With
   
End Sub

Gruß Werner

luna101

05.05.2021, 10:17
Hallo Werner. M
Danke für deine Hilfe. Fuktioniert 35
Gruss Martin
Clever-Excel-Forum > Office-Anwendungen > Excel > Daten von AN3 nach I3 kopieren Makro