Befehlsschaltfläche einrichten

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

Betrifft: Befehlsschaltfläche einrichten
von: Cho-Jung
Geschrieben am: 12.12.2003 03:14:24

Hallo,

ich möchte in einer Excel tabelle einige Befehlschaltflächen einbauen.

Ich möchte damit z.B. auf ein anderes Blatt innerhalb der Arbeitsmappe zugreifen, oder auch auf eine andere Excel Tabelle etc.

Wie kann ich so etwas einrichten bzw. wie muss ich das formatieren?

Habe leider keine Ahnung davon und würde mich über Eure Hilfe sehr freuen.

Vielen Dank dafür.

Gruss

Cho-Jung

Bild


Betrifft: AW: Befehlsschaltfläche einrichten
von: AndreasS
Geschrieben am: 12.12.2003 06:42:32

Hallo,
zum Einrichten eines CommandButtons:
Menü->Ansicht->Symbolleisten->Steuerelementtollbox aktivieren.
Dann in den Entwurfsmodus wechseln. Linke Taste. Danach können Steuerelemente plaziert werden. Doppelklick auf das Steuerelement: Makrocode. Rechtsklick: Eigenschaften einstellen, wie z.B. Beschriftung etc...
Gruß
Andreas


Bild


Betrifft: AW: Befehlsschaltfläche einrichten
von: Cho-Jung
Geschrieben am: 13.12.2003 00:05:14

Danke für die Info.

Doch genau das ist es, welchen Makro Code muss ich denn dort eingeben, um z. B. zu einem anderen Blatt innerhalt der Arbeitsmappe zu wechseln?

Danke für Eure Hilfe.

Gruss

Cho-Jung


Bild


Betrifft: AW: Befehlsschaltfläche einrichten
von: AndreasS
Geschrieben am: 15.12.2003 07:06:39

Hallo,
mit nachfolgendem Code kannst du ein Tabellenblatt suchen...
Doppelklich im Entwurfsmodus auf Button. Dann den Namen der Prozedur reinschreiben. Hier: BlattAuswählen. Die

Sub kommt in ein allgemeines Modul.
Modul anlegen: ALT+F11. Dann Menü Einfügen Modul. Da Code hineinschreiben(kopieren).
 
'Tabellenblatt auswählen

Sub BlattAuswählen()
Application.ScreenUpdating = False
Dim wks As Worksheet
Dim strWKS As String
strWKS = InputBox("Bitte Tabellennamen eingeben:")
For Each wks In Worksheets
    If strWKS = "" Then Exit Sub
        If InStr(UCase(wks.Name), UCase(strWKS)) > 0 Then
        wks.Select
        Exit Sub
        End If
Next wks
MsgBox ("Kein Blatt gefunden")
strWKS = 0
Application.ScreenUpdating = True
End Sub


Gruß Andreas


Bild

Beiträge aus den Excel-Beispielen zum Thema " einzelne Tabelle speichern"