Ich möchte nur Daten aus bestimmten Sheets in einen anderen Sheet kopieren. Wie mache ich das?

Computer: Software & Programmierung Visual Basic
#1

Ich habe folgende VBA Excel Formel um Daten aus den Tabellenblättern in mein Auswertungstabelle (Tabelle2) zu kopieren. Mein Problem ist, dass ich nicht aus jedem Sheet die Daten haben möchte sondern nur aus denen die auf meinen Klienten bezogen sind.

**Sub Daten_sammeln()
Dim wks As Worksheet
Dim wksZ As Worksheet
Dim lastRow As Long
Set wksZ = Sheets(„Tabelle2“) 'Blatt in dem die Daten gesammelt werden.(Name anpassen)
lastRow = 1 ’ oder 2 wenn die Eintrageung in Zeile zwei beginnen soll
wksZ.Range(„A25:B65536“).ClearContents
For Each wks In ThisWorkbook.Worksheets
If wks.Name wksZ.Name Then
wksZ.Cells(lastRow, 10) = wks.Range(„F3“)
wksZ.Cells(lastRow, 11) = wks.Range(„F9“)
wksZ.Cells(lastRow, 12) = wks.Range(„A2“)
wksZ.Cells(lastRow, 13) = wks.Name
lastRow = lastRow + 1
End If
Next

Dim wks1 As Worksheet
Dim wksZ1 As Worksheet
Dim lastRow1 As Long
Set wksZ = Sheets(„Tabelle2“) 'Blatt in dem die Daten gesammelt werden.(Name anpassen)
lastRow = 18 ’ oder 2 wenn die Eintrageung in Zeile zwei beginnen soll
wksZ.Range(„A25:B65536“).ClearContents
For Each wks In ThisWorkbook.Worksheets
If wks.Name wksZ.Name Then
wksZ.Cells(lastRow, 10) = wks.Range(„F4“)
wksZ.Cells(lastRow, 11) = wks.Range(„F10“)
wksZ.Cells(lastRow, 12) = wks.Range(„A3“)
wksZ.Cells(lastRow, 13) = wks.Name
lastRow = lastRow + 1
End If
Next
End Sub**

Wie kann ich die z.B. ersten 3 Tabellenblätter ausschließen aus meiner Formel. Vielen Dank schon einmal.

#2

Wie kann ich die z.B. ersten 3 Tabellenblätter ausschließen
aus meiner Formel. Vielen Dank schon einmal.

Hallo Carsten,

Option Explicit

Sub Daten\_sammeln()
Dim wks As Worksheet, lastRow As Long, lastRow1 As Long
With Sheets("Tabelle2") 'Blatt in dem die Daten gesammelt werden.(Name anpassen)
 lastRow = 1 ' oder 2 wenn die Eintrageung in Zeile zwei beginnen soll
 lastRow1 = 18 ' oder 2 wenn die Eintrageung in Zeile zwei beginnen soll
 .Range("A25:B65536").ClearContents
 For Each wks In ThisWorkbook.Worksheets
 If wks.Name .Name And wks.Index 

Gruß
Reinhard
#3

Hola,
die Frage ist dank Reinhard super beantwortet. Vielen Dank und bis demnächst.
Carsten

#4

die Frage ist dank Reinhard super beantwortet. Vielen Dank und
bis demnächst.

Hola Carsten,

ich bin irritiert. du wolltest doch die ersten 3 Blätter ausschließen.
Dann muß diese Codezeile
If wks.Name .Name And wks.Index **3 Then
so aussehen
If wks.Name .Name And wks.Index > 3 Then

Gruß
Reinhard**

#5

Hola Reinhard,
das hat auch super funktioniert. Wie gesagt, ich bin noch am Anfang und neu hier im Forum, vielleicht habe ich etwas falsch eingestellt oder erklärt. Dieses Makro hat mit dem anderen nichts zu tun. Zur Erklärung. Ich habe ein Book für jeden Klienten wo in den ersten 3 Sheets Bemerkungen und Vorlagen sind. Ab dem 4. Sheet beginnen die einzelnen Abrechnungen. In dem 1. Sheet sind Schaltflächen, die ich nutze, um Berechnungen (dank dir), allgemeine Daten und Vorlagen unterzubringen. Im 2. und 3. Sheet befinden sich Tabellen für Drop Down Felder und Beschreibungen. In dem 4. Sheet ist das Rohmuster meiner Abrechnung gespeichert unter dem Namen des Klienten. Wenn ich dieses jetzt ausblende, kopiert mir mein Makro den Sheet mit dem Inhalt der Beschreibung. Ich würde es aber gerne ausblenden damit mir nicht ausversehen etwas in mein Muster geschrieben wird. Und da ist mein Problem, wie mache ich das. Mein Makro habe ich ja in meiner Frage beigestellt. Vielen Dank Reinhard für deine schnelle Hilfe
Carsten