Userform Zelle erfragen und überschreibe

Hey hey!
Ich habe ein "Problem", bei dem ich trotz vielfacher Lösungsansätze nicht weiterkomme.
Ich habe eine Bestellliste erstellt, deren Zellen ich per Userform befülle. Im konkreten handelt es sich um eine Bestellübersicht. Wenn alle Daten in die aufgerufene Userform eingetragen worden sind, wird automatisch der Wert "Bestellung aufgenommen" in dieser Zeile eingefügt. Nun möchte ich über einen zweiten Button die Möglichkeit schaffen, den Status über eine bestimmte Bestellung (also im konkreten eine bestimmte Zelle auf dem Blatt) zu ändern per Userform. Meine Idee war folgende:
Per Button wird eine zweite Userform gestartet. Es wird erfragt, welche Bestellung (also welche Zeile?!) aktualisiert werden soll. Hier wird dann ein numerischer Wert angegeben (z.B. ich möchte die Bestellung ändern, die sich in Zeile 13 befindet). Dann wird der neue Status ausgewählt (z.B. "bestellt" oder "geliefert") und dann bestätigt. Dann soll sich der Status dieser einen Bestellung ändern. D.h. ich müsste von dem User zunächst die Zeile erfragen und dann den neuen Wert in die eine bestimmte Zeile einfügen. Das klingt recht simpel, funktioniert aber nicht wie ich es mir vorstelle. Hat jemand eine Idee, wie ich das Problem lösen kann?
Vielen Dank!
Lieben Gruß,
Thorsten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Vielen lieben Dank für die schnelle Antwort.
Sowie ich es momentan geschrieben hat, ist der nächste Eintrag automatisch immer in der nächsten freien Zeile. D.h. wenn ich die Userform erneut aufrufe und einen anderen Status auswähle, dann würden die Werte in die nächste freie Zeile gehen und nicht in eine bereits existierende. Nachfolgend mal der Code

Private Sub CommandButton_Abbrechen_Click()
Unload Me
End Sub
Private Sub CommandButton_Eingabe_Click()
'Pflichtfelder abfragen
If TextBox_Kundennummer = "" Then
MsgBox ("Bitte eine Kundennummer eingeben. Wenn es eine interne Bestellung ist, dann 'intern'   _
_
eintragen.")
TextBox_Kundennummer.SetFocus
Exit Sub
End If
If TextBox_Kundennummer  "intern" And TextBox_Name = "" Then
MsgBox ("Bitte den vollständigen Namen des Kunden eintragen.")
TextBox_Kundennummer.SetFocus
Exit Sub
End If
If TextBox_Kundennummer  "intern" And TextBox_Telefonnummer = "" Then
MsgBox ("Bitte die Telefonnummer des Kunden für Rückfragen eintragen.")
TextBox_Kundennummer.SetFocus
Exit Sub
End If
'Erste freie Zeile ausfinding machen
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
'Kundennummer
Cells(last, 1).Value = TextBox_Kundennummer
'Vollständiger Name
Cells(last, 2).Value = TextBox_Name
'Produkt
Cells(last, 3).Value = ComboBox_Produkt
'Aufgenommen am
Cells(last, 4).Value = TextBox_Datum1
'Aufgenommen von
Cells(last, 5).Value = ComboBox_Besteller
'Status
If OptionButton1.Value = True Then Cells(last, 6).Value = "Bestellung aufgenommen"
'Eingegangen am
Cells(last, 7).Value = TextBox_Datum2
'Empfangen von
Cells(last, 8).Value = ComboBox_Besteller2
'Status
If OptionButton2.Value = True Then Cells(last, 9).Value = "offen"
End Sub
Private Sub Label10_Click()
End Sub
Private Sub UserForm_Initialize()
'Kundennummer
TextBox_Kundennummer = "Kundennummer oder 'intern' eingeben"
'Vollständiger Name
TextBox_Name = "Vollständigen Kunden-Namen eingeben"
'Telefonnummer
TextBox_Telefonnummer = "Telefonnummer für Rückfragen"
'Aufgenommen am
TextBox_Datum1.Value = Date
'Status
OptionButton1.Value = True
'Eingegangen am
'Status
OptionButton2.Value = True
End Sub
Private Sub TextBox_Name_Enter()
TextBox_Name = ""
End Sub
Private Sub TextBox_Telefonnummer_Enter()
TextBox_Telefonnummer = ""
End Sub

Und ich habe jetzt z.B. 20 Einträge und die Bestellung aus Zeile 7 ist eingetroffen, dann würde ich gerne den Status ändern per Userform.

Beliebteste Forumthreads (12 Monate)

Userform Zelle erfragen und überschreibe

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Userform Zelle erfragen und überschreibe

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread