Office: Wenn Wert in Spalte vorhanden dann Ganze Zeile mit neuem Wert aus Userform ersetzen

Hallo Kollegen,

ich bin neu im Forum und habe eine Frage ? Ich habe eine Userform gebastelt. Dort sind Textfelder, Combobox und 2 Kontrollkästchen vorhanden. Meine Cobobox füllt sich aus einer separaten Tabelle. Nun möchte ich in der Spalte X (Artikelnummer) vergleichen und wenn der Wert vorhanden ist, soll die ganze Zeile mit den Werten (Kontrollkästchen, Textfelder etc.) ersetzt werden.

Wie würde hier der Code lauten? Ich danke vielmals im Voraus für eure Hilfe!!!*Smilie

:)

 

Hi,

so danch diesem Prinzip:

Code:

 

Hallo Charls

so könnte sowas aussehen
Ohen kenntnis deiner Mappe /Userform kann man dir aber auch nicht besser helfen.

Grüße

Code:

 

Hi,

geht doch auch ohne Schleife und damit wesentlich schneller - siehe meinen vorhergehenden Beitrag *wink.gif*

 

Hallo Karin,

danke für deinen Hinweis.
Ich hatte mir auch schon dieses Konstrukt durch den Kopf gehen lassen,
hab mich dann aber zugunsten des TE und seiner vermutlich rudimentären VB Kenntnisse zu meiner dargestellten Variante hinreisen lassen.
Da zumindest meinem empfinden nach es einfacher zu verstehen und anzupassen ist.
Gebe dir aber auch recht, dass dein Vorschlag eindeutiger und auch schneller ist.

Grüße

 

Hallo zusammen,

sorry das ich mich so spät melde *frown.gif* Ich war leider nicht im Lande...... Hier mal der CODE !!! Vielleicht können wir ja dazu was optimiertes finden. Das wäre Cool *Smilie

PS: Die Datei kann ich leider erst heute Abend auf den Webserver laden, weil ich da erst daheim bin.


Private Sub Workbook_Open()
UserForm1.Show
TextBox4 = Date
TextBox5 = Environ("Username")
End Sub

Option Explicit

Private Sub CommandButton1_Click()
'Variable deklarieren
Dim erste_freie_Zeile As Integer
'erste freie Zeile in Blatt "Bestandsübersicht" ermitteln
'und in Variable "erste_freie_Zeile" schreiben
erste_freie_Zeile = Sheets("Bestandsübersicht").Range("A65536").End(xlUp).Offset(1, 0).Row
Sheets("Bestandsübersicht").Cells(erste_freie_Zeile, 1) = ComboBox1.Text
Sheets("Bestandsübersicht").Cells(erste_freie_Zeile, 2) = CeckBox1.Text
Sheets("Bestandsübersicht").Cells(erste_freie_Zeile, 3) = CeckBox2.Text
Sheets("Bestandsübersicht").Cells(erste_freie_Zeile, 4) = (TextBox1.Text)
Sheets("Bestandsübersicht").Cells(erste_freie_Zeile, 5) = (TextBox2.Text)
Sheets("Bestandsübersicht").Cells(erste_freie_Zeile, 6) = CDate(TextBox3.Text)
Sheets("Bestandsübersicht").Cells(erste_freie_Zeile, 7) = (TextBox4.Text)
Sheets("Bestandsübersicht").Cells(erste_freie_Zeile, 9) = (TextBox5.Text)
End Sub


Private Sub CommandButton2_Click()
'UserForm schließen
Unload Me
End Sub

Private Sub UserForm_initialize()
'Variable deklarieren
Dim Wiederholungen As Integer
'Schleife zum Füllen der ComboBox mit den Daten aus Blatt "Hilfstabelle"
'Spalte A ab Zeile 2 bis zur letzten gefüllten Zeile
For Wiederholungen = 2 To Sheets("Hilfstabelle").Range("A65536").End(xlUp).Row
ComboBox1.AddItem Sheets("Hilfstabelle").Cells(Wiederholungen, 1)
Next
End Sub

Private Sub Worksheet_Activate()

End Sub

 

Code:

 

Hallo Charls

ich werde aus deiner Vielzahl an Antworten NICHT schlau.
Zudem fehlt immernoch die Mustermappe.
Ausserdem finde ich in deinem Code weder die Code-Teile von Karin, noch die Code-Teile von mir.

Geh ich recht der Annahme du willst uns die Arbeit machen lassen, ohne dir Gedanken zu machen?

Grüße

 

oh je das hast du wohl in den falschen Hals bekommen*rolleyes.gif* Ich bin bei der Arbeit und konnte noch nicht mein Tool verwalten. Aber ich hab ja gschrieben das ich die Mappe heute Abend erst auf den Webserver laden kann...... Selbstverständlich möchte ich nicht das Ihr die Arbeit für mich macht und ich abstaube *eek.gif* Für die Hilfe war ich erst mal sehr glücklich und hoffe euch auch mla helfen zu können um etwas zurück zu geben.

Ich bitte um entschuldigung wenn das missverstanden wurde

 

Hallo Charls

dann warte ich mal auf die Mustermappe heut Abend die im optimalfall auch schon Codeschnipsel aus der Hilfe beinhaltet.

DAnn schauen wir weiter =)

Grüße

 

danke *Smilie