Microsoft Excel – die neusten Beiträge

Sind das die richtigen Befehle um Textfelder in Excel zu programmieren?

1.      entwicklertools einfügen

2.      visual basic öffnen

3.      einfügen -> Userform

4.      Rahmen einfügen-> Name auf „Caption“ ändern (Darin Kontrollkästen einfügen und beschriften)

5.      Nächster Rahmen einfügen-> Name auf „Caption“ ändern

6.      Drehfeld einfügen -> Daneben Textfeld einfügen

7.      Nächster Rahmen einfügen und beschriften -> Optionsfelder einfügen und beschriften

8.      Nächster Rahmen einfügen und beschriften -> Textfeld und nebendran Beschriftungsfeld einfügen

9.      2x Befehlsschaltflächen einfügen (Übernehmen / Abbrechen)

10.  Simulieren

11.  Userform1 Überschrift ändern -> Caption -> Name eingeben

12.  Abbrechen Kästchen programmieren -> Auf Abbrechen klicken -> Unload UserForm1 eingeben

13.  Simulieren

14.  Excel öffnen -> Textfeld einfügen

15.  Einfügen -> Modul -> UserForm1.Show eingeben

16.  Zurück in Excel und Makro zuweisen -> Auswählen

17.  Zurück in VisualBasic -> Schriftgröße in Textfeldern ändern -> Font auswählen „Fett“ und „Größe“ ändern

18.  Drehfeld Programmieren -> Draufklicken -> TextBox1.Value = SpinButton1.Value eingeben.

19.  In Excel ausprobieren

20.  Übernehmen/Bestätigen Kästchen programmieren ->

If CheckBox1.Value Then

ThisWorkbook.ActiveSheet.Range("Zeile auswählen").Value = "Ja"

Else

ThisWorkbook.ActiveSheet.Range("Zeile auswählen").Value = "Nein"

End If

21.   Zweiter Wert übernehmen eine Zeile drunter -> ThisWorkbook.ActiveSheet.Range("C8").Value = TextBox1.Value

 

Computer, Microsoft Excel

Wie kann man in Excel per VBA abhängig von einem Wert Spalten aus-/einblenden?

Hey. Ich weiß zu diesem Thema gibt es schon ein paar Einträge im Netz. jedoch habe ich es nie für mich umformuliert bekommen. Vielleicht kann mir hier jemand helfen?

In Zelle G6 steht ein Wert von 1-6. Abhängig davon sollen dann immer andere Spalten ausgeblendet werden. Mein Code zur Zeit:

Sub Ausblenden()
'
' Ausblenden Makro
'
' Tastenkombination: Strg+a
'
    If "G6" = "1" Then
                Columns("v:bn").EntireColumn.Hidden = False
                Columns("v:bn").EntireColumn.Hidden = True
            Else
                If "G6" = "2" Then
                    Columns("v:bn").EntireColumn.Hidden = False
                    Columns("ae:bn").EntireColumn.Hidden = True
                Else
                    If "G6" = "3" Then
                        Columns("v:bn").EntireColumn.Hidden = False
                        Columns("an:bn").EntireColumn.Hidden = True
                    Else
                        If "G6" = "4" Then
                            Columns("v:bn").EntireColumn.Hidden = False
                            Columns("aw:bn").EntireColumn.Hidden = True
                        Else
                            If "G6" = "5" Then
                                Columns("v:bn").EntireColumn.Hidden = False
                                Columns("bf:bn").EntireColumn.Hidden = True
                            Else
                                If "G6" = "6" Then
                                    Columns("v:bn").EntireColumn.Hidden = False
                                End If
                            End If
                        End If
                    End If
                End If
    End If
End Sub

Ich bin ein VBA anfänger, also bitte seit nachsichtig x). Danke schon einmal im voraus!

Computer, Office, Microsoft Excel, programmieren, VBA

Meistgelesene Beiträge zum Thema Microsoft Excel