Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1212to1216
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
1212to1216
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile aud Tabelle1 in Tabelle2 archivieren

Zeile aud Tabelle1 in Tabelle2 archivieren
Achim
Hallo Gemeinde !
Wie das Leben so spielt :( -Suche schon seit Stunden sämtliche Foren nach einer Lösung zu folgendem Problem:
Grundwerk dieser Situation sind 2 Tabellenblätter (Tabelle1 und Tabelle2)
Das VBA Makro soll...
in Tabelle1 die Zeilen 4 bis 16 abfragen, ob in Spalte K ein Datum steht.
Ist es fündig geworden, soll es diese Zeile ausschneiden und in Tabelle2 an die letzte Zeile anfügen (Also archivieren).
...dann die nächste Zeile... bis Zeile 16
Kann mir hier einer weiterhelfen?
Vielen Dank !

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeile aud Tabelle1 in Tabelle2 archivieren
01.05.2011 21:45:03
fcs
Hallo Achim,
ähnlich wäre hier im Archiv bei entsprechnden Suchbegriffen wohl schon zu finden gewesen.
Gruß
Franz 
Sub Copy_Zeile_mit_Datum()
Dim Zeile1 As Long, Zeile2 As Long
Dim wks1 As Worksheet, wks2 As Worksheet
Set wks1 = Worksheets("Tabelle1") 'Tabellename ggf. anpassen
Set wks2 = Worksheets("Tabelle2") 'Tabellename ggf. anpassen
For Zeile1 = 4 To 16              'zu prüfender Zeilenbereich
'Inhalt Spalte K (11) prüfen
If IsDate(wks1.Cells(Zeile1, 11)) Then
wks1.Rows(Zeile1).Copy
With wks2
'nächste Zeile im Archivblatt ermitteln
Zeile2 = .Cells(.Rows.Count, 11).End(xlUp).Row + 1
'Formate kopieren - nicht erforderlich, wenn Spalten im Archiv-Blatt schon korrekt _
formatiert sind
.Cells(Zeile2, 1).PasteSpecial Paste:=xlPasteFormats
'Wert kopieren
.Cells(Zeile2, 1).PasteSpecial Paste:=xlPasteValues
End With
End If
Next
Application.CutCopyMode = False
End Sub

Anzeige
AW: Zeile aud Tabelle1 in Tabelle2 archivieren
01.05.2011 21:55:11
Achim
Hallo Franz, danke für die schnelle Antwort.
Ja,...vieleicht hätte ich aus 2 Mio Einträgen eine Lösung gefunden.
Aber auch nur vieleicht ;)
Die Lösung ist Punktgenau ! Danke!!
AW: Zeile aud Tabelle1 in Tabelle2 archivieren
01.05.2011 21:59:37
Achim
...haaalt stop ! -Ich wollte doch ausschneiden, nicht kopieren. Wat nu?
AW: Zeile aud Tabelle1 in Tabelle2 archivieren
01.05.2011 23:20:48
Mustafa
Hallo Achim,
dann halt vielleicht so :
Sub Copy_Zeile_mit_Datum()
Dim Zeile1 As Long, Zeile2 As Long
Dim wks1 As Worksheet, wks2 As Worksheet
Set wks1 = Worksheets("Tabelle1") 'Tabellename ggf. anpassen
Set wks2 = Worksheets("Tabelle2") 'Tabellename ggf. anpassen
For Zeile1 = 4 To 16              'zu prüfender Zeilenbereich
'Inhalt Spalte K (11) prüfen
If IsDate(wks1.Cells(Zeile1, 11)) Then
wks1.Rows(Zeile1).Copy
With wks2
'nächste Zeile im Archivblatt ermitteln
Zeile2 = .Cells(.Rows.Count, 11).End(xlUp).Row + 1
'Formate kopieren - nicht erforderlich, wenn Spalten im Archiv-Blatt schon korrekt  _
formatiert sind
.Cells(Zeile2, 1).PasteSpecial Paste:=xlPasteFormats
'Wert kopieren
.Cells(Zeile2, 1).PasteSpecial Paste:=xlPasteValues
End With
'Zeile löschen
wks1.Rows(Zeile1).Delete
Zeile1 = Zeile1 - 1
End If
Next
Application.CutCopyMode = False
End Sub
Gruß aus der Domstadt Köln.
Anzeige
AW: Zeile aud Tabelle1 in Tabelle2 archivieren
02.05.2011 00:31:28
Achim
Yep... Danke, so jeet et !
Viele Grüße an die Domstadt.
Danke für die Rückmeldung owT
02.05.2011 06:01:02
Mustafa

306 Forumthreads zu ähnlichen Themen

Zwei Spalten in jeweils zwei Tabellen miteinander
Lutz

Liebe Leute,
ich habe zwei recht umfangreiche Tabellen mit Lieferdaten und dies in zwei von einander unabhängigen Tabellen.
In der Tabelle1 stehen neben anderen die Spalten Bestellnr. und Materialnr. sowie Lieferantennr. In der Tabelle2 stehen wiederum die Spalten Bestellnr. und Materia...
08.08.2008 15:56:55
Thread-ID: 1000336
4 Beiträge
Anzeige
Tabelle mit Daten aus zweiter Tabelle ergänzen
Fritz_W

Hallo VBA-Experten,
die nachfolgend dargestellte Tabelle "Statistik" möchte ich entsprechend der Daten aus der Tabelle "Daten" Bereich E3:E52 jeweils wie nachfolgend beschrieben erweitern:
In der Tabelle "Daten" können im Bereich E3:E52 bis zu 50 Namen stehen.
Das Makro soll diese N...
19.08.2008 19:49:00
Thread-ID: 1003024
10 Beiträge
Zellinhalt aus anderer Tabelle übernehmen
Marc

Hallo zusammen,
habe ein Problem mit dem ich einfach nicht weiterkomme (wahrscheinlich für Euch kein Problem...!)
Ich möchte aus einer Tabelle Zellinhalte in eine andere Tabelle im gleichen Arbeitsblatt übernehmen, d.h. aus Tabelle 2 soll der Zellinhalt aus D61 in Tabelle 1 in H60 über...
21.08.2008 22:08:00
Thread-ID: 1003658
3 Beiträge
Anzeige
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
Werte in anderes Tabellenblatt übertragen
Bibo

Hallo liebe EXCEL-Freunde,
ich habe in der Online-Suche leider kein Makro gefunden, das ich mit meinen minimalen VBA-Kenntnissen hätte selbständig auf meine Problematik anpassen können und bitte Euch deshalb um Eure Hilfe.
In das Tabellenblatt "Kommission" der Beispielmappe, das als Har...
31.08.2008 17:54:00
Thread-ID: 1006231
4 Beiträge
Wert aus Tabellenblättern in ein anderes Blatt übe
Heiderer

Hallo!
Folgende Ausgangssituation: Ich habe ein Excel-Sheet mit 4 Tabellenblättern. In Tabelle1 stehen all meine gesamten Produkte. In Tablle 2 – 4 stehen jeweils einzelne Produkte. Nun möchte ich, dass wenn ich einen Wert in der Tabelle 2 – 4 schreibe, dieser mir automatisch in die Tabelle...
11.09.2008 06:58:00
Thread-ID: 1008960
6 Beiträge
mehrer Tabellen aus wählen (Liste = Listox)
Rocky

Hallo Excelgemeinde,
ich möchte gerne verschiedene Tabellen blätter auswählen um diese zusammen in eine andere (neue) Datei zu kopieren. Die entsprechenden Tabellen werden in einer Listbox angezeigt.
so z.b (Leihenhaft)
sheets.array(Listbox1.list).copy
Danke für eure Hilfe
...
15.09.2008 12:23:27
Thread-ID: 1009754
5 Beiträge
2 Combobox in UF in Tabelle1 u. Daten in Tabelle 2
Bernhard

Guten Abend liebe Excelprofis,
ich komme nicht weiter, folgende Aufgabenstellung zu lösen:
Ich rufe in Tabelle 1 eine Userform auf, die 2 ComboBoxen hat. (ArtikelNr. ArtikelBezeichnung). In Tabelle 2 stehen in Spalte A die ArtikelNrn. und in Spalte B die ArtikelBezeichnungen untereinand...
17.09.2008 21:32:00
Thread-ID: 1010532
5 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
3
3
9
2
20
7
3
5
4
4
8
2
5
1
3
5
1
6
4
4
1
1
4
11
2