Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
344to348
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
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datensätze aus Tabellen in Gesamt

Datensätze aus Tabellen in Gesamt
02.12.2003 15:15:27
Tanja
Hallo Profis,

für euch wahrscheinlich kein Problem - für mich VBA-Neuling schon...:

Ich würde gerne in meinem vorletzten Blatt alle Datensätze, die in den vorangegangen Tabellenblättern (ausser dem ersten) eingegeben wurden, auflisten.
In den Blättern kann eine unterschiedliche Anzahl an Datensätzen (resp. Zeilen) eingetragen sein, aber im Gesamtblatt sollten keine Lücken entstehen - lieber jeweils eine Leerzeile...

Kann man das mit VBA hinbekommen?

Vielen Dank für die Bemühungen schon im Voraus!

Gruß
Tanja

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datensätze aus Tabellen in Gesamt
02.12.2003 15:38:46
Nike
Hi,
eine kleine Fingerübung zur Abwechslung ;-)


Sub Gesamt()
Dim wks As Worksheet
Dim wksGesamt As Worksheet
Dim lngZzeil As Long
Dim lngZeil As Long
Set wksGesamt = Worksheets(Worksheets.Count - 2)
lngZzeil = 1
For i = 2 To Worksheets.Count - 3
Set wks = Worksheets(i)
lngZeil = 1
Do Until wks.Cells(lngZeil, 1) = ""
wks.Rows(lngZeil).Copy wksGesamt.Rows(lngZzeil)
lngZzeil = lngZzeil + 1
lngZeil = lngZeil + 1
Loop
Next
End Sub


Bye

Nike
Funktioniert Nicht! Datensätze aus Tabellen Ges.
02.12.2003 15:58:58
Tanja
äähm, sorry, da is jetz grad mal gar nix passiert :-(

vielleicht sollte ich noch sagen, dass alle Tabellenblätter (auch das Gesamt) eine (identische) Kopfzeile haben...

Kann mir jemand helfen?
Anzeige
AW: test...
02.12.2003 16:23:31
Nike
Hi,

die Kopfzeile hat eigentlich keinen Einfluß
im Script wird halt auf den Inhalt in Spalte A geprüft,
solange voll dann kopiere, bis die erste leere Zelle kommt.
ich hab die Startzeile jetzt mal auf 2 erhöht, schaun mer mal ;-)
Ansosnten einfach mal ein Beispiel posten,
dann kann man ggf noch andere Fallen sehen...

Bye

Nike


Sub Gesamt()
Dim wks As Worksheet
Dim wksGesamt As Worksheet
Dim lngZzeil As Long
Dim lngZeil As Long
Set wksGesamt = Worksheets(Worksheets.Count - 2)
lngZzeil = 2 ' Startzeile in Gesamttabelle
For i = 2 To Worksheets.Count - 3 ' von der 2ten bis zur vorvorletzten Tabelle
Set wks = Worksheets(i)
lngZeil = 2 ' Startzeile
Do Until wks.Cells(lngZeil, 1) = ""
wks.Rows(lngZeil).Copy wksGesamt.Rows(lngZzeil)
lngZzeil = lngZzeil + 1
lngZeil = lngZeil + 1
Loop
Next
End Sub

Anzeige
AW: test... - negativ!
02.12.2003 17:02:28
Tanja
wo im code wird denn festgelegt, dass in die vorletzte tabelle alle datensätze geschrieben werden sollen?
bislang schreibt es die daten in das 4.letzte Blatt...

ich werd morgen weiter dran rum probieren - auf weitere hilfestellung freu ich mich schon :-)

gruß
tanja
AW: test... - negativ!
02.12.2003 17:14:56
Nike
Hi,

>wo im code wird denn festgelegt, dass in die vorletzte tabelle
>alle datensätze geschrieben werden sollen?
hier:
Set wksGesamt = Worksheets(Worksheets.Count - 2)

Bye

Nike
AW: es geht! - jetzt Zusatzfrage!!!
03.12.2003 09:44:36
Tanja
Guten Morgen Nike und alle anderen Profis,

könnte man die Datensätze jeweils noch um eine Spalte nach rechts verrücken und dann in der ersten Spalte jeweils den Tabellennamen einfügen, aus dem der jeweilige Datensatz stammt?

Bin gespannt!

Vielen Dank im voraus :-)

Gruß
Tanja
Anzeige
AW: es geht! - jetzt Zusatzfrage!!!
03.12.2003 09:59:09
Nike
Hi,
woran hat es denn gelegen, das es jetzt geht?


Sub Gesamt()
Dim wks As Worksheet
Dim wksGesamt As Worksheet
Dim lngZzeil As Long
Dim lngZeil As Long
Set wksGesamt = Worksheets(Worksheets.Count - 2)
lngZzeil = 2 ' Startzeile in Gesamttabelle
For i = 2 To Worksheets.Count - 3 ' von der 2ten bis zur vorvorletzten Tabelle
Set wks = Worksheets(i)
lngZeil = 2 ' Startzeile
Do Until wks.Cells(lngZeil, 1) = ""
wks.Rows(lngZeil).Copy wksGesamt.Rows(lngZzeil)
With wksGesamt.Cells(lngZzeil, 1)
.Insert xlToRight
.Value = wks.Name
End With
lngZzeil = lngZzeil + 1
lngZeil = lngZeil + 1
Loop
Next
End Sub


Bye

Nike
Anzeige
AW: es geht! - jetzt Zusatzfrage!!!
03.12.2003 11:33:19
Tanja
Mein letztes Blatt war keine Tabelle sondern ein Diagramm, deshalb musst ich

Set wksGesamt = Worksheets(Worksheets.Count)

statt der obigen Zeile einsetzen.

Zu dem neuen Problem:
Es wurden korrekt alle Daten eine spalte nach rechts verschoben - nur kommen anstatt der daten aus spalte a (die in gesamt in spalte b erscheinen sollten) gar nicht mehr in gesamt. sie sind durch den tabellennamen ersetzt - der sollte nun aber in spalte a auftauchen.

Kann man das so verstehen?

Vielen Dank für deine Unterstützung :-)
Gruß
Tanja
AW: Kann man das so verstehen? - Nö ;-)
03.12.2003 13:22:37
Nike
Hi,
>Kann man das so verstehen?
Ehrlich gesagt, weniger ;-)

Eigentlich wird hier eine Zelle in Gesamt eingefügt
With wksGesamt.Cells(lngZzeil, 1)
.Insert xlToRight

und hier der Wert in Spalte 1 geschrieben
.Value = wks.Name
End With

Bye

Nike
Anzeige
AW: Kann man das jetzt verstehen?
04.12.2003 16:51:45
Tanja
Okay, ich versuch's nochmal:

so sieht gesamt jetzt aus:
spalte A ist leer
spalte B enthält die Tabellennamen aus denen die Datensätze kommen - die daten, die in den ursprünglichen datensätzen in spalte A standen - jetzt also in b sein sollen - sind überschrieben
ab spalte c ist alles richtig, d. h. b aus datensätzen ist in c, c aus datensätzen steht in d usw.

kann man da noch was machen?

vielen dank und einen gruss
tanja

300 Forumthreads zu ähnlichen Themen

datenimport aus excel in excel
caot

Hi mal wieder!
ich hab mal wieder ne frage:
es sind ca 1200 Excel Dateien aus denen jeweils aus ein paar Zeilen und Spalten die Werte in eine Exceldatei eingelesn werden sollen.
Die Ursprungsdateien sind laufend nummeriert... und dann
kommt noch ein name als nummer- name.xls <...
09.08.2008 11:22:00
Thread-ID: 1000469
3 Beiträge
Anzeige
daten aus Arbeitsmappe einlesen
Peter

Hallo,
kurze Fragestellung an die Experten. Habe mir einen Code zusammengebastelt, der in einer geöffneten Arbeitsmappe, bestimmte Daten aus einer anderen noch "unbestimmten" Arbeitsmappe importieren soll. Funktioniert auch, jedoch kommt mir der Code zu unübersichtlich und auch "unsauber" v...
19.08.2008 13:25:00
Thread-ID: 1002916
3 Beiträge
Daten aus einer Zelle auf mehrere Zellen aufteilen
Gordon

Moin,
ich habe hier einer Zelle (A10) eine bis mehrere Zeichenketten, die jewiels durch ein ";" getrennt werden.
Nun soll jeweils jede Zeichenkette auf drei Zellen aufgespilltet werden:
A1 = Die ersten 10 Zeichen der 1.Kette
B1 = Die nächsten 10 Zeichen der 1.Kette
C1 = Die...
23.08.2008 22:57:00
Thread-ID: 1004183
15 Beiträge
Anzeige
Datenvergleich und danach ausgegebene Info
Merle

Guten morgen alle zusammen!
Hab mal wieder eine Frage. Kriege ständig irgendwelche Listen, die ich zusammenfassen soll.
Hier ein Beispiel meiner Liste:
https://www.herber.de/bbs/user/55376.xls
Ich hätte es gerne, dass wenn ich in der Liste in Tabelle1, nur die Bez. D127 aus dem...
15.09.2008 08:58:00
Thread-ID: 1009662
2 Beiträge
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
Daten aus Zellbereich in eine neue Arbeitsmappe
André

Für eine "Tägliche Auswertung" suche ich ein Makro.
Meine erste Idee war es, hier im Forum zu suchen, ob es da nicht schon was gibt. Leider erfolglos. Ich hab zwar Makros gefunden, die ein neues Wks erstellen mit genau den Vorgaben, die ich brauche und ein Makro zum Zellenbereich kopieren,...
26.09.2008 10:23:00
Thread-ID: 1012532
3 Beiträge
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 08:11:00
Thread-ID: 1013510
6 Beiträge
Daten aus Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 Beiträge

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
2
1
2
14
3
1
4
2
5
2
5
6
4
4
2
1
1
6
1
4
4
1
1
8
2