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

Bestimmte Spalten kopieren bis letzte Zeile

Forumthread: Bestimmte Spalten kopieren bis letzte Zeile

Bestimmte Spalten kopieren bis letzte Zeile
18.05.2016 17:51:31
Markus
Liebes Forum,
für euch VBA-Experten ein relativ einfaches Anliegen. Ich möchte aus Tabelle1 in Tabelle2 nur bestimmte Spalten (in dem Fall: Spalte A,C,E und F) bis zur letzten in der Spalte vorkommenden Zeile in Tabelle2 kopieren.
https://www.herber.de/bbs/user/105634.xlsx
Vielen Dank an euch

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Spalten kopieren bis letzte Zeile
18.05.2016 18:14:29
Hajo_Zi
kopiere die gesamte Spalte. Das kann man auch mit dem Makrorecorder aufzeichnen.

AW: Bestimmte Spalten kopieren bis letzte Zeile
18.05.2016 19:34:00
Markus
Hallo Hajo,
ich habe mein Problem fast gelöst. Folgendes Makro funktioniert, jedoch würde ich gerne noch eine Änderung vornehmen. Wie müsste ich es ergänzen, wenn die letzte befüllte Zeile in Spalte A die Grenze für Spalte C,E und F vorgibt?
Sub übertragen()
Dim zuSuchen, i
zuSuchen = Array("Spalte A", "Spalte C", "Spalte E", "Spalte F")
With Sheets("Tabelle1")
For i = 0 To UBound(zuSuchen)
Set suche = .Rows(1).Find(zuSuchen(i), lookat:=xlWhole)
If Not suche Is Nothing Then
.Columns(suche.Column).EntireColumn.Copy ThisWorkbook.Sheets("Tabelle2").Cells(1, i + 1)
Else
MsgBox zuSuchen(i) & " wurde nicht gefunden"
End If
Next
End With
End Sub
Danke

Anzeige
AW: Bestimmte Spalten kopieren bis letzte Zeile
18.05.2016 20:29:17
Werner
Hallo Markus,
versuch mal
Sub übertragen()
Dim zuSuchen, i
Dim loLetzte As Long
zuSuchen = Array("Spalte A", "Spalte C", "Spalte E", "Spalte F")
With Sheets("Tabelle1")
loLetzte = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 0 To UBound(zuSuchen)
Set suche = .Rows(1).Find(zuSuchen(i), lookat:=xlWhole)
If Not suche Is Nothing Then
.Range(.Cells(1, suche.Column), .Cells(loLetzte, suche.Column)).Copy _
ThisWorkbook.Sheets("Tabelle2").Cells(1, i + 1)
Else
MsgBox zuSuchen(i) & " wurde nicht gefunden"
End If
Next
End With
Gruß Werner
End Sub

Anzeige
AW: Bestimmte Spalten kopieren bis letzte Zeile
18.05.2016 21:30:45
Markus
Hallo Werner,
Dankeschön - funktioniert.
Gruß Markus

AW: Gerne u. Danke für die Rückmeldung. o.w.T.
18.05.2016 21:35:27
Werner

Forumthreads zu verwandten Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
formatierte Zelle automatisch nach unten schieben
oblivion

Hallo, ich habe eine Frage zu Zellen.
Ich habe sagen wir in L2-L14 Namen stehen. Die Zellen habe ich mit einem Rahmen formatiert. Jetzt kann es aber passieren, dass ich in L15 die Liste weiterführen muss, da ein neuer Name dazugekommen ist. Gibt es eine einfache Möglichkeit, das, wenn ich i...
20.08.2008 17:36:09
Thread-ID: 1003263
5 Beiträge
makro markierung von Zeilen nach oben und unten
Zeilen

Hallo liebe Excel-Gemeinde,
ich weiss dass es schon viele Beiträge zum Thema "Löschen von Zeilen nach einer Bedingung" gibt, aber ich habe nach langer Suche keine Lösung bzw. Ansatzpunkt gefunden.
Problembeschreibung:
Ich brauche ein Makro, dass in der Spalte 2 nach 2 verschiedenen...
12.09.2008 08:37:02
Thread-ID: 1009273
3 Beiträge
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge
Formel nach unten...
werner

Hallo zusammen,
wenni ch in Zelle D10 z.B. die Formeln = B10+C10 kann ich diese nach unten in Zelle D11,D12.......ziehen um die Formel zu übernehmen.
Meine Frage ist folgende , geht das auch mit = Tabelle1!C9 ,wenn ich da nach unten ziehe solte sich die Formel auch anpassen d.h Tabelle2...
12.01.2009 20:24:00
Thread-ID: 1039009
4 Beiträge
Spalten ausblenden von - bis
-

Hallo an alle Cracks,
habe eine Beispieldatei angehängt. Ich würde gerne in den Zellen B1 und B2 als Eingabe für die Kalenderwochen definieren. z.B. ich gebe von KW 10 bis KW 15 anschließend werden alle Spalten ausgeblendet nur die sollen angezeigt werden in dem Interval von 10 - 15. Könnt...
20.02.2009 11:23:00
Thread-ID: 1052397
6 Beiträge
Leerzeile zählen-nach unten
robert

hi,
kann man-siehe datei- leere zeilen nach unten zählen?
z.B. A6 bis A10 ist leer-sind 5 leerzeilen
in B5 soll 5 stehen
gruß
robert
https://www.herber.de/bbs/user/60378.xls
17.03.2009 09:26:21
Thread-ID: 1061001
3 Beiträge
Formel eintragen bis letzer Wert in anderer Spalte
Jonathan

Hallo zusammen,
ich habe mal wieder eine Frage an euch.
In Spalte E wird in E4 via VBA eine Formel eingetragen. Diese soll nun nun nach unten kopiert werden. Ende sollte der letzte Wert der Spalte F sein.
Wie kann ich das am schnellsten via Makro realisieren? Oder darf ich die Forme...
17.03.2009 17:39:15
Thread-ID: 1061170
4 Beiträge
Zellen nach Kriterium automatisch kopieren
Matthias

Hallo zusammen,
ich würde gerne folgende Aufgabe über ein Makro lösen
Ein Tabellenblatt enthält eine Nummer in C3, dieser Nummer sind in weiteren Spalten (A3, B3, D3,...) Werte zugeordnet.
Wenn nun beispielsweise in C100 die gleiche Nummer wie in C3 eingegeben wird, sollen die Werte...
07.08.2009 12:59:15
Thread-ID: 1094257
5 Beiträge
Markierte Bereich eine Zeile nach unten verschieb.
Nibio

Hallo Profis,
jetzt weiß ich nicht wie ich per makro, eine markierte bereich (z.B A1: EH1) eine Zeile nach unten verschiebe. Ich hoffe es gibt eine Lösung sonst weiß ich nicht mehr weiter.
Gruß
Nibio
20.08.2009 18:13:37
Thread-ID: 1097497
19 Beiträge
Markierte Bereich eine Zeile nach unten verschieb.
Nibio

Hallo Profis,
jetzt weiß ich nicht wie ich per makro, eine markierte bereich (z.B A1: EH1) eine Zeile nach unten verschiebe. Ich hoffe es gibt eine Lösung sonst weiß ich nicht mehr weiter.
Gruß
Nibio
20.08.2009 18:14:06
Thread-ID: 1097498
2 Beiträge
Markierte Bereich eine Zeile nach unten verschieb.
Nibio

Hallo Profis,
jetzt weiß ich nicht wie ich per makro, eine markierte bereich (z.B A1: EH1) eine Zeile nach unten verschiebe. Ich hoffe es gibt eine Lösung sonst weiß ich nicht mehr weiter.
Gruß
Nibio
20.08.2009 18:12:45
Thread-ID: 1097499
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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