Hallo Mike,
das hat Uwe doch schon geschrieben
(27.08.2020, 21:02)Kuwer schrieb: [ -> ]Hallo Mike,
bei den Cells(3, ... gehört natürlich die Variable Zeile auch eingebaut.
also so
Code:
Cells(Zeile, 7).Value = TextBox1.Value
und lösche auch diese Codezeile
Code:
Zeile = ZeileMax + 1
Hallo Steffl,
ich habe den Code nun so abgeändert.....und es geht :)
PHP-Code:
Private Sub CommandButton2_Click()
'Daten in Tabelle schreiben
'Sheets("Hauptseite").Activate
Sheets("Hauptseite").Cells(Rows.Count, 7).End(xlUp).Offset(1).Resize(, 6) = Array(TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6)
'Zeile = Cells(Rows.Count, 7).End(xlUp).Row + 1
'Zeile = ZeileMax + 1
With UserForm1
Cells(, 7).Value = TextBox1.Value
Cells(, 8).Value = TextBox2.Value
Cells(, 9).Value = TextBox3.Value
Cells(, 10).Value = TextBox4.Value
Cells(, 11).Value = TextBox5.Value
Cells(, 12).Value = TextBox6.Value
End With
End Sub
ist doch richtig so...oder.....es geht jetzt auf jeden Fall :)
Noch einen Tipp dazu von dir? :19:
(28.08.2020, 10:24)Steffl schrieb: [ -> ]Hallo Mike,
das hat Uwe doch schon geschrieben
also so
Code:
Cells(Zeile, 7).Value = TextBox1.Value
und lösche auch diese Codezeile
Code:
Zeile = ZeileMax + 1
Dann habe ich es ja doch richtig gemacht :)...werde die angegeben e Zeile löschen...Danke!
Hallo Mike,
(28.08.2020, 10:24)MdeJong schrieb: [ -> ]Dann habe ich es ja doch richtig gemacht :).
ist was anderes als
Code:
Cells(Zeile, 7).Value
und bei der ersten Variante sollte eigentlich eine Fehlermeldung kommen?
(28.08.2020, 10:30)Steffl schrieb: [ -> ]Hallo Mike,
ist was anderes als
Code:
Cells(Zeile, 7).Value
und bei der ersten Variante sollte eigentlich eine Fehlermeldung kommen?
Achso.…...dann habe ich ja nur eine Zeile im Code und das ganze funktioniert so, wie ich es brauche!
Dann war ich mit meinem ja sehr umständlich?! :16: :19:
Jetzt sieht der Code zum ablegen aus der Userform so aus und es geht:
Code:
Private Sub CommandButton2_Click()
'Daten in Tabelle schreiben
Sheets("Hauptseite").Cells(Rows.Count, 7).End(xlUp).Offset(1).Resize(, 6) = Array(TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6)
End Sub
Vielen Dank
Hallo Mike,
schreibe statt der 3 Zeile
Und oben ändere in Zeile = Zeile + 1 ´, wenn du eine Leerzeile haben willst.
Gruß Rudi
zu späääaät, die Anderen waren schneller.
Ok...
Zum Verständnis der Codezeile?
Sheets("Hauptseite") ……...hier spreche ich die Seite an, in der ich die Werte ablegen möchte
.Cells(Rows.Count, 7) ……...hier gebe ich mit Count dir Spalte an, in der ich anfangen möchte
.End(xlUp).Offset(1).Resize(, 6)) ........... End(x1Up), kann ich mir forstellen, das wenn belegt, die nächste untere Zeile? ...Offset/1)keine Ahnung was das bedeutet
.Resize(, 6)...soll heissen, fortlaufend 6 Spalten inkl. Count, 7 ???
= Array(TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6) .....Werte aus der userform aus Textbx1 - 6
Offset/1) .......was bedeutet das?
Gruß
Mike