Zellbezüge ergänzen wenn neuesTabellenblatt

Liebe Excel-Experten,
Ich möchte eine Tabelle erstellen, die meine Arbeitsaufträge erfasst.
Für jeden Auftrag habe ich ein eigenes Tabellenblatt erstellt. In diesem stehen dann die einzelnen Arbeitsschritte, ob sie erledigt sind oder in welchem Status sie sich befinden. Diese Tabellenblätter sind bereits fertig
Gewisse Werte aus diesen Tabellenblättern möchte ich in einem übergeordneten Tabellenblatt automatisch auflisten lassen. So dass ich gleich sehe, in welchem Status sich die einzelnen Aufträge befinden. Ich will pro Auftrag gewisse Werte in der Liste sehen.
So soll es sein:
Wenn ich einen neuen Auftrag, also ein neues Tabellenblatt hinzufüge (per Makro, als leere Kopie eines vorhandenen Auftrages), sollten die gewünschten Werte dieses neuen Tabellenblattes automatisch der Auftragsliste als neue Zeile hinzugefügt werden.
Falls ich ein Auftragstabellenblatt lösche, sollte es auch aus der Auftragsliste verschwinden.
Beispiel: Der Wert Tabellenblatt1!D2 soll im Tabellenblatt "Auftragsübersicht" in Zelle A1 stehen.
Kommt ein neues "Tabellenblatt2" dazu, soll in Tabellenblatt "Auftragsübersicht" der Wert Tabellenblatt!D2 in Zelle A2 Von Auftragsübersicht stehen.
Weitere neue Tabellenblätter fügen sich wieder eine Zeile Tiefer in der Auftragsübersicht hinzu.
Sicherlich ist das nur per VBA zu machen. Aber leider kann ich nicht mehr, als ein Makro aufzeichnen und es ggf. geringfüging anpassen.
Falls mir jemand für mein "Problem" einen VBA-Schnippsel schreiben kann, würde ich mich sehr freuen. Vielleicht geht es auch einfacher...?
Ich freue mich auf Antworten - vielen Dank im Voraus.
Jens

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jens,
hier ein Makro, dass deine Wunschliste abarbeitet.
Die Daten werden ab Zeile 2 eingetragen.
Zeile 1 kannst du für Spaltentitel nutzen.
Alternativ mit etwas Handarbeit könntest du in einer Spalte die Blattnamen eintragen und mit der Funktion INDIREKT arbeiten.
Dann müsstest du bei einem neuen Blatt eine vorhanden Zeile kopieren und den Blattnamen anpassen, bei einem weggefallenen Blatt die Zeile oder einen anderen Namen eintragen.
Formelbeispiel:

Blattname	Feld01	Feld02
Tabelle10	Test	100%
Tabelle11	Test 44	50%
B2: =WENN($A2="";"";INDIREKT("'"&$A2 & "'!D2";WAHR))
C2: =WENN($A2="";"";INDIREKT("'"&$A2 & "'!F2";WAHR))

Gruß
Franz

'Code im Modul des Blatts "Auftragsübersicht
Private Sub Worksheet_Activate()
'Übersicht aktualisieren
Dim wks As Worksheet, strName As String
Dim rngFind As Range, lngZeile As Long
Const SpaBlattName = 10 'Spalte J = Spalte mit Blattnamen ggf. anpassen
'Prüfen ob Blattnamen in Spalte  noch vorhanden
For lngZeile = Cells(Rows.Count, SpaBlattName).End(xlUp).Row To 2 Step -1
strName = Cells(lngZeile, SpaBlattName).Text
If fncCheckSheet(strName) = False Then
Rows(lngZeile).Delete
End If
Next
For Each wks In ActiveWorkbook.Worksheets
Select Case wks.Name
Case "Auftragsübersicht", "Tabelle XYZ"
'diese Tabellen nicht in Übersicht listen
Case Else
strName = wks.Name
'Blattname in Spalte A der Übersicht suchen
Set rngFind = Columns(SpaBlattName).Find(What:=strName, LookIn:=xlValues, lookat:= _
xlWhole)
If rngFind Is Nothing Then
'neues Blatt
lngZeile = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(lngZeile, 1).FormulaLocal = "='" & strName & "'!$D$2"
Cells(lngZeile, 2).FormulaLocal = "='" & strName & "'!$F$2"
'usw.
Cells(lngZeile, SpaBlattName) = "'" & strName 'erforderlich für Datenabgleich!!
Else
'Blatt schon in Liste
End If
End Select
Next
End Sub
Function fncCheckSheet(strText, Optional wkb As Workbook) As Boolean
'Überprüft, ob Blatt mit Name strText in der Arbeitsmappe vorhanden ist
Dim objSheet As Object
On Error GoTo Fehler
If wkb Is Nothing Then Set wkb = ActiveWorkbook
Set objSheet = wkb.Sheets(strText)
fncCheckSheet = True
Exit Function
Fehler:
End Function

'neues Blatt lngZeile = Cells(Rows.Count, 1).End(xlUp).Row + 1 Cells(lngZeile, 2).FormulaLocal = "='" & strName & "'!$B$4" '2 = Spalte B Cells(lngZeile, 3).FormulaLocal = "='" & strName & "'!$C$4" '3 = Spalte C 'usw. Cells(lngZeile, SpaBlattName) = "'" & strName 'erforderlich für Datenabgleich!!

Beliebteste Forumthreads (12 Monate)

Zellbezüge ergänzen wenn neuesTabellenblatt

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread