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
1808to1812
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
1808to1812
1808to1812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten auf neues Tabellenblatt kopieren

Spalten auf neues Tabellenblatt kopieren
25.01.2021 14:22:24
SK
Guten Tag zusammen,
ich verzweifle grade trotz Recherche daran Zeilen aus einem Tabellenblatt in ein anderes zu Übertragen wenn in einer bestimmten Spalte der Zeile ein Wert vorhanden ist.
In den Spalten D-G von Tabelle 1 stehen Datumsangaben, in der Spalte I Km- Angaben.
Mittwoch, 13. Januar 2021 09:00:00 18:48:00 09:48:00 521,5 Km
Mittwoch, 13. Januar 2021 12:30:00 16:00:00 03:30:00
Donnerstag, 14. Januar 2021 08:32:00 10:48:00 02:16:00 110,0 Km
Donnerstag, 14. Januar 2021 09:28:00 09:53:00 00:25:00
In Tabelle 2 möchte ich nun alle Spalten aufgelistet bekommen in denen eine KM Angabe vorhanden ist.
Mittwoch, 13. Januar 2021 09:00:00 18:48:00 09:48:00 521,5 Km
Donnerstag, 14. Januar 2021 08:32:00 10:48:00 02:16:00 110,0 Km
Bin für jede Hilfe dankbar. VG

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten auf neues Tabellenblatt kopieren
25.01.2021 14:26:38
SK
Es sollte natürlich Zeinen und nicht Spalten heissen was übergeben werden soll
AW: Spalten auf neues Tabellenblatt kopieren
25.01.2021 14:29:00
Werner
Hallo,
warum nicht einfach die Kilometerspalte nach ungleich leer filtern und das Filterergebnis kopieren?
Gruß Werner
AW: Spalten auf neues Tabellenblatt kopieren
25.01.2021 14:32:56
SK
Für den Notfall ist das sogar eine gute Idee, wäre aber wenn ich das jetzt recht interpretiere eine händische Lösung. Nach Möglichkeit hätte ich es aber gerne selbst aktualisierend.
AW: Spalten auf neues Tabellenblatt kopieren
25.01.2021 15:05:04
Günther
Moin,
wenn dir ein Mausklick auf "Aktualisieren" Automatismus genug ist, dann gehe den Weg über Daten | Abrufen und transformieren aka Power Query.
 
Gruß
Günther  |  mein Excel-Blog
Anzeige
AW: Spalten auf neues Tabellenblatt kopieren
25.01.2021 15:16:07
SK
Ich habe zwischendrin mal mit VBA experimentiert, aber irgendwie erscheint im Blatt 2 gar nichts...
In Blatt 2:
Private Sub Worksheet_Activate()
Dim i As Long, j As Long
j = 7
For i = 2 To Sheets("Blatt 1").Cells(Rows.Count, "I").End(xlUp).Row
If Sheets("Blatt 1").Cells(i, "I")  "" Then
Range(Cells(i, "A"), Cells(i, "F")).Copy _
Destination:=Sheets("Blatt 2").Range("C" & j)
j = j + 1
End If
Next
End Sub
Irgend eine Idee?
AW: Spalten auf neues Tabellenblatt kopieren
25.01.2021 15:28:04
Werner
Hallo,
lade eine Beispielmappe hoch, die in ihrem Aufbau exakt dem Original entspricht. 10-15 Datensätze reichen.
Gruß Werner
Anzeige
AW: Spalten auf neues Tabellenblatt kopieren
25.01.2021 21:44:09
SK
Bin wieder ein Stück weiter...
Als eigenständiges Modul funktioniert wunderbar :
Sub cop()
Dim i As Long, j As Long
j = 4
For i = 1 To Sheets("Blatt 1").Cells(Rows.Count, "I").End(xlUp).Row
If Sheets("Blatt 1").Cells(i, "I")  "" Then
Range(Sheets("Blatt 1").Cells(i, "A"), Sheets("Blatt 1").Cells(i, "D")).Copy _
Destination:=Sheets("Blatt 2").Range("A" & j)
Sheets("Blatt 1").Cells(i, "I").Copy _
Destination:=Sheets("Blatt 2").Range("E" & j)
j = j + 1
End If
Next
End Sub
wenn ich das allerdings in ein Worksheet_activate verpacke bekomme ich die Fehlermeldung:
Laufzeitfehler 1004, die Methode Range für das Objekt Worksheet fehlgeschlagen.
Warum?
Anzeige
AW: Spalten auf neues Tabellenblatt kopieren
25.01.2021 23:54:53
ralf_b 

Sub cop()
Dim i As Long, j As Long
j = 4
With Sheets("Blatt 1")
For i = 1 To .Cells(Rows.Count, "I").End(xlUp).Row
If .Cells(i, "I")  "" Then
Range("A" & j).Resize(, 3).Value = .Cells(i, "A").Resize(, 3).Value
Range("E" & j).Value = .Cells(i, "I").Value
j = j + 1
End If
Next
End With
End Sub

AW: Spalten auf neues Tabellenblatt kopieren
25.01.2021 23:58:42
Werner
Hallo,
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Cells.ClearContents
With Worksheets("Blatt 1")
.Range(.Cells(2, "A"), .Cells(.Cells(.Rows.Count, "A") _
.End(xlUp).Row, "I")).Copy Cells(4, "A")
End With
On Error Resume Next
Range(Cells(4, "I"), Cells(Cells(Rows.Count, "A").End(xlUp).Row, "I")) _
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Columns("E:I").ClearContents
End Sub
Gruß Werner
Anzeige
AW: Spalten auf neues Tabellenblatt kopieren
26.01.2021 13:06:08
SK
Vielen Dank, ihr habt mir sehr geholfen.
ich habe Teile eurer Codes noch eingepflegt und das fertige Ergebnis sieht jetzt so aus:
Private Sub Worksheet_Activate()
Dim Bereich As Range
Dim i As Long, j As Long
'----------- Blatt säubern --------------
Cells.ClearContents
'----------- Werte übertragen
j = 6
With Sheets("Blatt 1")
For i = 3 To .Cells(Rows.Count, "I").End(xlUp).Row
If .Cells(i, "I")  "" Then
Range("A" & j).Resize(, 4).Value = .Cells(i, "A").Resize(, 4).Value
Range("E" & j).Value = .Cells(i, "I").Value
j = j + 1
End If
Next
End With
'----------- Kilometer summieren
Set Bereich = Sheets("Blatt 2").Range("E3:E" & Sheets("Blatt 2").Cells(Rows.Count, "A").End( _
xlUp).Row)
Sheets("Blatt 2").Range("E4").Value = Application.WorksheetFunction.Sum(Bereich)
'----------- Überschriften
Sheets("Blatt 2").Range("A3").Value = "Projektnummer"
Sheets("Blatt 2").Range("B3").Value = "Kunde"
Sheets("Blatt 2").Range("C3").Value = "Projekt"
Sheets("Blatt 2").Range("D3").Value = "Datum"
Sheets("Blatt 2").Range("E3").Value = "Strecke"
Sheets("Blatt 2").Range("A1").Value = "Fahrtenaufstellung"
'----------- Formatierungen
Range("A3:E4").Select
With Selection.Font
.Size = 12
End With
Selection.Font.Bold = True
Range("E4").Select
Selection.Font.Underline = xlUnderlineStyleDouble
Columns("E:E").Select
Selection.NumberFormat = "0.0 ""Km"""
Range("A1:E1").Select
With Selection
.MergeCells = True
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 14
.Underline = xlUnderlineStyleSingle
End With
Sheets("Blatt 2").Range("A1:Z" & Sheets("Blatt 2").Cells(Rows.Count, "A").End(xlUp).Row). _
HorizontalAlignment = xlLeft
Cells.EntireColumn.AutoFit
End Sub

Anzeige

300 Forumthreads zu ähnlichen Themen

Spalten als Zeilen ziehen
Timo

Hallo,
ich habe ein relativ simples problem und hoffe, es auch möglichst simpel beschreiben zu können:
In einer Spalte (Sagen wir Spalte A) habe ich untereinander verschiedenen Werte stehen.
Jetzt möchte ich gern auf einem anderen Tabellenblatt genau diese Werte in eine Zeile sch...
03.09.2008 11:43:00
Thread-ID: 1007060
5 Beiträge
Anzeige
Spalten vergleichen und Ausgabe in neues Worksheet
Bolo

Hallo liebe Community,
ich habe hier eine Tabelle in der in Zeile 4 verschiedene Daten (von Datum) stehen.
Bsp.:
C4+D4=01.01.2009 / E4+F4=02.01.2009 / G4+H4=03.01.2009 usw.
So in C5 und D5 (...) stehen Werte. Es gibt immer für jeden Tag 2 Werte.
Nun soll das Makro die beiden...
01.04.2009 15:21:36
Thread-ID: 1066031
3 Beiträge
Kann keine Spalten mehr im Sheet hinzufügen
vux

Hallo,
einfaches Prob. - mein Sheet ist irgendwie von der Spaltenanzahl beschränkt: bin bei Spalte "IV" und kann keine Spalten mehr hinzufügen.
Excel 2003, hab ein Sheet aus SPSS rüberkopiert.
Wie kann ich das fixen? Oder ist Excel in der Tat ab Spalte "IV" zu?
Danke!
08.05.2009 19:12:57
Thread-ID: 1073991
5 Beiträge
Anzeige
Spalten H & I in ein neues Tabellenblatt kopieren
Henning

Hallo zusammen,
wie man schon an meinem Level erkenne kann, bin ich ein Anfänger was VBA angeht.
Nun zu meinem Problem.
Ich habe ein Tabellenblatt mit dem Namen "Stammdaten" in diesem fängt
ab der 18 Zeile in den Spalten H und I folgende Tabelle an. Es folgen noch weitere Spalt...
23.11.2009 22:01:03
Thread-ID: 1119606
7 Beiträge
Einfügen von Bildern in Kommentar geht nicht mehr
Bildern

Hallo zusammen,
ich habe ein Problem mit folgenden Codezeilen:
For spalte = 4 To 13
'*********
If Cells(zeile, spalte).Hyperlinks.Count 1 Then 'Abfrage, ob Hyperlink vorhanden
GoTo weiter2
Else
Dim mycom As Object
On Error Resume Next
Pfad = ActiveWorkbook.P...
30.11.2009 15:34:28
Thread-ID: 1121036
2 Beiträge
makro geht nach Spalten einfügen nicht mehr
morbiuz

Hallo liebes Forum,
Möchte ich in einem Makro den Wert aus der Zelle A1 auslesen, geht das ja ohne probleme mit...
variable = tabelle1.range("a1").value
Fügt ein User jedoch manuell 2 Spalten ein, verschiebt sich ja die Original Zelle auf die Zelle C1.
Wie muss ich meine Zelle f...
19.05.2010 18:33:41
Thread-ID: 1157897
3 Beiträge
Spalten markieren und in neue Datei speichern
Thomas

Hallo alle zusammen,
ich habe hier eine Aufgabenstellung und komme einfach nicht weiter.
Ich möchte folgendes Problem lösen:
In meiner Excel-Datei sind 40.000 Zellen die in neue Excel-Dateien verteilt werden sollen, jeweils 2000 Zeilen in einer Datei.
Also muss das Skript die er...
15.09.2010 10:08:26
Thread-ID: 1177645
2 Beiträge
Spalteninhalte auslesen u. in neue Tab. schreiben
Peter

Liebe Excelcracks
Ich habe folgendes Problem:
Ich habe eine Exceldatei mit ca. 160 Tabellenblättern. Aus jedem Tabellenblatt brauche ich die Eintragungen aus den Spalten B, C, D und E. Diese sollen untereinander in einem neuen Tabellenblatt aufgelistet werden. Hier das Beispiel mal mit...
30.11.2010 13:06:08
Thread-ID: 1189317
3 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
12
2
4
1
6
1
2
1
2
4
4
8
6
4
2
9
8
1
14
3
8
4
1
8