Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige