Tabellenblatt-Name aus Zelle zuweisen
11.10.2004 08:18:41
Martin
Habe da ein Problem mit einem Makro:
Sub Makro2()
Dim Kostenstelle As Integer
Dim i As Integer
For i = 92 To 800
Sheets("Daten").Activate
If Range("C" & i).Value = "990004" Then
Range("C" & i + 1).EntireRow.Insert
Range("C" & i).CurrentRegion.Copy
Sheets.Add.Activate
Range("A1").PasteSpecial xlPasteAll
Kostenstelle = ActiveSheet.Range("A1").Value
ActiveSheet.Name = Kostenstelle
Sheets("Daten").Activate
End If
Next i
End Sub
Die Variable Kostenstelle wird nicht gefüllt. Ich will, daß das Tabellenblatt genau so heißt wie der Wert im Range A1 in eben diesen neuen Tabellenblatt!
Hat jemand von Euch eine Idee für mich?
Vielen Dank.
Martin
Anzeige