Daten in eine Tabelle schreiben
sabbelschlaeppchen
ich möchte, dass nach Klick auf einem Button Daten in eine Tabelle eingetragen werden. Nach netten Tipps von euch, habe ich das über folgenden Code versucht:
Private Sub CommandButton1_Click()
Dim Klasse As Variant
Dim ArbeitNr As Integer
Dim SchuelerAnzahl As Integer
Dim Schuljahr As Variant
With Worksheets("Klassenuebersicht")
.Range("C3").Value = Klasse
.Range("C4").Value = ArbeitNr
.Range("C5").Value = SchuelerAnzahl
.Range("C6").Value = Schuljahr
End With
Unload UserForm1
End Sub
Gruß, sabbelschlaeppchen
Anzeige