Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1980to1984
1980to1984
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

In anderem Blatt in nächste freie Spalte einfügen

Forumthread: In anderem Blatt in nächste freie Spalte einfügen

In anderem Blatt in nächste freie Spalte einfügen
25.06.2024 12:27:54
sammawatt
Hallo Forum,

ich habe hier ein Makro, dass u.a. einige Zellen kopiert und diese auf einem anderen Blatt einfügt. Da diese Daten aber irgendwann überschrieben werden, will ich diese als "Historie" auf einem separaten Blatt abspeichern, jeweils in der nächsten freien Spalte (somit füllt sich das Blatt mit der Zeit).

Da das Kopieren im Makro ja schon vorgesehen ist, brauch ich eigentlich nur den Part ergänzen, der das Einfügen im Tabellenblatt "Historie" erledigt. Das übersteigt aber meine Kenntnisse bei weitem: 



Sub Übertrag_PWZ()



    Windows("Briefmarken.xlsm").Activate

Sheets("Bestand").Select

    ActiveSheet.Unprotect Password:="xxx"

    Range("j2:j17").Select

    Selection.Copy

    Range("D2").Select

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

        False, Transpose:=False '-----> (Das hier Kopierte will ich später im Blatt "Historie" einfügen)

    ActiveSheet.Protect Password:="xxx"



'-----------------------------------------------------------------

' Bis hierhin war das Originalcode, der auch funktioniert. Jetzt kommt mein Teil...



Sheets("Historie").Select

    spalte = ActiveSheet.UsedRange.Columns.Count ' findet die letzte verwendete Zeile im Blatt

    Cells(spalte + 1, 1).Select

    Selection.Paste



' Ab hier wieder Originalcode

'----------------------------------------------------------------

    

Sheets("Rechner").Select

    Range("A1").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("A2").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("A3").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("A4").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("A5").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("A6").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("A7").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("A8").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("A9").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("A10").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("A11").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("A12").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("A13").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("A14").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("A15").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("A16").Select

    ActiveCell.FormulaR1C1 = "0"

    

    ActiveWorkbook.Save

    

End Sub


Führe ich das Makro so aus, bekomme ich einen Laufzeitfehler '1004', das Debug führt zur Zeile "Selection.PasteSpecial...."
Ich habe schon ein einfaches Selection.Paste probiert, dann kommt Laufzeitfehler 438. Also scheint es zunächst mal am Einfügen zu hängen? Vielleicht kann mir jemand auf die Sprünge helfen...

Gruß
Alex



Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: In anderem Blatt in nächste freie Spalte einfügen
25.06.2024 13:34:06
peter
Hallo

Durch
ActiveSheet.Protect Password:="xxx"
verlierst Du deine "Selection"
Füg diese Zeile vor
Sheets("Rechner").Select
ein.

Es reicht auch
Sheets("Rechner"). Range("A1:16").FormulaR1C1 = "0"

Cells(row,column) daher
Cells(1, spalte + 1).Select

Peter
Anzeige
AW: In anderem Blatt in nächste freie Spalte einfügen
25.06.2024 14:17:20
Peter (HPO)
Hallo Allex,

probiermal diesen code:

Sub Übertrag_PWZ()
Dim Spalte As Integer
Spalte = Sheets("Tabelle2").UsedRange.Columns.Count

Windows("Briefmarken.xlsm").Activate
Sheets("Bestand").Unprotect Password:="xxx"

Range("j2:j17").Copy _
Destination:=Range("D2")

Range("j2:j17").Copy _
Destination:=Sheets("Tabelle2").Cells(1, Spalte + 1)

ActiveSheet.Protect Password:="xxx"


With Sheets("Tabelle2")
.Range("A1").FormulaR1C1 = "0"
.Range("A2").FormulaR1C1 = "0"
.Range("A3").FormulaR1C1 = "0"
.Range("A4").FormulaR1C1 = "0"
.Range("A5").FormulaR1C1 = "0"
.Range("A6").FormulaR1C1 = "0"
.Range("A7").FormulaR1C1 = "0"
.Range("A8").FormulaR1C1 = "0"
.Range("A9").FormulaR1C1 = "0"
.Range("A10").FormulaR1C1 = "0"
.Range("A11").FormulaR1C1 = "0"
.Range("A12").FormulaR1C1 = "0"
.Range("A13").FormulaR1C1 = "0"
.Range("A14").FormulaR1C1 = "0"
.Range("A15").FormulaR1C1 = "0"
.Range("A16").FormulaR1C1 = "0"
End With
ActiveWorkbook.Save

End Sub

Ich hoffe du kommst damit zurecht.
Viele Grüße
Peter (hpo)
Anzeige
AW: In anderem Blatt in nächste freie Spalte einfügen
25.06.2024 15:03:29
Piet
Hallo

l@Peter - Lieber Forum Kollege, seit Jahren predigen wir Fragern -kein Select- zu verwenden! Bitte beachten.

Ich wundere mich auch immer wieder, warum sich Kollegen so krampfhaft an einem völlig unnötigem Code festklammern, der doch eindeutig eine Makro Recorderaufzeichnung ist. Die kann man doch auf einen besseren Level bereinigen! Nur VBA Grundwissen!!

Den Fehler, das der Code falsch kopiert, sah ich nach 5 Sekunden im Originalcode von sammawarr! Der hat NIE funktioniert!
Man beachte bei Cells(spalte+1, 1) das die Cells Angabe IMMER Cells(z, s) lauter, somit Zeile, Spalte.
Wenn man aber Zeilen mit Spalten vertauscht kann der Coder NIE geklappt haben. Ausser bei der 1. Spalte!

Bitte prüfen ob der bereinigte Code jetzt richtig läuft. Würde mich freuen. Grüsse aus Izmir an die Heimat.

mfg Piet 

Sub Übertrag_PWZ()

    Dim spalte As Long

    Windows("Briefmarken.xlsm").Activate

    'findet die letzte verwendete Zeile im Blatt Historie

    spalte = Sheets("Historie").UsedRange.Columns.Count



    'Bestand nach Historie kopideren  (Ohne Protect!)

    Sheets("Bestand").Range("J2:J17").Copy

    Sheets("Historie").Cells(1, spalte + 1).PasteSpecial Paste:=xlValues

    Application.CutCopyMode = False

    

    '----------------------------------------------------------------

    Sheets("Rechner").Range("A1:A16").Value = "0"

    ActiveWorkbook.Save

End Sub
Anzeige
AW: In anderem Blatt in nächste freie Spalte einfügen
25.06.2024 15:38:33
sammawatt
@Piet: Ja das hier ist in der Tat eine Recorderaufzeichnung, aber ich als Laie kann da zumindest schnell erkennen, was da abläuft (ich bin nicht der Ersteller, der ist nicht mehr verfügbar).
Funktioniert hat bisher nur der Code ohne den Abschnitt mit der Historie - dieser hat nie funktioniert, da hast du Recht.
In meinem Recorder-Code klappt es jetzt auch mit Cells(2, Spalte + 1).Select, das war der Fehler (Variante von mir, in Zeile 2 einfügen)

Habe jetzt aber den Code von dir genommen, funktioniert. Das nächste Projekt wird sein, in Zeile 1 das Datum der Eintragung abzuspeichern.

VIelen Dank an alle und insbes. Piet für die Lösung!
Anzeige
AW: In anderem Blatt in nächste freie Spalte einfügen
25.06.2024 16:07:26
Piet
Hallo

freut mich das es auf Anhieb klappt, das Datum einfügen, auch kein Problem. Nur diesen Teil ändern!

mfg Piet 

    'Bestand nach Historie kopideren  (Ohne Protect!)

    Sheets("Bestand").Range("J2:J17").Copy

    Sheets("Historie").Cells(2, spalte + 1).PasteSpecial Paste:=xlValues

    Sheets("Historie").Cells(1, spalte + 1) = Date

    Application.CutCopyMode = False

Anzeige
AW: In anderem Blatt in nächste freie Spalte einfügen
25.06.2024 16:16:46
sammawatt
Habe das mit dem Datum bereits gelöst, danke. (Natürlich viel uneleganter, aber auch hier werde ich das dann noch mal ordentlicher schreiben)
AW: In anderem Blatt in nächste freie Spalte einfügen
25.06.2024 14:27:17
Peter (HPO)
Hallo Alex,

bitte bei dem Code die Tabellenblätte anpassen ("Historie und Rechner") ist im code Tabelle2.

Gruß
Peter(hpo)
AW: In anderem Blatt in nächste freie Spalte einfügen
25.06.2024 13:51:05
sammawatt
Danke, der Laufzeitfehler ist jetzt weg.

Allerdings wird jetzt auf dem Blatt "Historie" immer in die erste Spalte eingefügt (scheint als wird dort aufsummiert). Ich möchte aber bei jedem Ablauf des Makros eine neue Spalte mit den Daten haben.
Also stimmt das hier wohl nicht: 
Sheets("Historie").Select

    spalte = ActiveSheet.UsedRange.Columns.Count ' findet die letzte verwendete Spalte im Blatt

    Cells(spalte + 1, 1).Select

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

        False, Transpose:=False


Ich habe hier eine Bestandsliste, bei Verbrauch wird der Bestand automatisch reduziert. Die einzelnen "Entnahmen" möchte ich so in der Historie genau nachvollziehen können.
Anzeige
AW: In anderem Blatt in nächste freie Spalte einfügen
25.06.2024 14:05:56
peter
Hallo

Schreib mal in Zelle A1 im Blatt Historie irgend eine Text, dann sollte es funktionieren.

Um die Tabelle Bestand zu schützen musst Du Sheets("Bestand").Protect Password:="xxx" schreiben.

Peter
AW: In anderem Blatt in nächste freie Spalte einfügen
25.06.2024 14:21:31
sammawatt
A1 war tatsächlich leer. Das Makro fügt den kopierten Teil in Spalte A ein, allerdings erst ab der Zeile 2. Also eine Zeile nach unten versetzt.
Dass ich jetzt was in A1 eingetragen habe ändert daran nix.
Die Werte die kopiert sind, werden im Blatt Historie zu den bereits in der Spalte A stehenden Zahlen aufaddiert.
Anzeige
AW: In anderem Blatt in nächste freie Spalte einfügen
25.06.2024 15:24:40
peter
Hallo

Cells(1,spalte + 1).Select und nicht Cells(spalte + 1, 1).Select

Peter
;

Forumthreads zu verwandten Themen

nur eine der Spalten darf gefüllt sein
Simon

Hallo,
ich habe glaube ich eine einfache Frage, komme aber nicht drauf Sie selbst zu lösen:
ich habe 4 Spalten: ja; nein; mehr Menge; weniger Menge
dahinter möchte ich eine 5te Spalte Kontrolle setzen. In dieser soll eine Fehlermeldung erscheinen falls mehr als eine Spalte ausgefüll...
01.09.2008 16:15:00
Thread-ID: 1006502
8 Beiträge
Filter-Makro funktioniert nicht
Wolfango

Hallo Experten,
die Spalte Q einer Datenbank enthält Datumswerte.
Wenn ich nun einen benutzerdefinierten Filter (vorher Autofilter aktiviert) setze mit den Kriterien "ist kleiner oder gleich" "31.12.2008" funktioniert das einwandfrei. Die gesuchten Werte werden wie gewünscht angezeigt...
04.11.2008 10:28:00
Thread-ID: 1021496
8 Beiträge
Leere Filtern funktioniert nicht - wo Fehler?
Wolfgang

Hallo,
der nachstehende Code bewirkt ein Filtern über 16 Spalten bzw. Boxes; Ich würde ihn gerne, wie im Autofilter, ergänzen um (Leere), (Nichtleere) und (Alle). Ich habe, nach Hinweisen auf dem Forum, vor geraumer Zeit den Code versucht, anzupassen. Irgendwie ist aber noch ein Fehler dar...
04.12.2008 18:50:00
Thread-ID: 1030277
4 Beiträge
Filter - Kriterium in mehreren Spalten
walter

Hallo,
ich stöbere nun schon seit zwei Tagen in der Excel-Hilfe und in diesem Forum und finde keine Lösung für mein Problem:
Ich habe eine Liste, in der jeder Datensatz 5 Kategorien zugeteilt ist. Das Problem ist dabei, dass ein und dieselbe Kategorie in verschiedenen Spalten stehen kan...
15.01.2009 08:33:57
Thread-ID: 1039897
3 Beiträge
Filter - Text in Spalten
LD

Hallo,
habe hier eine Adressliste aus welcher ich nur die email adr. rausziehen will.
Habe schon einen Filter angewendet um alle Zeilen mit @ anzuzeigen, allerdings
steht vor den adr. "email an" und ich bekomme das nicht weg. Wenn ich Text
in Spalten mache, sind alle anderen Zei...
13.03.2009 13:50:22
Thread-ID: 1059860
6 Beiträge
Pivot-Tabelle Datumsfilter in Spalte
MBorn

Hallo,
in meiner Pivot-Tabelle gibt es in Spalte A Datumswerte.
Weiß jemand, wie es gelingt, Datumswerte von/bis (zwischen zwei Grenzdaten) zu filtern?
Soweit ich sehe bietet der Filter nur eine Variation, entweder größer als oder
kleiner als....
Noch schöner wäre es wenn ic...
08.05.2009 16:57:27
Thread-ID: 1073949
2 Beiträge
Makro für Kopiern eine Spalte links davon einfügen
einfügen

Hallo,
ich bin auf der Suche nach einer Lösung für folgendes Problem.
Ich möchte die Werte die ich markiert habe (die Markierung ist jedes mal anders) kopieren und eine Spalte links davon als "Werte und Zahlenformate" einfügen. Die Markierung besteht vor Ausführung des Makros. Wie bring...
28.07.2009 15:51:06
Thread-ID: 1091972
5 Beiträge
autofilter: Anzahl zeilen
Jochen

Hallo zusammen
ich habe folgendes Problem: Ich möchte per VBA Zeilen kopieren, dei ich vorher per Autofilter selektiert habe. Wenn in der Auswahl aber kein Elemnt enthalten ist, dann kopiert er nur Müll. Daher möchte ich die Anzahl Zeilen ermitteln und das kopieren überspringen, wenn die ze...
25.09.2009 15:43:01
Thread-ID: 1105619
2 Beiträge
Filter funktioniert nicht
Mandy

Hallo,
ich bekomme aus einer Datenbank Daten in mein Excel Template geschrieben.
darunter hat es auch zwei Spalten mit Datums, das Problem: es steht zwar schön sauber das Datum drin (21.10.2009) aber die Spalte ist als TEXT formatiert.
In diesem Fall funktionieren die Filter (Autofi...
21.10.2009 12:05:08
Thread-ID: 1111038
4 Beiträge
Anzeige
einfügen von daten in gefilterte Liste
daten

hallo zusammen
ich habe folgendes problem:
ich habe eine gesamtliste, ( mit den Spalten,Kundennr, Kundenname Ansprechpartner im Aussendienst (der gehört zu meiner Firma und betruet den Kunden in dieser Zeile) , briefversand j oder n ) . Diese Liste schicke ich an bspw. an 10 Mitarbeite...
11.02.2010 21:06:51
Thread-ID: 1137726
2 Beiträge
Filter nicht möglich
otto

Hi,
warum kann anhängende Tabelle nicht richtig gefiltert werden ?
Ich habe die Zellen schon als Datum formatiert, es werden aber nur die Einträge bis zum 13.05.08 angezeigt.
https://www.herber.de/bbs/user/69835.zip
Gruß
otto
01.06.2010 10:27:19
Thread-ID: 1159749
2 Beiträge
Spalteneintrag dubletten ausfiltern
Willi

Hallo,
ich habe wiedermal ein Problem. folgendes möchte ich tun:
Ich habe eine Ausgabenliste mit diversen Spalten. In einer Spalte sind die Lieferanten eingetragen.
Jetzt möchte ich den gesamten Umsatz des einzelnen Lieferanten per Monat ermitteln, das bekomme ich hin mit der Pivot...
30.09.2010 17:35:25
Thread-ID: 1180125
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige