Zellwerte aus Tabellenblätter in eine Tabelle zusammen führen

Hallo zusammen,
wende mich heute mal persönlich an das Forum, da ich es super finde was Ihr hier leistet.
Für kleinere Aufgaben habe ich das Forum schon öfter benutzt, da mir aber jetzt die Zeit im Nacken sitzt suche ich doch lieber nach direkter Hilfe.
Ich muss aus ca 70 Tabellenblättern, Daten aus verschiedenen Zellen (sind immer die selben Zellen) abfragn und in eine einfache Exceltabelle überführen. Ein Stückweit bin ich schon gekommen aber nun hakt es. Ich habe das file mal angehängt. Die Datentabelle soll im Arbeitsblatt "Daten" entstehen, in die Tabelle 1; 2; usw steen immer an der Selben Zelladresse Daten welche ich übertragen muss.
ieleicht kann mir jemand aus dem "Schwarm" helfen. Ich bedanke mich schon einmal bei Euch.
Das betreffende Makro nennt sich "Daten_Datenbank_Tabellenblatt"Datenbank Servicebericht.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Werte_Zusammenfuegen() Dim ws As Worksheet With Worksheets("Tabelle1") '.Cells.ClearContents For Each ws In ThisWorkbook.Worksheets If ws.Name "Tabelle1" Then .Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 1) = _ Array(ws.Range("A1").Value) End If Next ws End With End Sub

Hallo Vgristoph
probiere es bitte mal mit diesem Code. Er dürfte bedeutend schneller sein, und ohne 70x Bildschirm flackern! Auf Select solltest du komplett verzichten. Das benutzen nur VBA Anfaenger. Es geht auch OHNE Select! Würde mich freuen wenn dir diese Lösung gefaellt.
mfg Piet

Sub Daten_Datenbank_Tabellenblatt()
Dim Prüfer As String
Dim Datum As Date
Dim Kunde As String
Dim Ort As String
Dim KoSt As Variant
Dim WSM1 As Variant
Dim i, a As Integer
Application.ScreenUpdating = False
a = 2 '1.Zeile in Daten Tabelle
For i = 2 To Worksheets.Count
If Worksheets(i).Name  "Daten" Then
With Worksheets(i)
Prüfer = .Range("C3").Value
Datum = .Range("B5").Value
Kunde = .Range("B7").Value
Ort = .Range("D9").Value
KoSt = .Range("E7").Value
WSM1 = .Range("C17").Value
End With
With Worksheets("Daten")
.Cells(a, 2).Value = Prüfer
.Cells(a, 3).Value = Datum
.Cells(a, 4).Value = Kunde
.Cells(a, 5).Value = Ort
.Cells(a, 6).Value = KoSt
.Cells(a, 7).Value = WSM1
a = a + 1  'next Zeile
End With
End If
Next
MsgBox "Fertig"
End Sub

Beliebteste Forumthreads (12 Monate)

Zellwerte aus Tabellenblätter in eine Tabelle zusammen führen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

203 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellwerte aus Tabellenblätter in eine Tabelle zusammen führen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

203 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread