Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1676to1680
1676to1680
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellwerte aus Tabellenblättern kopieren

Forumthread: Zellwerte aus Tabellenblättern kopieren

Zellwerte aus Tabellenblättern kopieren
04.03.2019 10:46:09
Gerhard
Hallo zusammen
Ich benötige wieder einmal Eure VBA Kenntnisse!
Es sollen aus allen Tabellenblättern jeweils die Zellen A1 und N1
in das Tabellenblatt Übersicht
untereinander kopiert werden.
(Achtung:Täglich kommen neue Tabellen hinzu!)
siehe beiliegende Testmappe
Vielen Dank für Eure Hilfe
Gruß Gerhard
https://www.herber.de/bbs/user/128084.xlsm
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellwerte aus Tabellenblättern kopieren
04.03.2019 11:07:21
hary
Moin
Eine Moeglichkeit. 
Sub einfuegen()
Dim wks As Worksheet
Dim naechste As Long
With Worksheets("Übersicht")
.Range("A:B").ClearContents
For Each wks In Worksheets
If wks.Name  "Übersicht" Then
naechste = IIf(.Cells(1, 1) = "", 1, .Cells(Rows.Count, 1).End(xlUp).Row + 1)
Union(wks.Range("A1"), wks.Range("N1")).Copy
.Cells(naechste, 1).PasteSpecial Paste:=xlValues
End If
Next
End With
End Sub

gruss hary
Anzeige
AW: Zellwerte aus Tabellenblättern kopieren
04.03.2019 11:10:47
Bernd
Servus Gerhard,
teste mal... 

Sub test()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name  "Übersicht" Then
ws.Cells(1, 1).Copy Destination:=Sheets("Übersicht").Cells(Sheets("Übersicht").Cells( _
Rows.Count, 1).End(xlUp).Row + 1, 1)
ws.Cells(1, 14).Copy Destination:=Sheets("Übersicht").Cells(Sheets("Übersicht").Cells( _
Rows.Count, 2).End(xlUp).Row + 1, 2)
Else
ws.UsedRange.ClearContents
End If
Next ws
End Sub
Grüße, Bernd
Anzeige
AW: Zellwerte aus Tabellenblättern kopieren
04.03.2019 11:15:46
EtoPHG
Hallo Gerhard,
Diesen Code in das Tabellenblatt "Übersicht" 
Private Sub Worksheet_Activate()
Dim wsIx As Long
If WorksheetFunction.CountA(Columns(1))  ThisWorkbook.Worksheets.Count Then
For wsIx = 2 To ThisWorkbook.Worksheets.Count
Worksheets(wsIx).Cells(1, 1).Copy Cells(wsIx - 1, 1)
Worksheets(wsIx).Cells(1, 14).Copy Cells(wsIx - 1, 2)
Next wsIx
End If
End Sub
Es ist ein Blattwechsel von "Übersicht" zu anderem Blatt und zurück nötig, damit der Code die Daten nachführt.
Gruess Hansueli
Anzeige
AW: Zellwerte aus Tabellenblättern kopieren
04.03.2019 12:50:06
Gerhard
Hallo zusammen,
Vielen Dank für Eure schnelle Hilfe
Die Makros funktionieren Alle
Vielen Dank
Gruß Gerhard
;

Forumthreads zu verwandten Themen

Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Zellwerte aus markierten Tabellen übertragen
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Ich benötige nur die Ergebnisse der markierten Tabellenblätter. Diese in den markierten Tabellen...
06.09.2008 17:29:20
Thread-ID: 1007869
3 Beiträge
Anzeige
Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
Anzeige
Bestimmten wert aus anderer Tabelle ermittlen.
Torsten

stehe gerade etwas auf dem schlauch....grummel sehe bestimmt den formel vor zeilen nicht ;)
also mal meion problem mal kurz umrissen:
Tabelle A - sheet1
Spalte B : Nummern
Spalte G : Bezeichner
Tabelle B - sheet2
Spalte G : Nummern
Spalte H : Bezeichner
erklärung...
10.09.2008 17:31:48
Thread-ID: 1008877
2 Beiträge
Werte aus Tabelle finden
Florian

Hallo und Guten Morgen,
ich habe ein kleines Problem!
Ich habe eine Tabelle (Matrix), die Vergütungsgruppen und deren Unterteilung in Stufen, enthält.
Hier ist die Datei: https://www.herber.de/bbs/user/56583.xls
Wie kann ich für die Mitarbeiter z. B. in den Zellen "D2" bis "D7"...
07.11.2008 08:56:00
Thread-ID: 1022516
2 Beiträge
doppelte werte im Array aus Tabelle (dim)
chris

Hallo VBA Profis und guten morgen,
ich habe eine frage zu einem Code wie ich diesen am besten erstelle.
Ich habe eine Tabelle mit daten in einer Spalte(untereinander)
Jetzt möchte ich diese zeile mit diesem Makro einlesen aber nur einmal vorkommende werte.
Also wenn ein Wert dop...
15.01.2009 07:43:25
Thread-ID: 1039878
5 Beiträge
Werte einfügen aus Array in Tabelle mehrere Rows
chris

Hallo VBA Profis,
eine frage würde mich sehr über Hilfe freuen.
Dafür bedenke ich mich im vorraus.
ich habe den Code unten und will die Daten aus dem Array meArea2
in ein Tabellenblatt einfügen ab der zeile 2 also A2
Aber irgendwie schaffe ich es nicht.
habe es schon mi...
15.01.2009 10:13:00
Thread-ID: 1039973
9 Beiträge
Werte aus allen Tabellen in ein Tabelle zusammenfü
Kurt

Hallo Zusammen,
ich möchte gern alle Werte aus den vorhandenen Tabellen in eine Tabelle eingelesen werden.
Es dürfen nur nicht aus der "Muster + Alle" Tabelle, geht das per Makro?
Aus folgenden Zellen sollen alle Werte addiert in die "Alle" Tabelle reingesetzt werden.
D17 + D17<...
16.01.2009 16:14:00
Thread-ID: 1040622
10 Beiträge
Werte aus Abfragetabelle uebertragen
d4t4l0g1c

Hallo,
ich habe eine Tabelle, in der als Ergebnis einer immer wieder aktualisierbaren Abfrage (u.a.) Spalten mit Artikeln, Lieferterminen und Mengen stehen. Da es für einen Artikel mehrere Liefertermine geben kann, gibt es in der Regel für einen Artikel mehrere Datenzeilen zu Termin und Me...
30.01.2009 21:58:53
Thread-ID: 1045542
8 Beiträge
Werte aus geschlossenen Tabellenblättern übernehme
chsarto

Hallo,
irgendwie suche ich verkehrt , ich finde einfach nicht die Lösung zu meinem Problem.
Ich habe eine Tabelle mit aktuell 10 Tabellenblättern,diese werden aber stetig mehr, per Makro lese ich die Namen der Tabellenblätter aus und füge den Link zu den Blättern auf einem neuen Blatt "...
24.02.2009 15:11:02
Thread-ID: 1053542
6 Beiträge
Pivot Tabellen weiter auswerten
Christoph

Hallo,
ich werte meine Dienstleistungen, die aktenzeichenbezogen in eine Liste eingegeben werden mit Hilfe einer Pivottabelle aus. D.h. ich gebe in einer fortlaufenden Tabelle (mit inzwischen 6000 Zeilen !!!) Datum, Aktenzeichen, Modul und Zeit (01:30) ein. Insgesamt gibt es 5 Beratungsmod...
26.02.2009 14:18:54
Thread-ID: 1054384
3 Beiträge
Tabelle auswerten und, Zelle zusammenzählen + kop.
Micha

Hallo zusammen!
Ich hoffe Ihr könnt mir bei meinem Problem helfen, da ich schon einiges versucht habe, aber nicht qirklich weiter komme.
.....A....B....C....D....E....F
1..Apfel
2..Birne
3..Pflaume
4..Apfel
5..Birne
Hier möchte ich Äpfel + Birnen zusammenzählen,...
16.03.2009 16:52:38
Thread-ID: 1060832
12 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige