16.09.2018, 10:29
Hallo zusammen
Hätte eine kleine Frage
Die übergabe an das Excel sheet funktioniert aber nur untereinander sollte aber nebeneinander stehen
Habe schon einige Sachen ausprobiert und zwar mit .End(.......) und .Offset(........)
Könnte mir jemand dabei Bitte Helfen
Hätte eine kleine Frage
Die übergabe an das Excel sheet funktioniert aber nur untereinander sollte aber nebeneinander stehen
Habe schon einige Sachen ausprobiert und zwar mit .End(.......) und .Offset(........)
Könnte mir jemand dabei Bitte Helfen
Code:
Private Sub CommandButton_Speichern_Click()
Dim objControl As MSForms.Control
For Each objControl In MultiPage1.SelectedItem.Controls
If TypeOf objControl Is MSForms.TextBox Then
With Worksheets("Übersicht")
.Cells(.Rows.Count, 1).End(xlUp).Offset(1) = objControl.Value
End With
End If
Next
End Sub