Zeilen auslesen aufgrund eines Suchbegriffs | Herbers Excel-Forum

Hallo zusammen
Ich muss aus einer Gesamtliste zuerst die Buchungskreise auslesen, dann aufgrund dieser Auswertung Tabellenblätter pro Kreis erstellen und den Namen in die jeweilige Tabelle reinschreiben. Bisher sind all diese Anforderungen mit Eurer Hilfe zustande gekommen.
Nun müsste in jedem Tabellenblatt die dazugehörigen Daten (ein bestimmter Bereich einer Zeile) aus der Gesamtliste gezogen werden. Das Suchkriterium ist der Tabellenname, welcher ja bereits in der Tabelle steht.
Ich habe hier http://forum.fachinformatiker.de/basic/117533-bestimmte-zeilen-auslesen-excel-tabelle-2.html einen Ansatz zu diesem Problem gefunden. Ich möchte jedoch keine neue Tabelle erstellen, sondern die Bestehenden füllen.
Wer kann mir hierbei weiterhelfen? Da ich wirklich weit weg von meinen bisherigen Kenntnisse rumlaufe, bitte ich auch um Hinweise, was ich mitteilen muss damit eine Lösung erstellt werden kann. Vielen Dank!
Gruss
Frédéric

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub DatenErgaenzen() Dim wbAktiv As Workbook, wksGesamt As Worksheet, wksZiel As Worksheet Dim vSuchen, Zelle As Range, Zeile As Long Set wbAktiv = ActiveWorkbook Set wksGesamt = wbAktiv.Worksheets("Gesamtliste") 'Name anpassen For Each wksZiel In wbAktiv.Worksheets Select Case wksZiel.Name Case "Gesamtliste", "TabelleXYZ" 'In diese Tabellenblätter soll nichts eingetragen werden _ Namen ergänzen/anpassen Case Else vSuchen = wksZiel.Name 'in Gesamtliste zu suchender Name/Buchungskreis With wksGesamt 'Buchungskreis in Spalte C der Gesamtliste suchen (Spalte anpassen!!) Set Zelle = .Range("C:C").Find(what:=vSuchen, LookIn:=xlValues, lookat:=xlWhole) If Zelle Is Nothing Then MsgBox "Buchungskreis """ & vSuchen & """ in Gesamtliste nicht gefunden" Else Zeile = Zelle.Row 'In Bereich A3:D3 des Buchungsblatts die Daten aus Spalte D(4) bis G(7) _ der Zeile eintragen. 'Bereiche anpassen! wksZiel.Range("A3:D3").Value = .Range(.Cells(Zeile, 4), .Cells(Zeile, 7)).Value 'ggf. weiter Daten übertragen End If End With End Select Next End Sub

Hallo Franz
Vielen Dank für Deine Hilfe. Habe die ersten Anpassungen gemacht, aber es funktioniert nicht richtig.
Angepasster Code:

Sub Daten_auslesen()
Dim wbAktiv As Workbook, wksGesamt As Worksheet, wksZiel As Worksheet
Dim vSuchen, Zelle As Range, Zeile As Long
Set wbAktiv = ActiveWorkbook
Set wksGesamt = wbAktiv.Worksheets("Bearbeitete Liste") 'Name anpassen
For Each wksZiel In wbAktiv.Worksheets
Select Case wksZiel.Name
Case "Change Log", "Makros starten", "BuKr filtern", "BuKr Reiter", "Bearbeitete Liste" ' _
In diese Tabellenblätter soll nichts eingetragen werden _
Namen ergänzen/anpassen
Case Else
vSuchen = wksZiel.Name 'in Gesamtliste zu suchender Name/Buchungskreis
With wksGesamt
Set Zelle = .Range("A:A").Find(what:=vSuchen, LookIn:=xlValues, lookat:=xlWhole) ' _
Buchungskreis in Spalte A der Gesamtliste suchen
If Zelle Is Nothing Then
MsgBox "Buchungskreis """ & vSuchen & """ in Bearbeitete Liste nicht gefunden"
Else
Zeile = Zelle.Row
wksZiel.Range("C2:L2").Value = .Range(.Cells(Zeile, 3), .Cells(Zeile, 12)).Value ' _
In Bereich A3:D3 des Buchungsblatts die Daten aus Spalte D(4) bis G(7) _
der Zeile eintragen.      'Bereiche anpassen!
'ggf. weiter Daten übertragen
End If
End With
End Select
Next
End Sub

Die Daten liegen alle in der Tabelle "Bearbeitete Liste". Der Suchbegriff befindet sich ein den automatisch erstellen Blätter (befinden sich alle hinter der Liste) im Feld A1.
Kannst Du mir weiterhelfen?
Gruss
Frédéric

Beliebteste Forumthreads (12 Monate)

Zeilen auslesen aufgrund eines Suchbegriffs | Herbers Excel-Forum

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

68 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen auslesen aufgrund eines Suchbegriffs | Herbers Excel-Forum

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

68 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread