Ecxil von FormUser in Tabelle Übertragen

[valeripf]

Hallo Ich Habe Kleine Problemm

ich habe Code die von FormUser ins Tabelle Übertragt
se Fuktionirt aber wenn mal Buton Übernehmen merhr malls Druckt kommt Doppelt Anträge

kann Jemad Helfen das mann Erst Zeile rutergeht wenn man Buton Schließen gedruckt hat

Private Sub CommandButton1_Click()
Dim i As Integer

With Worksheets("Speicher")
i = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

.Cells(i, 1).Value = UserForm3.TextBox1.Text
.Cells(i, 2).Value = UserForm3.TextBox2.Text
End With
End If

Danke

 

[Jan-Frederik Stieler]

Hallo,
wenn du deine Frage bitte so korrigieren, könntest daß man dies auch lesen kann dann können wir dir vielleicht auch helfen.

Viele Grüße

 

[HonniCilest]

Du darfst

i = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

nicht in dem Click-Event verwenden. Stattdessen solltest du beim Initialisieren des FormUser die letzte Zeile auslesen und in einer entsprechenden Variable speichern.

Zur Verdeutlichung...

Du hast aktuell etwas in diese Richtung:

' Fügt bei jedem Klick den Text "foo" in eine neue Zeile von Spalte A ein.
Private Sub CommandButton1_Click()
    Dim rngLastCell As Range
    Set rngLastCell = Cells(1, 1).End(xlDown)
    rngLastCell.Offset(1, 0).Value = "foo"
End Sub

Benötigst aber etwa soetwas:

Dim rngLastCell As Range
Dim intValue As Integer

' Speichert beim Initialisieren die zu beschreibende Zelle
Private Sub UserForm_Initialize()
    Set rngLastCell = Cells(1, 1).End(xlDown)
    intValue = 0
End Sub

' Schreibt bei jedem Klick den aktuellen sich änderten Wert in die gespeicherte Zelle.
Private Sub CommandButton1_Click()
    rngLastCell.Offset(1, 0).Value = intValue
    intValue = intValue + 1
End Sub

 

[valeripf]

Kommisch ich bekomme fehler

Laufzeitfehler 1004

anwendungs- oder objektdefinierter fehler

 

[HonniCilest]

Komisch ich bekomme Kopfschmerzen und wo ist nur meine verdammte Glaskugel?
Ich komme zurück, wenn ich sie gefunden habe...

 

[valeripf]

Soll das ein witz sein oder was
ich hab dir normal gefragt

 

[tombe]

Führe mal deinen Code Schrittweise durch Drücken der F8-Taste aus und sag uns dann in welcher Zeile der Fehler ausgelöst wird bzw. zeige uns die entsprechende Codezeile!

 

[valeripf]

Ok

Fehler liegt hier 2 zeile CommandButton1_

rngLastCell.Offset(1, 0).Value = intValue

 

[tombe]

Dann tippe ich darauf, dass die Variable intValue zwar existiert aber noch keinen gültigen Wert hat!

 

[valeripf]

Sorry HonniCilest wenn ich zu Grub zu Dir war

Vertargen wir uns wieder ****