Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

CommandButton nur auf Tabellenblatt 1


Betrifft: CommandButton nur auf Tabellenblatt 1 von: Broki
Geschrieben am: 13.07.2018 13:23:00

Hallo Freunde,

ich benötige dringend eure Hilfe.
Ich möchte mit meinem "CommandButton100" ein neues Tabellenblatt erstellen. Der Code funktioniert bereits nur fehlt noch eine einzige Sache, die ich einfach nicht hinbekomme!
Auf dem neuen Tabellenblatt soll dieser Button dann nicht sichtbar sein, oder noch besser, direkt verschwinden!!! Weiterhin soll er aber auf Tabellenblatt "NEU" bestehen bleiben. Diese dient quasi einem dauerhaften Muster.

Excel hänge ich euch in den Anhang. Bitte um kurzes Statement wie Ihr zu der Lösung gekommen seid.

https://www.herber.de/bbs/user/122656.zip

Danke für die Hilfe!
grüße

  

Betrifft: AW: CommandButton nur auf Tabellenblatt 1 von: Daniel
Geschrieben am: 13.07.2018 13:42:29

Hi

Löschen geht nicht, aber ausblenden sollte funktionieren:
diesen Befehl nach dem Kopieren des Blattes ausführen(beim umbennen)

Sheets(Sheets.Count).CommandButton100.Visible = False

Gruß Daniel


  

Betrifft: doch, geht... von: UweD
Geschrieben am: 13.07.2018 15:26:24

Hallo

Private Sub CommandButton100_Click()
    Dim wsAct As Worksheet
    Dim strBlattname As String
    Set wsAct = Worksheets(1)
    strBlattname = InputBox("Datum Protokoll (z.B. 13.07.18)")
    If strBlattname <> "" Then
        wsAct.Copy After:=Sheets(Sheets.Count)
        With Sheets(Sheets.Count)
          .Name = strBlattname
          .Shapes("CommandButton100").Delete
        End With
    End If
End Sub

LG UweD


Beiträge aus dem Excel-Forum zum Thema "CommandButton nur auf Tabellenblatt 1"