Name eines bestimmten Tabellenblatts auslesen!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin andre,
danke Dir für die Antwort. Leider ist das nicht so, wie ich es mir vorgestellt habe. Vor der Tabelle "Gesamtauswertung" befinden sich andere Tabellenblätter. Diese haben den Namen Kalenderwoche und die Kalenderwochenzahl (z. B. Kalenderwoche 32) nun habe ich ein Makro, welches mir ein neues Blatt einfügt und zwar hinter der letzten Kalenderwoche und vor dem Tabellenblatt "Gesamtauswertung". Um nun nicht immer den Namen per Hand zu ändern, dachte ich mir den Namen des Blattes, welches vor der Tabelle "Gesamtauswertung" steht, auszulesen , die Kalenderwochenzahl um eins zu erhöhen und dem neuen Blatt den Namen Kalenderwoche + neue Zahl zu geben. Dafür brauche ich eben eine Möglichkeit den Namen des letzten Blattes vor der Tabelle "Gesamtauswertung" auszuwerten. Mit Deinem Code funktioniert das irgendwie nicht.
Vielleicht hast Du oder jemand anderes noch eine andere Idee?
MfG,
Oliver

Sub Add_New_Sheet() Dim i As Integer, kw As Integer Dim tarName As String, findStr As String Dim tmpWeek As String, tarWeek As Integer tarName = Worksheets(ActiveSheet.Index - 1).Name findStr = InStr(1, tarName, " ") tmpWeek = Right(tarName, Len(tarName) - findStr) tarWeek = CInt(tmpWeek) + 1 Worksheets.Add Worksheets(ActiveSheet.Index) ActiveSheet.Name = "Kalenderwoche " & tarWeek End Sub

n = Worksheets.Count For i = 1 To n If Worksheets(i).Name = "Gesamtauswertung" Then If i > 1 Then wSheetsDavor = Worksheets(i - 1).Name Else 'falls Gesamtauswertung das 1. Blatt ist wSheetsDavor = "*" End If End If Next i

Hi Ramses, Hi Luschi,
sorry, das ich mich erst jetzt bei Euch für die Antworten bedanke, aber ich war verhindert. Ihr habt mir sehr geholfen. Ich habe aus Euren zwei Codes einen fabriziert. Den habe ich, falls es jemanden Interessiert, auch mal nachfolgend aufgeführt.


Sub Neue_Woche_erstellen()
Dim LetzteKW As String, findStr As String
Dim tmpWeek As String, NeueKW As Integer
n = Worksheets.Count
For i = 1 To n
If Worksheets(i).Name = "Gesamtauswertung" Then
If i > 1 Then
LetzteKW = Worksheets(i - 1).Name
Else
'falls Gesamtauswertung das 1. Blatt ist
LetzteKW = "*"
End If
End If
Next i
findStr = InStr(1, LetzteKW, " ")
tmpWeek = Right(LetzteKW, Len(LetzteKW) - findStr)
NeueKW = CInt(tmpWeek) + 1
Sheets("Leerblatt").Copy Before:=Sheets("Gesamtauswertung")
Sheets("Leerblatt (2)").Name = "Kalenderwoche " & NeueKW
End Sub

Nochmals Danke und ich wußte doch, auf dieses Forum ist verlaß. Noch ein schönes Wochende Euch beiden,
Oliver

Beliebteste Forumthreads (12 Monate)

Name eines bestimmten Tabellenblatts auslesen!

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Name eines bestimmten Tabellenblatts auslesen!

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread