VBA Code für mehere Zellen verwenden
12.12.2022 11:15:29
Lisa
bin gerade an meinem 2. Projekt mit VBA und stehe gerade irgendwie auf dem Schlauch...
Ich habe eine Tabelle bei der eine Userform aufploppt sobald man in die Zelle F4 klickt.
Hier muss man Daten eintragen und dann auf den CommandButton geklickt werden, dadurch öffnet sich eine andere Userform.
Hier muss ein Datum gepflegt werden und nach Click auf den Command Button wird dieses in Zelle H4 übernommen und der Inhalt in Zelle G4 geleert.
Bei Klick in Zelle H4 öffnet sich die selbe Userform.
Bei Klick in Zelle G4 öffnet sich eine andere Userform, hier müssen wieder Daten eingegeben werden und bei Klick auf den CommandButton werden die Zellen F4 und G4 geleert.
Bis hierhin funktioniert es.
Nun will ich, das das ganze auch für die darunterstehenden Zellen angewendet wird.
Also wenn ich in F5 klicke, dass es in F5 die Eintragung macht, H5 als nächstes ausgefüllt wird usw...
Insgesamt sind es 211 Zeilen, wäre sehr dankbar wenn es eine schöne Lösung gäbe :)
LG Lisa
Hier mal meine Codes:
Option Explicit
Sub worksheet_selectionchange(ByVal Target As Range)
If Target.Address = "$F$4" Then UserFormEinlagerung.Show
If Target.Address = "$G$4" Then UserFormAuslagerung.Show
If Target.Address = "$H$4" Then UserFormReinigungsstatus.Show
End Sub Option Explicit
Private Sub CommandButton2_click()
UserFormReinigungsstatus.Show
Unload Me
Range("G4").ClearContents
End Sub
Private Sub TextBox1_Change()
Range("F4").Value = TextBox1.Value
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub TextBox2_Change()
Range("H4").Value = TextBox2.Value
End Sub
Private Sub CommandButton3_Click()
Unload Me
Range("F4").ClearContents
Range("H4").ClearContents
End Sub
Private Sub TextBox3_Change()
Range("G4").Value = TextBox3.Value
End Sub