Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe ein Problem, ich möchte aus einer Userform Daten in eine Tabelle schreiben, wo bei die Daten in die nächst leere Zeile geschrieben werden sollen. Ich habe es so versucht aber das funktioniert leider nicht Private Sub CommandButton1_Click() If TextBox1.Value = "" Then MsgBox ("Erst Adresse eingeben") Exit Sub End If Zeile = Sheets("Grundeinstellungen"). _ Range("A65533").End(xlUp).Offset(1, 0).Row Sheets("Grundeinstellungen").Cells(Zeile, 8).Value = TextBox1.Value Sheets("Grundeinstellungen").Cells(Zeile, 9).Value = TextBox2.Value Sheets("Grundeinstellungen").Cells(Zeile, 10).Value = TextBox3.Value Sheets("Grundeinstellungen").Cells(Zeile, 11).Value = TextBox4.Value Sheets("Grundeinstellungen").Cells(Zeile, 12).Value = TextBox5.Value End Sub Vielen Dank an den/die Helfer, Stefan

Hallo

den einzigen Fehler, den ich erkennen kann, ist der, dass die Variable "Zeile" nicht deklariert ist.
Schreibe:

Private Sub CommandButton1_Click()
Dim Zeile As Double
If TextBox1.Value = "" Then
MsgBox ("Erst Adresse eingeben")
Exit Sub
End If

usw .....................

Gruß

Hallo Event,
danke für die schnelle Antwort.
leider funktioniert es immer noch nicht!
das komische daran ist das die daten in zeille 33 geschrieben werden und nicht in zeile 3 die frei währe.

Gruß
Stefan

Hallo,

hast du mal den Wert von der "Zeile" im Überwachungsfenster anzeigen lassen?

Sind die Zellen bis 32 wirklich leer?

Gruß

Helmut

Hallo Saarbauer
leider kann ich nichts mit überwachungsfenster anfangen, bin noch ein anfänger, könntest du mir das erklären.
die zeile 32 wird immer wieder überschrieben

danke stefan

Hallo,
in VBA gibt es die Möglichkeit den Programmablauf der Module in Einzelschritten ablaufenzulassen (F8). wird im Programmablauf ein Ausdruck markiert und mit der rechten Maustaste angeklickt, so erscheint ein Menü u.a. mit "Überwachung hinzufügen..." In dem Überwachungsfenster darunter werden die aktuellen Werte angezeigt (Ablauf in Einzelschritten oder mit Haltepunkten).

Haltepunkte sind unter "Umschalten" im gleichen Menü zu finden.

Gruß

Helmut

Hi Stefan,

versuch doch mal folgendes.
Function LetzteZeile() As Long
Dim i As integer, Min As Long, Max As Long
For 1 = 1 To 256
Min = Cells(65536, i).End(xlUp).Row
If Max < Min Then
Max = Min
End If
Next i
LetzteZeile = Max
End Function
Diese Funktion einem Standartmodul zuordnen.
Deinem CommandButton weis diesen Code zu:
Private Sub CommandButton1_Click()
Cells(LetzteZeile + 1, 8) = TextBox1
Cells(LetzteZeile, 9) = TextBox2
.....
.....
ich hoffe diese Lösung hilft dir.

MfG JöKe

Verbesserung:
3. Zeile:
For i = 1 to 256

Hallo Helmut, Hallo JöKe,

habe bei beiden Versionen die Überwachung anzeigenlassen.
Jedes mal: Wert auserhalb des Kontex

Ich habe ein neues TabellenBlatt eingefügt
und es dort versucht hat sich nichts geändert

achja bei JöKe Version ist es nicht die Zeile 32 sondern 27

??????????????????????????????????????


Gruß Stefan

Hallo Jöke
dein Vorschlag funktioniert sobalt ich die Msg Box weglasse

Helmut deine Lösung funktioniert bestimmt auch blos ich seh mein Fehler nicht

Danke

Stefan

• Werte in nächste leer Zeile einer zweiten Datei übertragen
• Letzte leere Zeile
• überschrift erzeugen
• zeile einfügen