Office: Kundendaten bearbeiten und Speichern

DoubleDenU · 22. Oktober 2020

Hallo,

ich möchte gerne die Kundendaten anzeigen lassen das funktioniert soweit auch , jedoch kann ich die Ausgelesenen daten nicht ändern. Dann erstellt sich immer eine neue Spalte anstatt in der Ausgelesenen Spalte also dem Kunden seine Einträge zu ändern.

Hier einmal das Auslesen der Kundennummer:
Code:

Sub KundenSuche()

Dim i As Integer
Dim kD As Integer
Dim AnzZahlen As Long

AnzZahlen = Worksheets("Kontakte").UsedRange.Rows.Count
kD = Application.InputBox("Bitte Kundennummer angeben", "Kundennummer", Type:=1)

For i = 1 To AnzZahlen
If kD = Worksheets("Kontakte").Cells(i, 1).Value Then
With Worksheets("Kontakte")
UserForm1.TextBox_Name.Value = .Cells(i, 2).Value
UserForm1.TextBox_Tel.Value = .Cells(i, 3).Value
UserForm1.ComboBox1.Value = .Cells(i, 4).Value
UserForm1.TextBox_Typ.Value = .Cells(i, 5).Value
UserForm1.TextBox_Schluessel.Value = .Cells(i, 6).Value
UserForm1.TextBox_HU.Value = .Cells(i, 7).Value
UserForm1.TextBox_Notizen.Value = .Cells(i, 9).Value
End With
End If

Next i

If UserForm1.TextBox_Name = "" Then
MsgBox "Kundennummer nicht vorhanden" & Chr(10) & "Bitte erneut eingeben!", vbCritical, "Fehler"
Exit Sub
Else
MsgBox "Kunden gefunden"
End If

UserForm1.Show

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und hier nochmal der Code wenn ich auf Speicher klicke:

Code:

Private Sub Button_ok_Click()

If TextBox_Name = "" Then
MsgBox "Du musst einen Namen eintragen!"
Unload UserForm1
Else
MsgBox "Kundendaten wurden erfolgreich gespeichert"

Dim last As Integer
last = ActiveSheet.Cells(25, 2).End(xlUp).Row + 1
Cells(last, 2).Value = TextBox_Name
Cells(last, 3).Value = TextBox_Tel
Cells(last, 4).Value = ComboBox1
Cells(last, 5).Value = TextBox_Typ
Cells(last, 6).Value = TextBox_Schluessel
Cells(last, 7).Value = TextBox_HU
Cells(last, 9).Value = TextBox_Notizen
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Seit nicht zu streng mit mir ich bin ein Absoluter neuling in der Angelegenheit *mad.gif*

:)

Mase · 24. Oktober 2020

Ok meen jung. Du hast gesagt Du bist Änfanger.
Gleich mal ein Tipp.

Do not Crosspost !
Zumindest nicht ohne gegenseitigen Verweis in den jeweiligen Foren.

Crossposting | Excel ist sexy!

Bin übrigens in beiden Foren raus.

Hajo_Zi · 24. Oktober 2020

Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue. Ich baue keine Datei nach.

Sollte die Datei verlinkt werden?

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Bilder statt Datei | Excel ist sexy!

Es sollte ein aussagekräftiger Name sein.

Das ist nur meine Meinung zu dem Thema.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/...d.php?t=322895
ändern.

Das ist nur meine Meinung zu dem Thema.

Ich bin dann raus Crossposting.

Flotter Feger · 24. Oktober 2020

Hallo,

nimm einfach das ... funktioniert zumindest.

Sabina

ralf_bx · 24. Oktober 2020

crossposting , schäm dich.

Du schreibst es wird eine neue Spalte erzeugt. Hmm, zum Einen wird in eine neue Zeile geschrieben und zum Anderen hast du keine Sub gezeigt die angebliche Änderungen übernehmen soll.

Du wirst wohl einen Button benötigen der nur die Änderungen übernimmt. Darin sollte eine Suchfunktion sein, die dir die richtige Zeile liefert. Oder du merkst dir die aktuelle Zeile irgendwo wenn du die Daten in die Userform einliest.

DoubleDenU · 24. Oktober 2020

Erstmal vielen dank für eure Hilfe, es tut mir leid bin ein neuling und das mit dem Crosspost wusste ich nicht. Hab es mir aber hinter die Ohren geschrieben.

Die Datei funktioniert die ihr mir gegeben habt. Damit bin ich auch schon weiter gekommen nur hab ich noch eine Frage diesbezüglich.

Code:

letzte_Zeile = Worksheets("Daten").Range("A65536").End(xlUp).Row
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Er liest ab A1 aus, er soll aber erst ab A7 auslesen gibt es da eine andere Range?

Flotter Feger · 25. Oktober 2020

Hallo,

geh in UserForm_Initialize und ändere die 2.

Schau dir ruhig auch mal die Kommentare an, die im Code stehen !!! *eek.gif*

Sabina

Office: Kundendaten bearbeiten und Speichern

Kundendaten bearbeiten und Speichern

Kundendaten bearbeiten und Speichern

Kundendaten bearbeiten und Speichern

Kundendaten bearbeiten und Speichern - Similar Threads - Kundendaten Speichern

Speichern einer Sicherheitsdatei als PDF

PDF nach speichern nicht öffnen

Fehler beim speichern von Daten über ein Formular

Vorlagen (nach)bearbeiten und speichern

Kundendaten importieren aus Excel Liste (2007)

Zwei Mappen mit Kundendaten vergleichen

Kundendaten über Suchfunktion in neuen Datensatz einfügen!