CommandButton mit Abfrage

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: CommandButton mit Abfrage
von: ANG
Geschrieben am: 22.03.2005 15:10:46
Hallo liebe Excel-Gemeinde,
habe folgendes Problem:
Über einen CommandButton wird ein neues Tabellenblatt (als Kopie einer Vorlage) mit einem neudefinierten Namen erstellt - nun möchte ich folgende Prozedur einfügen: jedesmal, wenn der CommandButton erneut gedrückt wird, soll Excel prüfen, ob das Tabellenblatt schon vorhanden ist. Wenn ja, dann soll auf das Tabellenblatt gewechselt werden - wenn nein, dann soll es nach oben beschriebener Prozedur erstellt werden.
Wie muß hier der Code erweitert werden ?


Private Sub CommandButton1_Click()
Sheets("Tabelle_Vorlage").Copy after:=Sheets("Termine")
ActiveSheet.Name = "KundenName"
End Sub

Für Eure Hilfe bedanke ich mich im voraus
beste Grüße
ANG
Bild

Betrifft: AW: CommandButton mit Abfrage
von: paula
Geschrieben am: 22.03.2005 15:14:00
Hi ANG
und nach welchem Namen fragst Du?? Wo soll er neu definiert werden?
Bitte präziser fragen!
gruss paula
Bild

Betrifft: AW: CommandButton mit Abfrage
von: ANG
Geschrieben am: 22.03.2005 15:46:08
Hallo Paula,
der neudefinierte Name bildet sich über die Prozedur "ActiveSheet.Name ="Kundenname". Meine Frage bezieht sich darauf, dass ich den CommandButton bei einem weiteren Klick so eine Art Hyperlink-Funktionalität gebe und damit auf das entsprechende Tabellenblatt "Kundenname" gelange und nicht wie bisher ein Tabellenbaltt "Kundenname (2)" erstelle...(die Funktion Tabellenblatt aus Vorlage erstellen soll dann inaktiv sein)
Wie muß ich diese Abfrage als Code schreiben...
Für Deine weitere Hilfe wäre ich Dir sehr dankbar
Beste Grüße
Ang
Bild

Betrifft: AW: CommandButton mit Abfrage
von: P@ulchen
Geschrieben am: 22.03.2005 15:15:51
Hallo,
eine Möglichkeit:

Private Sub CommandButton1_Click()
On Error GoTo Errorhandler
Sheets("KundenName").Activate
Exit Sub
Errorhandler:
Sheets("Tabelle_Vorlage").Copy after:=Sheets("Termine")
ActiveSheet.Name = "KundenName"
End Sub

Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Bild

Betrifft: AW: CommandButton mit Abfrage
von: Bert
Geschrieben am: 22.03.2005 15:18:14
Hi,
so ein Schmuddelcode. Wenn du es selbst verwendest, ok, aber als Tipp?
mfg Bert
Bild

Betrifft: AW: CommandButton mit Abfrage
von: P@ulchen
Geschrieben am: 22.03.2005 15:48:09
Hallo Bert,
ok, war vielleicht nicht unbedingt das Gelbe vom Ei...

Private Sub CommandButton1_Click()
On Error Resume Next
If Sheets("KundenName") Is Nothing Then
    Sheets("Tabelle_Vorlage").Copy after:=Sheets("Termine")
    ActiveSheet.Name = "KundenName"
End If
Sheets("KundenName").Activate
End Sub

Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Bild

Betrifft: AW: CommandButton mit Abfrage
von: Bert
Geschrieben am: 22.03.2005 16:03:58
Option Explicit
Sub Blatt()
Const SNAME As String = "KundenName"
Dim bFound As Boolean, Sh As Object
For Each Sh In ThisWorkbook.Sheets
  If Sh.Name = SNAME Then
     bFound = True
     Exit For
  End If
Next Sh
If Not bFound Then
  Sheets("Tabelle_Vorlage").Copy after:=Sheets("Termine")
  ActiveSheet.Name = SNAME
End If
End Sub
So ist es sauber, ohne On Error, das macht man nur, wenn es nicht anders
möglich ist(z.B. SpecialCells).

Gruß Bert
Bild

Betrifft: AW: CommandButton mit Abfrage
von: ANG
Geschrieben am: 22.03.2005 15:51:08
Hallo P@ulchen,
vielen Dank, der Code funktioniert....
Gruß ANG
 Bild

Beiträge aus den Excel-Beispielen zum Thema "CommandButton mit Abfrage"