Office: Aktualisierungsfehler

skidrow · 16. Januar 2016

Hallo,

ich habe ein bzw. zwei Probleme mit meiner Userform. Ich habe in Tabelle 1 eine TextBox. Dort möchte ich einen Namen eingeben und wenn dieser doppelt vorhanden ist, soll er "Userform1" öffnen und mir in einer Liste eine Auswahlmöglichkeit geben womit ich die genaue Person auswählen kann.

Die ListBox in der Userform habe ich auch geschafft richtig zu befüllen. Das passt also. Ich habe aber den Fehler, das ich immer zweimal reingehen muss um die richtigen Einträge angezeigt zu bekommen.

Problem zwei ist, wie kann ich Prüfen ob der Name zweimal in der Tabelle "Soldaten" vorkommt.

Beispieldatei habe ich angehangen.

Danke schonmal!

Edit: Ich schaffe es nicht die Listbox zu clearen.... Trotz Befehl ListBox1.Clear

kann es daran liegen?

:)

skidrow · 18. Januar 2016

Soll ich den code boch posten?

skidrow · 18. Januar 2016

Code:

Sub Soldat_eintragen()
Dim rngcellPLZ As Range
Dim PLZ As String
UserForm1.Show
'UserForm1.ListBox1.Clear

With Tabelle2.Range("a:a")

Set rngcellPLZ = .Find(Tabelle1.TextBox1)

If Not rngcellPLZ Is Nothing Then
PLZ = rngcellPLZ.Address

Do
With UserForm1.ListBox1
.ColumnCount = 3
.AddItem
.List(.ListCount - 1, 0) = rngcellPLZ.Value
.List(.ListCount - 1, 1) = rngcellPLZ.Offset(0, 1).Value
.List(.ListCount - 1, 2) = rngcellPLZ.Offset(0, 3).Value
.List(.ListCount - 1, 3) = rngcellPLZ.Address
.ColumnWidths = "2,5cm;2,5cm;3,5cm; 3,5cm"
End With
Set rngcellPLZ = .FindNext(rngcellPLZ)
Loop While Not rngcellPLZ Is Nothing And rngcellPLZ.Address PLZ

End If

End With

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

skidrow · 19. Januar 2016

Hat echt keiner eine Idee?

rainer176 · 19. Januar 2016

Hallo skidrow, für so eine Aufgabe würde ich mal Access ins Auge fassen. Ob es in Excel elegant zu lösen ist kann ich nicht beurteilen, in Access kein Problem.

skidrow · 19. Januar 2016

Hallo Rainer,

Ich habe absolut keine Ahnung von Acces. Ist das einfach zu lösen? Kann ich mein erstelltes Formular übernehmen?

Danke schonmal für die Antwort!

rainer176 · 19. Januar 2016

Gewisse Grundkenntnisse sollten möglichst vorhanden sein aber Access ist keine Zauberei. Bevor du weiter darüber nachdenkst solltest du überprüfen ob Access (ist Bestandteil von Office Professional) auf dem Rechner vorhanden ist.

Falls weiter aktuell bitte eine PN schicken da ich nur unregelmäßig das Excel-Forum aufsuche.

Daten aus Excel können probelmlos importiert werden.

aloys78 · 19. Januar 2016

Hallo,

Ich habe aber den Fehler, das ich immer zweimal reingehen muss um die richtigen Einträge angezeigt zu bekommen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Schau mal, ob es jetzt wie gewünscht funktioniert. Ich habe einfach nur die Show-Anweisung verschoben.
Code:

Option Explicit

Sub Soldat_eintragen()
Dim rngcellPLZ As Range
Dim PLZ As String

With Tabelle2.Range("a:a")
UserForm1.ListBox1.Clear

Set rngcellPLZ = .Find(Tabelle1.TextBox1)

If Not rngcellPLZ Is Nothing Then
PLZ = rngcellPLZ.Address

Do
With UserForm1.ListBox1
.ColumnCount = 3
.AddItem
.List(.ListCount - 1, 0) = rngcellPLZ.Value
.List(.ListCount - 1, 1) = rngcellPLZ.Offset(0, 1).Value
.List(.ListCount - 1, 2) = rngcellPLZ.Offset(0, 3).Value
.List(.ListCount - 1, 3) = rngcellPLZ.Address
.ColumnWidths = "2,5cm;2,5cm;3,5cm; 3,5cm"
End With
Set rngcellPLZ = .FindNext(rngcellPLZ)
Loop While Not rngcellPLZ Is Nothing And rngcellPLZ.Address PLZ

End If

End With
UserForm1.Show

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

aloys78 · 19. Januar 2016

Hallo,

Problem zwei ist, wie kann ich Prüfen ob der Name zweimal in der Tabelle "Soldaten" vorkommt.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Tatsächlich sind Mustermann 1 und 2 je 4x vertreten ?

Ohne den vorhandenen Code studiert zu haben:
Ich gehe mal davon aus, dass Name = Nachname + Vorname bedeutet.
Was ist Dein Ziel für diese Prüfung ?
Wann soll sie erfolgen ?
Was soll geschehen, wenn ein Name schon vorhanden sein sollte ?

Gruß
Aloys

skidrow · 19. Januar 2016

Sry, hatte das guten morgen vergessen....

Die Namen können öfter vorkommen. Auch ggf. 3 oder 4 mal. Sobald ein Name mindestens doppelt vorhanden ist, soll die userform öffnen. Dort kann ich dann den richtigen auswählen. Nachnamen sind oft doppelt... Vornamen hatten wir auch schon. Es reicht ja, das der Nachname geprüft wird. Könnte ich das so machen, das die Userform zu ist, sie aber trotzdem gefüllt wird und er einfach die Einträge zählt? Und sobald mehr als ein Eintrah vorhanden, zeigt er sie?

Habe jetzt gerade mal probiert. Es geht echt. Danke dafür! Ich wusste nicht das die Userform im Hintergrund schon befüllt werden kann, bevor sie überhaupt sichtbar ist.

skidrow · 19. Januar 2016

Ein Abfrage ob der Wert doppelt oder gar noch öfter vorkommt habe ich hinbekommen. Da die ListBox im Hintergrund aktualisiert wird, lasse ich einfach die Einträge in der Listbox zählen bevor ich sie Zeige und werte das mit einer If-Abfrage aus. Klappt wunderbar und ist garnicht kompliziert *Smilie

Danke Aloys, wegen dir konnte ich mir selber helfen.

aloys78 · 19. Januar 2016

Hallo,

Klappt wunderbar und ist garnicht kompliziert
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Eine andere Möglichkeit:
Code:

Option Explicit

Sub Soldat_eintragen()
Dim rngcellPLZ As Range
Dim PLZ As String
Dim z As Long
Dim LoL As Long

LoL = Tabelle2.Cells(Rows.Count, "A").End(xlUp).Row
z = WorksheetFunction.CountIf(Tabelle2.Range("A2:A" & LoL), Tabelle1.TextBox1)
If z < 2 Then Exit Sub 'Nachname maximal 1 x vertreten

With Tabelle2.Range("a:a")
UserForm1.ListBox1.Clear
Set rngcellPLZ = .Find(Tabelle1.TextBox1)
If Not rngcellPLZ Is Nothing Then
PLZ = rngcellPLZ.Address
Do
With UserForm1.ListBox1
.ColumnCount = 3
.AddItem
.List(.ListCount - 1, 0) = rngcellPLZ.Value
.List(.ListCount - 1, 1) = rngcellPLZ.Offset(0, 1).Value
.List(.ListCount - 1, 2) = rngcellPLZ.Offset(0, 3).Value
.List(.ListCount - 1, 3) = rngcellPLZ.Address
.ColumnWidths = "2,5cm;2,5cm;3,5cm; 3,5cm"
End With
Set rngcellPLZ = .FindNext(rngcellPLZ)
Loop While Not rngcellPLZ Is Nothing And rngcellPLZ.Address PLZ
UserForm1.Show
End If
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys