Ich habe mich an einer Aufgabe so festgefressen das ich nicht mehr weiterkomme darum bitte ich Euch um mithilfe.
Das Problem:
Auf ein Tabellenblatt habe ich ein Drehfeld mit einer Zelle (ZB a2)verknüpft und in der Zelle steht dann die Jahreszahl.
Außerdem habe ich dort noch ein Botton den Ich das gewisse Makro zuweisen möchte.
Dieses Makro soll dann den Wert aus der Zelle nehmen und ein Tabellenblatt erstellen,
hat auch alles soweit geklappt aber wenn ich ein zweites mal auf den Botton Drücke erstellt er mir eine an dere Tabelle und das soll vermieden werden.
Kurz und knapp: Beim Klick auf den Botton soll die Tabelle erstellt werden,sollte man ein zweites mal Klicken soll eine Fehlermeldung erscheinen das die Tabelle schon vorhanden ist.
Es müßte evt.mit einer Funktion gearbeitet werden, die prüft ob die Tabelle schon vorhanden ist.
Mein kläglicher Versuch sieht so aus:ohne Funktion
Sub Tabelle_erstellen()
zb = ActiveSheet.Index
Sheets("Tabelle1").Activate
Range("A23:L37").Copy
n = [a2].Value
Sheets.Add
For Each w In Worksheets
ActiveSheet.Name = n
ActiveSheet.Paste
On Error Resume Next
w.Name = n
zb = zb + 1
Next w
End Sub
Ich bedanke mich jetzt schon mal im vorraus und hoffe das das Makro vielen anderen dann ebenfalls nützlich sein kann.
Gruß
Juergen