Supportnet / Forum / Tabellenkalkulation

Hallo Gemeinde! Kann mir jemand sagen, wie ich Daten, die ich per Makro erfasse und kopiere, in die erste freie Zeile einer neuen Datei einfügen kann. Gruss Ines

Hallo Ines,

vielleicht kannst du meinen Tipp ja in VBA umsetzen. MIt der Tastenkombination STRG-Pfeil runter kommst du in die letzte benutze Zeile der entsprechenden Spalte. Dann nochmal Pfeil runter und du bist in der ersten freien Zeile.

Vielleicht kannst du das ja als Makro aufzeichnen und dann den Code in dein VBA-Modul einbinden.

CU
want2cu

Hallo,

die letzte beschriebene Zeile der Spalte A z.B. erhälst mit

i = Cells(Rows.Count, 1).End(xlUp).Row

Entsprechend die erste freie Zeile mit i+1.

Gruß
GÜnter

hi alle :)

spielraum fuer experimente :)

gruss nighty

letzte zeile
letzte zeile EINER spalte
letzte spalte

Sub liste_erstellen()
Dim DeineLetzteZeile As Long
Dim DeineLetzteZeileEinerSpalte As Long
Dim DeineLetzteSpalteEinerZeile As Integer
DeineLetzteZeile = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
DeineLetzteZeileEinerSpalte = Sheets(1).Range(A65535).SpecialCells(xlCellTypeLastCell).Row
DeineLetzteSpalteEinerZeile = IIf(IsEmpty(Range("IV2")), Range("IV2").End(xlToLeft).Column, 256)
End With
End Sub

Hallo Günther!
Ich habe mich an der Methode versucht, funktioniert aber leider nicht so recht.
Wenn ich das +1 eingebe, streikt das Makro!
Wie muss das denn richtig aussehen? Zur Vereinfachung unten mein Makro!
Danke für die Hilfe!

Nighty´s Angebot hilft mir leider auch nicht so recht!
Trotzdem danke!

Gruss
Ines

ActiveSheet.PivotTables("PivotTable9").PivotSelect "", xlDataAndLabel, True
Selection.Copy
Windows("Wiss. Abt.xlt.XLS").Activate

Hier soll stehen:
Erste freie Zeile der Arbeitsmappe

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.Columns.AutoFit
Windows("Modul 1.XLS").Activate
Sheets("Tabelle12").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
Sheets("Deckblatt").Select
End Sub

Hallo Ines,

falls Du die erste freie Zelle in Spalte A suchst,
dann das eingeben:

...
Windows("Wiss. Abt.xlt.XLS").Activate

i = Cells(Rows.Count, 1).End(xlUp).Row
Cells(i + 1, 1).Select

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
...

Falls es nicht in Spalte A sein soll, dann noch entsprechend ändern.
Wenn das makro nicht läuft, dann nochmals melden und die Zeile angeben, wo es stehen bleibt.

Gruß
Günter

Hallo Günter!
Vielen Dank!
Funktioniert Suuuper!
Was muss da dann noch hin, so dass das Einfügen erst 5 Zeilen später erfolgt, ich also Leerzeilen erhalte.
Diese Schritte möchte ich dann noch öfter mit anderen Daten wiederholen.--> Ebenfalls immer mit Leerzeilen dazwischen!

Ines

Hallo Ines,

mit Leerzeilen dazwischen geht es so:

...
Cells(i + 1, 5).Select

...

Gruß
Günter

Hallo Günter!
Ich bin Neuling bei den Makro´s, wie Du sicher schon gemerkt hast, aber so langsam wird´s.

Danke für die Hilfe, habe aber dann schnell gemerkt, dass Du einen Dreher drin hast! Bei fünf Leerzeilen sieht das dann so aus:

Cells(i + 6, 1).Select

Man lernt ja Gottseidank auch dazu!

Also nochmals, vielen Dank!

Gruss
Ines

Hallo Ines,

vielleicht wars auch ein Test.
Jedenfalls hast Du bestanden!!

(Nee, ich habe mich vertan und nicht vorher getestet.)

Gruß
Günter

• Makro in Excel: Dynamische Liste kopieren
• Excel Problem für Profis! Benötige dringen Hilfe!
• Excel Reihe
• Daten vergleichen und kopieren
• Mit VB makierte Daten in die letzte Zeile kopieren und speichern