Sheet-Name mit Zähler
14.02.2004 19:07:55
Christoph
mit Hilfe einer UserForm erstelle ich Diagramme (jeweils als neues Sheet).
Die für die Diagramme relevanten Tabellenbereiche können in ComboBoxes ausgewählt werden. Das funktioniert alles bestens.
Aus den gewählten Einträgen in den ComboBoxes erzeuge ich ebenfalls den Namen des neuen Sheets. ("DiagrName = CoBox1 & "-" & CoBox2")
Mein Problem:
Wenn ein und dieselbe Auswahl der ComboBox-Werte öfters vorkommt, dann werden
die Sheet-Namen doppelt vergeben (was logischerweise zu einem Fehler führt).
Dies möchte ich abfangen, indem ein für diese Auswahl spezifischer Zähler
angehängt wird.
Bsp: ab-cd, ab-cd(1), ef-gh, ef-gh(1), ef-gh(2), ...
Der untenstehende Code ist leider noch völlig unvollständig und falsch.
Aber vielleicht könnt ihr mit helfen:
Sub Test()
Dim DiagrName As String
Dim i As Integer, j As Integer
DiagrName = CoBox1 & "-" & CoBox2
For j = 1 To 8 'besser mit Do Until, aber wie?
For i = 1 To Charts.Count
If Charts(i).Name = DiagrName Then
'Abfrage, ob schon eine Klammer angehängt ist:
If Right(DiagrName, 1) = ")" Then
'...und jetzt? wie weiter?
Else:
DiagrName = DiagrName & "(" & j & ")"
End If
End If
Next i
Next j
'anschließend: "Charts.Add" usw. das läuft
End Sub
schon vorab vielen Dank
Gruß
Christoph