Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1864to1868
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1864to1868
1864to1868
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Makro / Kopie in nächste freie Zeile

VBA Makro / Kopie in nächste freie Zeile
26.01.2022 19:48:38
Sven
Guten Abend liebes Forum,
ich habe folgendes Anliegen und hoffe, dass mir hier geholfen werden kann. Ich habe ein Makro, welches nur die gefilterten Daten vom "Tabellenblatt1" aus dem Zellenbereich I4:R kopiert und die Daten in das Tabellenblatt "Planung" in Zelle "E11" übergibt. Das funktioniert soweit Super. Nun möchte ich aber, dass bei weiteren Übergaben an Tabellenblatt "Planung", der letzte Eintrag nicht überschrieben wird, sondern erst in die nächste freie Zeile eingefügt wird. Ich habe bereits einige Lösungsvorschläge im Netz gefunden, diese aber nicht auf mein schon bestehendes Makro angepasst bekommen. 

Sub KopiereFilterZeile()
'Ab Zeile 2 alle gefilterten Zeilen bis Spalte "D" kopieren
' -> das "D" bitte an Deine Tabelle anpassen
ActiveSheet.Range("F4:R" & ActiveSheet.UsedRange.Rows.Count). _
SpecialCells(xlCellTypeVisible).Copy
'...und ab "A2" in Tabelle2 einfügen
Worksheets("Planung").Range("D11").PasteSpecial
End Sub
https://www.herber.de/bbs/user/150700.zip

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Makro / Kopie in nächste freie Zeile
26.01.2022 20:58:54
GerdL
Hallo Sven!
Es besteht ein gewisser Unterschied zwischen dem von dir gezeigten Code und deiner Beschreibung.
F ist nicht I und D ist nicht E. Aber die Spaltenbuchstaben kannst du dir sicher passend ändern.
Die Zellbezüge der Kommentare im Makro sind noch genauso zu überarbeiten.

Sub KopiereFilterZeile()
'Ab Zeile 2 alle gefilterten Zeilen bis Spalte "D" kopieren
' -> das "D" bitte an Deine Tabelle anpassen
ActiveSheet.Range("F4:R" & ActiveSheet.UsedRange.Rows.Count). _
SpecialCells(xlCellTypeVisible).Copy
'...und ab "A2" in Tabelle2 einfügen
With Worksheets("Planung")
.Range("D" & Application.Max(11, .Rows.Count, "D").End(xlUp).Row).PasteSpecial
End With
Applicaton.CutCopyMode = False
End Sub
Gruß Gerd
Anzeige
AW: Korrektur
26.01.2022 21:02:06
GerdL 

---->.End(xlUp).Row + 1 ).PasteSpecial

AW: VBA Makro / Kopie in nächste freie Zeile
26.01.2022 21:19:23
Sven
Hallo Gerd,
vielen Dank für deine Zuarbeit. Ich muss Dir Recht geben bei deiner Bemerkung, leider war es notwendig, die Excel Tabelle abzuspecken, um diese hochladen zu können. Dabei sind die Spalten verrutscht.
Ich habe es nun angepasst und getestet, bekomme aber eine Fehlermeldung ( Objekt erforderlich ) 

Sub KopiereFilterZeile()
'Ab Zeile 4 alle gefilterten Zeilen bis Spalte "O" kopieren
' -> das "O" bitte an Deine Tabelle anpassen
ActiveSheet.Range("F4:O" & ActiveSheet.UsedRange.Rows.Count). _
SpecialCells(xlCellTypeVisible).Copy
'...und ab "D11" Planung einfügen
With Worksheets("Planung")
.Range("D" & Application.Max(11, .Rows.Count, "D").End(xlUp).Row).PasteSpecial
End With
Applicaton.CutCopyMode = False
End Sub

Grüße Sven
Anzeige
AW: VBA Makro / Kopie in nächste freie Zeile
26.01.2022 23:35:14
Yal
Hallo Sven,
falls keine Zeile in dem gegebenen Bereich sichtbar ist, bekommt "Copy" die Krise

Sub KopiereFilterZeile()
Dim R As Range
Set R = ActiveSheet.Range("F4:O" & ActiveSheet.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible)
If R Is Nothing Then Exit Sub
R.Copy
With Worksheets("Planung")
.Range("D" & Application.Max(11, .Rows.Count, "D").End(xlUp).Row + 1).PasteSpecial
End With
Applicaton.CutCopyMode = False
End Sub
ActiveSheet.UsedRange.Rows.Count führt übrigens, falls die erste(n) Zeile(n) der Tabelle nicht befüllt sind, zu einem falschen Ergebnis.

Set R = Intersect(ActiveSheet.Range("F4:O99999").ActiveSheet.UsedRange).SpecialCells(xlCellTypeVisible)
könnte passen (ungetestet).
VG
Yal
Anzeige
AW: VBA Makro / Kopie in nächste freie Zeile
27.01.2022 05:59:31
Sven
Hallo Yal,
vielen Dank für deine Zuarbeit. Ich habe das Makro angepasst und folgende Meldung erhalten. 

Sub KopiereFilterZeile()
Dim R As Range
Set R = ActiveSheet.Range("F4:O" & ActiveSheet.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible)
If R Is Nothing Then Exit Sub
R.Copy
With Worksheets("Planung")
.Range("D" & Application.Max(11, .Rows.Count, "D").End(xlUp).Row + 1).PasteSpecial
End With
Applicaton.CutCopyMode = False
End Sub
Fehler -> Objekt erforderlich
und bei der zweiten Version,

Sub KopiereFilterZeile()
Dim R As Range
Set R = Intersect(ActiveSheet.Range("F4:O99999").ActiveSheet.UsedRange).SpecialCells(xlCellTypeVisible)
If R Is Nothing Then Exit Sub
R.Copy
With Worksheets("Planung")
.Range("D" & Application.Max(11, .Rows.Count, "D").End(xlUp).Row + 1).PasteSpecial
End With
Applicaton.CutCopyMode = False
End Sub
Fehler-> "Sub KopiereFilterZeile()" wird Gelb angezeigt und die Meldung "Fehler beim Kompilieren: Argument ist nicht optional" erscheint
Grüße Sven
Anzeige
AW: VBA Makro / Kopie in nächste freie Zeile
27.01.2022 09:48:09
Yal
Hallo Sven,
Unaufmerksamkeit:
nicht

Set R = Intersect(ActiveSheet.Range("F4:O99999").ActiveSheet.UsedRange).SpecialCells(xlCellTypeVisible)
sondern

Set R = Intersect(ActiveSheet.Range("F4:O99999"), ActiveSheet.UsedRange).SpecialCells(xlCellTypeVisible)
Ist doch klar, oder?
VG
Yal

313 Forumthreads zu ähnlichen Themen

Aus Spalte in Zeile schreiben
Eckhard

Hallo Leute, ich benötige Hilfe.
in der ersten Spalte meines Arbeitsblattes stehen Adressdaten (Vorname, Nachname, Strasse, etc) jeweils 7 Felder lang, dann wiederholen sie sich - mit anderem Inhalt. Ich benötige nun ein Makro, das den Inhalt dieser Felder jeweils in eine Zeile schreibt. Da...
15.12.2008 15:57:52
Thread-ID: 1033076
5 Beiträge
Anzeige
Werte aktualisieren oder in nächster freie Zeile
Frank

Hallo!
Ich möchter gerne per VBA einen vorhandenen Datensatz aktualisieren oder in der nächsten freien Zeile anlegen.
Leider bin ich VBA Deep, dass ist mein Versuch:
Private Sub CommandButton6_Click() Dim LngZ As Long Dim Found1 As Range Dim Found2 As Range Set Found1 = Sheets("A...
02.03.2009 19:24:29
Thread-ID: 1055699
7 Beiträge
Automatisch beim öffnen in nächste leere Zeile
chris58

Hallo !
Ich habe diesen Code gefunden der mir ermöglicht nach dem öffnen einer Datei in die nächste freie Zeile zu springen. Nun meine Frage: Kann man das automatisch machen. Also ich öffne die Datei und der Courser steht automatisch in der nächsten freien Zeile der Spalte A.
Danke für...
19.06.2009 13:24:19
Thread-ID: 1082886
8 Beiträge
Anzeige
Datenbloecke in Zeilen schreiben
VolkerM

Hallo Forum
Ich möchte mehrere hundert "Datenblöcke" in Zeilen schreiben.
Diese "Datenblöcke" bestehen immer aus 4 Zeilen und 6 Spalten.
Dann folgt immer eine Leerzeile.
Die einzelnen Zellen sind mal leer mal befüllt.
Auch der Inhalt ist unterschiedlich (Datum Uhrzeit Ziff...
27.10.2009 07:30:13
Thread-ID: 1112385
3 Beiträge
wert per VBA in nächste leere zelle schreiben
Michael

hallo!
ich brauche bitte hilfe. ich habe eine leere tabelle und möchte diese mit werten füllen. allerdings nur so, dass kein wert doppelt vorkommt. habe folgenden ausdruck, hänge jetzt aber. die kontrolle funktioniert, nur das einfügen in die nächste leere zelle der spalte A bekomme ich nic...
26.06.2010 09:55:04
Thread-ID: 1164138
6 Beiträge
Daten aus einem Bereich in eine Zeile schreiben
Stefan

Hallo liebe Excel-Profis,
ich habe ein kleines Problem und hoffe ihr könnt mir dabei helfen.
Ich möchte Namen, die in einem Bereich J2:Q15 verstreut stehen, in eine Zeile nebendran, sagen wir S2:Z2, schreiben.
Maximal 8 Namen sind es, aber ich bekomm es einfach nicht hin, dass jede...
28.12.2010 14:06:57
Thread-ID: 1193062
4 Beiträge
nächste freie Zeile
Peter

Hallo an alle,
ich habe eine ständig größer werdende Datei, mit z.Zt. 200 Zeilen.
Wenn ich z.B. in der Zeile 15 etwas ändere muß ich immer wieder runterscrollen
um in nächste freile Zeile zu kommen. Je mehr Zeilen es werden um so mehr
scrolle ich da immer wieder runter in die n...
17.02.2011 17:48:42
Thread-ID: 1201539
3 Beiträge
Rahmen in die nächste leere Zeile
Heinz

Hallo Leute
Habe unteres Makro das mir ab A6:L einen Rahmen setzt.
Ich möchte gerne wenn zb. in A10 ein Wert steht,das mir dann in A11:L11 der Rahmen gesetzt wird.
Also immer immer die nächste leere Zelle von A.
Könnte mir dazu bitte jemand helfen?
Gruß
Heinz
Private...
27.02.2011 19:42:52
Thread-ID: 1203245
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
6
7
4
2
5
3
2
8
5
6
3
18
4
20
6
1
2
2
1
2
2
2
2