Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 12:57:21
Makro für aktuell geöffn. Datei mit gleichen Namen speichern
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1676to1680
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
1676to1680
1676to1680
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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
Anzeige

304 Forumthreads zu ähnlichen 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
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
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
Anzeige
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
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
2
2
1
1
1
4
8
9
7
5
2
11
1
6
9
10
2
9
12
5
2
3
6
2
1