Was ist falsch in meinem Code?

[Steffl]

Hallo Mike,

das hat Uwe doch schon geschrieben

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

[MdeJong]

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:

---

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!

[Steffl]

Hallo Mike,

Dann habe ich es ja doch richtig gemacht :).

Code:

Cells(, 7).Value

ist was anderes als

Code:

Cells(Zeile, 7).Value

und bei der ersten Variante sollte eigentlich eine Fehlermeldung kommen?

[MdeJong]

Hallo Mike,

Code:

Cells(, 7).Value

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

[snb]

Ich kann nur sagen: bitte, lese mal richtig !
Die Einszeiler https://www.clever-excel-forum.de/Thread...#pid207466 reicht, alle andere Code ist überflüssig, wie gezeigt.
Ich verstehe nicht warum du meinen Vorschlag nicht ohne änderung getestet hast.

[Rudi'S]

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.

[MdeJong]

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

[Steffl]

Hallo Mike,

Offset/1) .......was bedeutet das?

einfach mal den Cursor auf Offset stellen und die F1-Taste drücken. Dito für Resize

https://www.online-excel.de/excel/singsel_vba.php?f=33

[MdeJong]

Hallo Mike,

einfach mal den Cursor auf Offset stellen und die F1-Taste drücken. Dito für Resize

https://www.online-excel.de/excel/singsel_vba.php?f=33

OK....Danke :)