Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Text Box
04.12.2018 11:49:10 Gast32917
NotSolved

Ansicht des Beitrags:
Von:
Gast32917
Datum:
04.12.2018 11:49:10
Views:
32
Rating: Antwort:
  Ja
Thema:
VBA Text Box

Hello everyone,

since I am new to vba I am posting a quiete basic question. Ive been trying to figure this out for a while, but Im stuck...

In a first step I would like to know how to connect a text box from a macro with the ecxel sheet. --> How can I write values into this box and then read it from the datasheet. In a next step I will have to programm, that every time I am opening my userform for new values the values will be directl written underneah last entry, Ive made.. 

 

My code is here:

 

Private Sub ComboBox1_Change()
 
End Sub
Private Sub ComboBox2_Change()
End Sub
Private Sub CommandButton1_Click()
Cells(emptyRow, 1).Value = NameTextBox.Value
Unload Me
UserForm2.Show

End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label4_Click()
End Sub
Private Sub TextBox1_Change()
 

End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub TextBox9_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
 

' Nutzung --> Drop Box 1: Auswahl Nutzung
    With UserForm1.ComboBox1
           
            .AddItem "Wohnen MFH" 'gem?ss 2031 S.22
            .AddItem "Wohnen EFH" 'gem?ss 2031 S.22
            .AddItem "Verwaltung" 'gem?ss 2031 S.22
            .AddItem "Schulen" 'gem?ss 2031 S.22
            .AddItem "Verkauf" 'gem?ss 2031 S.22
            .AddItem "Restaurants" 'gem?ss 2031 S.22
            .AddItem "Versammlungslokale" 'gem?ss 2031 S.22
            .AddItem "Spit?ler" 'gem?ss 2031 S.22
            .AddItem "Industrie" 'gem?ss 2031 S.22
            .AddItem "Lager" 'gem?ss 2031 S.22
            .AddItem "Sportbauten" 'gem?ss 2031 S.22
            .AddItem "Hallenb?der" 'gem?ss 2031 S.22
    End With
     ' Nutzung --> Drop Box 2: Auswahl W?rmeerzeuger
     
        With UserForm1.ComboBox2
        .AddItem "W?rmepumpe"
        .AddItem "Pelletsheizung"
        .AddItem "St?ckholzheizung"
        .AddItem "Holzschnitzelheizung (trocken)"
        .AddItem "Holzschnitzelheizung (frisch)"
        .AddItem "?lheizung"
        .AddItem "Gasheizung (Erdgas)"
        .AddItem "Gasheizung (Biogas)"
       
    End With
 
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Text Box
04.12.2018 11:49:10 Gast32917
NotSolved