Ecxil von FormUser in Tabelle Übertragen

V

valeripf

Erfahrenes Mitglied
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

Code: 
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
 
Du darfst
Visual Basic: 
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:
Visual Basic: 
' 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:
Visual Basic: 
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
 
Zuletzt bearbeitet:
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!
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück