Anzeige
Archiv - Navigation
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Aufgezeichnetes Makro ergänzen

Aufgezeichnetes Makro ergänzen
24.01.2004 15:44:15
Dieter
Hallo Forum, habe ein kopiervorgang aufgezeichnet möchte die Aufz. aber ergänzen.Und zwar das bei jedem Kopiervorgang im TB. "Sichern" die letzte leere Zeile gesucht wird und um 1 Zeile erhöht wird.
Das zwischen jeden Kopiervorgang jeweils 2 Leerzeilen um die ganze Sache
Übersichtlich zu halten.
Kann mir jemand dabei behilflich sein .Mein Dank im Vorraus.
MfG Dieter

Sub Makro1()
Range("A1:Z40").Select
Selection.Copy
Sheets("Sichern").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A2").Select
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aufgezeichnetes Makro ergänzen
24.01.2004 15:50:21
Ramses
Hallo
das sollte funktionieren


Sub Makro1()
Dim lRow As Long
Dim wks1 As Worksheet, wks2 As Worksheet
Set wks1 = Worksheets("Daten") 'wo die Daten stehen
Set wks2 = Worksheets("Sichern") 'wo sie hinsollen
'letzte Zeile bestimmen
lRow = wks2.Cells(65536, 1).End(xlUp).Row
'Daten kopieren
wks1.Range("A1:Z40").Copy
'Daten einfügen
wks2.Cells(lRow + 2, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
wks2.Cells(lRow + 2, 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruss Rainer
Anzeige
AW: Danke Rainer es hat gereicht o.T.
24.01.2004 16:11:25
Dieter
''
Merci :-) Geschlossen o.T.
24.01.2004 16:32:45
Ramses
...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige