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

Ganze Spalte kopieren und vor letzter Sp

Forumthread: Ganze Spalte kopieren und vor letzter Sp

Ganze Spalte kopieren und vor letzter Sp
18.04.2020 15:50:46
Patrick
Hallo liebes Forum,
leider habe ich es nicht rechtzeitig geschafft mich für die Hilfe zu meiner letzten Frage zu bedanken. (zu spät angesehen)
Nun habe ich ein neues Projekt.
Im Tabellenblatt Vorlagen ist die Spalte A:A mit Daten, Formeln, und Formatierungen gefüllt.
Diese wird kopiert, dann soll es zwei Spalten vor dem Letzten Eintrag in A:A im Tabellenblatt Urlaub als neue Spalte mit der Formatierung, den Werten und den Formeln eingefügt werden. Der Makrorecorder hat mir dabei leider nicht wirklich weitergeholfen. Die Spalte kopieren ist nicht das Problem..
Ich komme beim Einfügen an die richtige Stelle nicht weiter. Userform öffnet sich, in der Textbox1 wird die Anzahl der benötigten Spalten eingegeben. Mit dem Klick auf okay solle die kopierte Spalte wie oben beschrieben eingefügt werden...
Gruß Patrick
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ganze Spalte kopieren und vor letzter Sp
19.04.2020 10:48:37
Werner
Hallo,
wie jetzt, was jetzt?
Erst schreibst du davon dass die Spalte A aus dem Blatt Vorlagen ins Blatt Urlaub, zwei Spalten vor der letzten Spalte, eingefügt werden soll.
Am Ende dann plötzlich von einer Userform mit Textbox und der Anzahl der benötigten Spalten?!?
Was meinst du jetzt damit?
Gruß Werner
Anzeige
Möglicherweise...
19.04.2020 11:19:30
Werner
Hallo,
...meinst du das ja so: 
Private Sub CommandButton1_Click()
Dim loAnzahl As Long, loSpalte As Long
Application.ScreenUpdating = False
If Me.TextBox1  "" Then
If IsNumeric(Me.TextBox1) Then
loAnzahl = Me.TextBox1
Worksheets("Vorlagen").Columns("A").Copy
With Worksheets("Urlaub")
loSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Offset(, -1)
.Columns(loSpalte).Resize(, loAnzahl).Insert
Unload Me
Application.CutCopyMode = False
End With
Else
MsgBox "Fehler: Der Wert ist nicht numerisch."
Me.TextBox1.SetFocus
Me.TextBox1.SelStart = 0
Me.TextBox1.SelLength = Len(Me.TextBox1)
End If
Else
MsgBox "Fehler: Bitte Anzahl an Spalten eintragen."
Me.TextBox1.SetFocus
End If
End Sub
Gruß Werner
Anzeige
AW: Möglicherweise...
19.04.2020 19:32:11
Patrick
Hallo Werner,
Das ist es was ich wollte.
Habe es zwischenzeitlich selbst hinbekommen. Habe jetzt noch die Abfrage nach dem Nummerischen Wert von dir übernommen. Vielen Dank
Gruß Patrick
Gerne u. Danke für die Rückmeldung. o.w.T.
19.04.2020 20:26:11
Werner
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
20.04.2020 08:07:49
Patrick
Hallo Werner,
ich habe jetzt versucht deinen kompletten Code zu übernehmen weil mir deine Lösung als die Bessere erschien, ich hatte vorher die Spalte A kopiert und dann als neue Spalte eingefügt.
Per Textbox habe ich die Anzahl der Spalten abgefragt. Den wert habe ich einer IF schleife übergeben.
das sah so aus: 

Sub Schleife()
Dim i As Long
For i = 1 To Me.Textbox1
Debug.Print i
Next

Bei deinem Code bekomme ich an der Stelle 

loSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Offset(, -1)

den Fehler: Laufzeitfehler '13: Typen unverträglich
loSpalte gubt 0 aus..
Wo ist der Fehler? Bzw. was verursacht Ihn?
Gruß Patrick
Anzeige
AW: Möglicherweise...
20.04.2020 08:53:28
Patrick
Hallo Werner,
mein funktionierender Code 

Private Sub CommandButton1_Click()
Dim Anz As String
Dim i As Long
Anz = Me.TextBox1
For i = 1 To Anz
Debug.Print i
If Me.TextBox1  "" Then
If IsNumeric(Me.TextBox1) Then
Sheets("Vorlage").Columns("A:A").Copy
Sheets("Urlaub").Range("A1:ZZ1").End(xlToRight).Offset(0, -1).Insert
Else
MsgBox "Fehler: Bitte Ziffer eingeben."
Me.TextBox1.SetFocus
Me.TextBox1.SelStart = 0
Me.TextBox1.SelLength = Len(Me.TextBox1)
End If
Else
MsgBox "Fehler: Bitte Anzahl an Spalten eintragen."
Me.TextBox1.SetFocus
End If
Next
Unload Me
Application.CutCopyMode = False
End Sub
Mir gefällt die Angelegenheit mit der Schleife nicht.
Außerdem bekommt man einen Fehler wenn die Textbox leer ist.
Fehler: Laufzeitfehler '13 Typen unverträglich!
an dieser Stelle: 
For i = 1 To Anz
Gruß Patrick
Anzeige
AW: Möglicherweise...
20.04.2020 09:54:59
Patrick
Hallo Werner und alle anderen.
So jetzt mit Beispieldatei.
Die Probleme häufen sich...
Wenn eine Spalte per vba eingefügt wird erweitert sich die Formel in P:P nicht. Das bedeutet das die Werte in den Spalten davor gezählt werden, jedoch nicht die Werte in den neu eingefügten Spalten.
Mein Code funktioniert zwar ist aber auf jeden Fall verbesserungswürdig!
Hier die Beispieldatei: https://www.herber.de/bbs/user/136880.xlsb 
Private Sub CommandButton1_Click()
Dim Anz As String
Dim i As Long
Anz = Me.TextBox1
For i = 1 To Anz 'Das geht sicher auch ohne Schleife... gibt fehler wenn Textbox leer
Debug.Print i
If Me.TextBox1  "" Then
If IsNumeric(Me.TextBox1) Then
Sheets("Vorlage").Columns("A:A").Copy
Sheets("Urlaub").Range("A1:ZZ1").End(xlToRight).Offset(0, -1).Insert 'Nachteil: Zellen in A: _
A Müssen ALLE gefüllt sein! (xlToLeft) ergibt Fehler.
Else
MsgBox "Fehler: Bitte Ziffer eingeben."
Me.TextBox1.SetFocus
Me.TextBox1.SelStart = 0
Me.TextBox1.SelLength = Len(Me.TextBox1)
End If
Else
MsgBox "Fehler: Bitte Anzahl an Spalten eintragen."
Me.TextBox1.SetFocus
End If
Next
Unload Me
Application.CutCopyMode = False
End Sub

Anzeige
AW: Möglicherweise...
21.04.2020 09:19:11
Werner
Hallo,
stellt sich mir die Frage:
Ich habe dir einen Code geschickt, den benutzt du aber nicht. Wozu schicke ich dir dann einen Code?
Dass mein Code in dieser Codezeile: 
loSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Offset(, -1)

einen Fehler produziert, hättest du auch schreiben können. Dann wäre mir gleich aufgefallen, dass mir da beim Einstellen des Codes (warum auch immer) ein .Column verloren gegangen ist. Die Codezeile müsste richtig so: 
loSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Offset(, -1).Column

aussehen.
Und zu deinem "Formelproblem":
Einfach nach dem Einfügen der zusätzlichen Spalten die Formel per Code neu in den Zellbereich schreiben.
Private Sub CommandButton1_Click()
Dim loAnzahl As Long, loSpalte As Long, loLetzte As Long
Application.ScreenUpdating = False
If Me.TextBox1  "" Then
If IsNumeric(Me.TextBox1) Then
loAnzahl = Me.TextBox1
If loAnzahl > 0 Then
Worksheets("Vorlage").Columns("A").Copy
With Worksheets("Urlaub")
loSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Offset(, -1).Column
.Columns(loSpalte).Resize(, loAnzahl).Insert
loLetzte = .Cells(.Rows.Count, 3).End(xlUp).Row
loSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Offset(, -1).Column
.Range(.Cells(7, loSpalte), .Cells(loLetzte, loSpalte)).FormulaR1C1 = _
"=COUNTIF(RC7:RC[-1],""U"")+COUNTIF(RC7:RC[-1],""U1"")"
Application.CutCopyMode = False
Unload Me
End With
Else
MsgBox "Fehler: Du willst 0 Spalten einfügen?"
Me.TextBox1.SetFocus
Me.TextBox1.SelStart = 0
Me.TextBox1.SelLength = Len(Me.TextBox1)
End If
Else
MsgBox "Fehler: Bitte Ziffer eingeben."
Me.TextBox1.SetFocus
Me.TextBox1.SelStart = 0
Me.TextBox1.SelLength = Len(Me.TextBox1)
End If
Else
MsgBox "Fehler: Bitte Anzahl an Spalten eintragen."
Me.TextBox1.SetFocus
End If
Gruß Werner
Anzeige
AW: Möglicherweise...
21.04.2020 19:09:42
Patrick
Hallo Werner,
bitte nicht böse sein...
ich wollte erst versuchen das selbst zu lösen. Hatte deinen Kompletten Code probiert dabei kam der Fehler. Also versuchte ich das Problem Selbst zu lösen und beide Codes zu kombinieren (aus Fehlern lernt man:-) ).
Die Datei die ich hochgeladen habe diente nur zur Veranschaulichung. Für mich stand fest das ich deinen Code verwenden werde. Alleine schon aus dem Grund das du es ohne .select und ohne Schleife programmiert hast.
Hut ab für dein Wissen. Dieses würde ich niemals in Frage stellen.
Welches ist denn nun die Bessere Variante? Mein Code hatte ja eine leere Spalte Eingefügt und dann die Werte und Formate aus "Vorlagen" kopiert und in "Urlaub" eingefügt.
Was mich etwas verwundert hat war das dein Code in einem lehren Tabellenblatt tadellos funktioniert hat... ( mit einfachen Werten zum testen) wenn ich dann 1 zu 1 deinen Code in meine *.xlsb eingefügt habe kam ein Fehler nach dem anderen. In einem leeren Tabellenblatt wurden auch die Formeln (Bezüge) automatisch erweitert, nicht aber in meiner Tabelle. auch wenn ich alles in einem neuen Tabellenblatt nachgebaut habe wurde die Formel nicht erweitert.
Kannst du mir sagen wie das zu Stande kommt?
Gruß Patrick
Anzeige
AW: Möglicherweise...
21.04.2020 19:35:15
Werner
Hallo,
sorry, aber mit den Aussagen kann ich jetzt nicht wirklich was anfangen.
Läuft mein Code in deiner Datei jetzt oder läuft er nicht?
Wenn nicht. Welche Fehlermeldungen und in welchen Codezeilen?
Gruß Werner
AW: Möglicherweise...
22.04.2020 09:01:57
Patrick
Hallo Werner,
dein Code funktioniert super!! Großes DANKE nochmal.
Zu meiner Frage:
Ich hatte deinen Code in einem leeren Tabellenblatt mit einfachen Werten ohne Formatierung ausprobiert, das funktionierte. Dann habe ich meine Tabelle in dieses Blatt eingefügt und der Code Funktionierte nicht mehr. Mich interessiert warum das so ist. Der Fehler war wieder Typen unverträglich.
Nun eine Weitere Frage:
Was muss ich an deinem Code Ändern um Spalten zwischen E:E und F:F einzufügen. (Statisch, es soll immer zwischen E:E und F:F eingefügt werden).
Dabei sollen wie in deinem Code die Formeln in der Vorletzten Spale erhalten bleiben und die Bezüge angepasst werden.
Also UserForm öffnet sich, Eingabe der Anzahl der Spalten... Spalten zwischen E:E und F:F einfügen, Formeln anpassen.
Ich bin leider NOCH nicht so weit um den ganzen Code zu verstehen.
"=COUNTIF(RC7:RC[-1],""U"")+COUNTIF(RC7:RC[-1],""U1"")"

Schreibt die Formeln in die richtige Spalte.
.Range(.Cells(7, loSpalte), .Cells(loLetzte, loSpalte)).FormulaR1C1 = _

Was macht dieser Teil?
Vielen Dank Gruß Patrick
Anzeige
AW: Möglicherweise...
22.04.2020 17:13:16
Patrick
Bevor ich es Vergesse,
die "U" und "U1" in den Spalten E:E und F:F + alle dazwischen neueingefügten Spalten sollen in der vorletzten Spalte nicht mitgezählt werden.
Vielen Dank für die Unterstützung.
Gruß Patrick

Forumthreads zu verwandten Themen

VBA Zeilen kopieren bis...
Silvi

Hallo,
kann mir bitte mal jemand bei folgendem Makro helfen:
'Rows("2:2").Select
Selection.Copy
Range("A3").Activate
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Activate
Loop
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlValu...
13.10.2008 13:13:04
Thread-ID: 1016022
13 Beiträge
Anzeige
Wert bestimmt Anzahl der zu kopierenden Zeilen VBA
Maja

Hallo,
ich Suche eine Formel mit der ich folgenden Code modifizieren kann:
Sub Uebergabe() Dim i As Integer Dim k As Integer Dim iRowT As Integer Const zz = 1 flagg = False Sheets("Vorlage_Angebot_Sicht").Activate Sheets("Vorlage_Angebot_Sicht").Range("D2").Select i = 0 iRowT = 10 Do...
18.12.2008 13:24:00
Thread-ID: 1033843
5 Beiträge
Mit VBA Zeilen in neue Register kopieren
Andreas

Ein Tabellenblatt soll nach einem bestimmten Kriterium durchsucht werden. Immer wenn das Suchkriterium gefunden wird, soll die Zeile kopiert und in ein neues Tabellenblatt eingefügt werden. Dies soll solange geschehen bis alle Zeilen durchsucht worden sind.
Im Detail soll dies wie folgt fun...
08.06.2009 12:29:49
Thread-ID: 1079883
3 Beiträge
Funktion kopieren bis Ende Tabelle
jo_cindy

Hallo, für euch ist das sicher einfach, aber ich bekomme folgenden Schritt nicht hin. Ich habe über Makro aufnehmen eine einfache Funktion. Es sollen 4 aufeinanderfolgende Werte in einer Zeile addiert werden. Nun soll sich aber in dem Makro diese Formel selbstständig über alle Zeilen kopieren,...
14.10.2009 17:23:17
Thread-ID: 1109648
5 Beiträge
Anzeige
Funktion kopieren bis Ende Tabelle
jo_cindy

Hallo Leute, hab da mal eine Verständnisfrage:
With Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Offset(, 23)
Was bedeutet dieser Befehl im Einzelnen?
Er bewirkt doch, dass die Formeln in der Spalte wo der Befehl gesetzt wird, solange kopiert werden, bis in Spalte 1 keine Wert...
02.02.2010 12:32:34
Thread-ID: 1135057
3 Beiträge
VBA: Vergleich und Texteil suchen - Zeile kopieren
Joe

Hallo liebe Experten,
ich bräuchte mal wieder etwas Hilfe von euch.
Folgende Ausgangssituation:
Es gibt eine Adressliste. In dieser Adressliste stehen in Spalte H Nummern (es können pro Adresse mehrere Nummer in einer Zelle vorkommen - ich weiß, dass ist nicht optimal, es geht leide...
08.04.2010 18:18:00
Thread-ID: 1150703
5 Beiträge
Anzeige
VBA Diverse Spalten einer Zeile kopieren
gemanna

Hallo Excel Freunde,
suche schon seit tagen nach der Lösung für mein Problem, komme aber nicht weiter.
Ich habe mehrere Tabelen mit verschidenen Artikeln und Preisen. Ich habe die Artikeln in 4 verschidene Gruppen unterteilt (TT, AT, PP, IT). Für die 4 Gruppen müssen 4 neue Tabelenblät...
18.04.2011 06:49:59
Thread-ID: 1210776
3 Beiträge
Anzeige
nicht ganze Spalte kopieren
Dirk

Hallo Zusammen,
ich möchte (fast) alle Tabellenblätter durchlaufen und anhand von definierten Überschriften, Bereiche in ein bestimmtes Tabellenblatt kopieren.
Mit dem CODE funktioniert es nur teilweise, da er mir immer die ganze(n) Spalte(n) pro Tabellenblatt kopiert und diese dann nic...
19.04.2011 15:40:34
Thread-ID: 1211069
8 Beiträge
Formeln nach unten kopieren bis anzugebender Zeile
Stefan

Hallo.Ich habe folgendes ProblemIch möchte von VBA in einem Sheet eine Formel nach unten kopieren lassen.
Bislang sieht das bei mir so aus: Range("G1:G1").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",C[-1]/C[-2])"
Selection.AutoFill Destination:=Range("G1:G...
13.05.2002 16:02:06
Thread-ID: 120530
4 Beiträge
mittels VBA Zeilen kopieren
Klaus

Hello,
ich bekomme folgende Datei und möchte die ändern
https://www.herber.de/bbs/user/76674.xls
und zwar folgender Maßen: Wenn in der Spalte C "-" ist, dann die Zeile entsprechend oft kopieren (also bei 1-3 2x kopieren, bei 3-6 3x kopieren) und den Wert auch gleich ausbessern, das...
19.09.2011 22:00:26
Thread-ID: 1230583
3 Beiträge
Textteile mit VBA suchen & zeilen kopieren
rene

Hallo Expertengruppe,
ich möchte in Tabelle1 in 2 Spalten nach einem Textteil suchen.
Der zu findende Textteil z.B. "ABC" kommt im Text unterschiedlich vor, mal getrennt durch ein Semikolon, mal durch ein Komma, mal durch Slash - siehe fileUpload: https://www.herber.de/bbs/user/80583.xl...
16.06.2012 10:23:33
Thread-ID: 1267611
5 Beiträge
formel per vba in aktive zeile kopieren
steff_86

hallo,
würde gerne die folgende formel per vba in spalte "d" in die jeweils aktive zeile einfügen:
=WENN(C10"";C10-G10+WENN(I10=WAHR;$D$6;0)+WENN(J10=WAHR;$F$6;0);"")
der zeilenindex (in diesem fall 10) soll dabei immer an den, der aktiven zeile angepasst werden.
irgendwie b...
13.08.2012 08:45:13
Thread-ID: 1274800
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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