Prozess im Makrorecorder in Nachgang anpassen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
die Implementierung in deinen Code würde so aussehen.
zu beachten wäre, dass man die letzte Befüllte Zeile in einer Spalte ermitteln muss, die auch Daten enthält.
btw, wenn man für den Recorder Zellen kopiert und einfügt, sollte man tatsächich das Excelspezifische "Inhalte Einfügen" des Kontextmenüs verwenden und das Einfügen über die Tasten EINFG oder STRG+V. (das sollte man eher für nicht Excelspezifische Inhalte verwenden, wie Bilder).
also in deinem Fall würde das vielleicht eher so aussehen:

Range("Y2").Copy
Range("Y2:Y" & Cells(Rows.Count, 1).End(xlup).Row).PasteSpecial xlpasteall

wenn man das öfters braucht, dann speichert man sich die Zeilennummer in einer Variablen, die man dann einfach verwenden kann:

dim LetzteZeile as long
LetzteZeile = Cells(Rows.count1, 1).end(xlup).Row
Range("y2").Copy
Range("y2:y" & letzteZeile).PasteSpecial xlpasteall

btw Formeln kann man auch gleich direkt in alle Zellen eintragen.
das entspricht der Vorgehensweise, erst alle Zellen zu markieren, dann die Formel einzutragen und die eingabe mit STRG+ENTER abzuschließen.
Ist etwas weniger aufwendig, als erst nur eine Zelle zu befüllen und dann zu kopieren.
dh statt

Range("Y2").Formula = "=U2+Y2*W2"
Range("Y2").Copy
Range("Y2:Y1000").PasteSpecial xlpasteall

schreibt man

Range("Y2:Y1000").Formula = "=U2+Y2*W2"

Gruß Daniel

Vielen Dank für die Hilfe.
Ich probiere es gleich heute Abend aus!
Ja, die letzte Zeile brauche ich öfter....
um es kurzzufassen, habe ich eine Tabelle mit etwa 15 Spalten (die sind fest) und variablen Zeilen (500 - 40000) je nach Abfragegröße....
Die 15 Spalten sind nochmals unterschiedlich zu bearbeiten... z.B. 2. Ziffer der Zahl aus Spalte A multipliziert mit der 4. Ziffer aus Spalte C usw. --- also ganz wirr und verrückt.
Am Ende kommt eine Tabelle mit Zellen heraus, die mit der Ursprungstabelle nichts mehr zu tun hat...
Ich hab 11 Makros mit dem Makrorecorder aufgenommen und die werden jetzt nach und nach immer separat angeklickt.
Das ist mein bescheidenes Ergebnis, weil ich zum einen ganz am Anfang ALLES in einem Schritt im Makrorekorder aufgenommen habe, was mit die Meldung gab, dass es zu lang war.... und ich jetzt immer wieder an einzelnen Makros arbeiten kann, weil immer was nicht passt.
Jetzt will ich meine Makros etwas bearbeiten - zumindest in dem winzigen Umfang wie ich es verstehe und kann (was nicht viel ist) - und dann versuche ich die wieder zusammenzusetzen - in höchstens 3 Makros, damit man nicht so viel klicken muss. ...
Ihr seht.... das ist sehr sehr kompliziert für mich --- daher vielen Dank für die Hilfe!!!!
Ich bin wirklich über dieses Forum sehr sehr dankbar!!!!
Liebe Grüße Mel

Sub Letzte_Datenzeile() ' Aufruf mit Tabellenname und Spaltenindex MsgBox letzteDatenZeile("Kassabuch", 3) ' oder mit Codename der Tabelle und Spaltenbuchstaben MsgBox letzteDatenZeile(Tabelle1, "C") End Sub Public Function letzteDatenZeile(vWS As Variant, Optional Spalte As Variant = 1) As Long Dim wS As Worksheet On Error GoTo PROC_ERR Select Case UCase(TypeName(vWS)) Case "STRING" Set wS = Worksheets(vWS) Case "WORKSHEET" Set wS = vWS Case Else GoTo PROC_ERR End Select With wS letzteDatenZeile = .Cells(.Rows.Count, Spalte).End(xlUp).Row End With PROC_EXIT: Exit Function PROC_ERR: letzteDatenZeile = -1 Resume PROC_EXIT End Function

Beliebteste Forumthreads (12 Monate)

Prozess im Makrorecorder in Nachgang anpassen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread