Daten in Tabellenblätter aus Übersicht
Thomas
dank der Unterstützung dieses Forums habe ich eine Excel Datei mit vielen Tabellenblättern und einer Übersicht als Gesamttabellenblatt schaffen können.
In diesem Gesamtblatt werden zur Analyse einzelne Zellen ausgelesen und in Zeilen dargestellt.
Dies erfolgt mittels:
Function Tabellenblatt(SheetNr As Integer) As String
If SheetNr Worksheets.Count Then 'Wenn Blattnummer ungültig, dann
Tabellenblatt = "" 'leeren String zurückgeben
Else
Tabellenblatt = Worksheets(SheetNr).name 'Name des Blattes als Funktionsergebnis
End If
End Function
Nun würde ich gern in die Zellen BC15, BC16 der einzelnen Tabellenblätter usw Werte aus dem Gesamtblatt aus Spalte EO, EQ usw wieder zurücktragen lassen. Dies am besten per Schaltfläche das er nicht permanent die Werte übernimmt.
Dies wollte ich über den folgenden Code machen:
Private Sub CommandButton7_Click()
Dim zeile As Long
On Error GoTo ERRORHANDLER
If Not Intersect(Target, [EO5:EV28]) Is Nothing Then
For zeile = Target.Row To Target.Row + Target.Rows.Count - 1
With Sheets(Cells(zeile, 1).Text) 'Die Tabelle aus Spalte "A"
.Range("BC15") = Cells(zeile, 145)
.Range("BC17") = Cells(zeile, 147)
.Range("BC19") = Cells(zeile, 148)
.Range("BC22") = Cells(zeile, 151)
.Range("BC20") = Cells(zeile, 149)
.Range("BC23") = Cells(zeile, 152)
.Range("BC21") = Cells(zeile, 150)
End With
Resume01:
Next
End If
Exit Sub
ERRORHANDLER:
Resume Resume01
End Sub
Leider passiert hier nichts und ich bräuchte Unterstützung!
Danke, Tom