Mittlerweile bin ich schon einiges weiter:
Private Sub CommandButton1_Click()
If TextBox1 <> "" Then
Ausbeute = Me.TextBox2.Value
Range("C13").Activate
Do Until ActiveCell.Value = ""
ActiveCell.Offset(0, 1).Activate
Loop
ActiveCell.Value = Ausbeute
End If
Einsatzmenge = Me.TextBox1.Value
Range("C12").Activate
Do Until ActiveCell.Value = ""
ActiveCell.Offset(0, 1).Activate
Loop
ActiveCell.Value = Einsatzmenge
If TextBox2 <> "" Then
HAPSS_1_Charge = Me.TextBox3.Value
Range("C15").Activate
Do Until ActiveCell.Value = ""
ActiveCell.Offset(0, 1).Activate
Loop
ActiveCell.Value = HAPSS_1_Charge
End If
Ausbeute = Me.TextBox2.Value
Range("C13").Activate
Do Until ActiveCell.Value = ""
ActiveCell.Offset(0, 1).Activate
Loop
ActiveCell.Value = Ausbeute
If TextBox3 <> "" Then
HAPSS_1_Menge = Me.TextBox4.Value
Range("C16").Activate
Do Until ActiveCell.Value = ""
ActiveCell.Offset(0, 1).Activate
Loop
ActiveCell.Value = HAPSS_1_Menge
End If
HAPSS_1_Charge = Me.TextBox3.Value
Range("C15").Activate
Do Until ActiveCell.Value = ""
ActiveCell.Offset(0, 1).Activate
Loop
ActiveCell.Value = HAPSS_1_Charge
und so weiter bis:
If TextBox28 <> "" Then
Bemerkungen = Me.TextBox29.Value
Range("C52").Activate
Do Until ActiveCell.Value = ""
ActiveCell.Offset(0, 1).Activate
Loop
ActiveCell.Value = Bemerkungen
End If
Lagerkessel = Me.TextBox28.Value
Range("C51").Activate
Do Until ActiveCell.Value = ""
ActiveCell.Offset(0, 1).Activate
Loop
ActiveCell.Value = Lagerkessel
Bemerkungen = Me.TextBox29.Value
Range("C52").Activate
Do Until ActiveCell.Value = ""
ActiveCell.Offset(0, 1).Activate
Loop
ActiveCell.Value = Bemerkungen
Me.Hide
End Sub
Leider trägt er mir nun alles doppelt ein. Habe leider keinen blassen Schimmer wie das alles funktioniert, daher wäre es echt nett, wenn Du mir das mal an meinem Beispiel zeigst, wie Du das meinst. :-)
Danke.
|