Neue Tabelle einfügen Benutzerdefiniert
26.10.2008 14:01:00
Becker
Habe hier in Fourm gesucht und nicht passendes gefunden.
Ein änliches Code fand ich von "Erich aus Kamp-Lintfort".
Zur gesuchte Lösung;
-möchte gern eine neues Tabellen Blatt einfügen nicht nach "KW" so wie in unteren Code sondern;
-der Makro soll in der Tabelle1 ab Spalte "R2" den Datum suchen. Der Datum z.B. 26.10.2008 steht ab und zu in "R4" oder "R6" oder "R9" auf jeden Fall zwieschen "R2 und R20" steht ein Datum.
Das neue eingefügtes Tabellen Blatt solle dan so heissen "Daten von 26.10.2008"
Kann mir jemand von Euch da weiter helfen?
Für jede kommende Hilfe&Anweisungen danke ich herzlichst im voraus.
Gruß
Daniel
Option Explicit
Sub BlattNeuKW()
Dim strN As String, wks As Worksheet
strN = "KW " & Format(Sheets("Tabelle1").Cells(1, 5), "00")
For Each wks In ActiveWorkbook.Sheets
If wks.Name = strN Then Exit For
Next wks
If wks Is Nothing Then
Worksheets.Add(after:=Sheets(Sheets.Count)).Name = strN
Else
MsgBox "Blatt '" & strN & "' ist schon vorhanden.", vbInformation
End If
End Sub