Office: (Office Version unbekannt) Anwendung von Makros auf Kalenderwoche

Hallo,

kennt jemand eine Funktion durch welche man in einem vorhandenem Worksheet nach zB einem Kundennamen oder einer Kundennummer suchen kann und wenn diese nicht vorhanden ist wird mein else aktiviert?


Wird warscheinlich ne If Funktion sein, jedoch habe ich keine ahnung wie ich ihn dazu bringe entweder Name oder Nummer zu identifizieren

Vielen Dank im Voraus :D

 

Hallo Keanhula,

mit Schleife alle Zellen durchlaufen und abfragen

Code:

If Zelle.Value = Name or Zelle.Value = Nummer then
   mache das
else
   mache was anderes
end if

Oder wo ist das Problem?
Hast Du Codeschnipsel?

Gruß,
Lutz

 

Hallo Lutz

Danke schon mal für die Antwort

Hier ist der aktuelle Code

Private Sub Speichern_Click()
Application.ScreenUpdating = False

'Fehlermeldungen wenn keine Kundennamen und/oder Kundennnummer angegeben sind
If Text_KundenName = Empty And Text_KundenNummer = Empty Then
MsgBox "Bitte Kundenname und Kundennummer einfügen", vbOKOnly + vbInformation, "Achtung"
ElseIf Text_KundenName = Empty Then
MsgBox "Bitte Kundenname einfügen", vbOKOnly + vbInformation, "Achtung"
ElseIf Text_KundenNummer = Empty Then
MsgBox "Bitte Kundennummer einfügen", vbOKOnly + vbInformation, "Achtung"
End If

'Searchfunktion ob es den Kunden schon gibt
If NewClientBox = True Then
Worksheets(ComboYear.Value).Range("A4").End(xlDown).Offset(1, 0).Value = Text_KundenName
ActiveCell = Text_KundenName.Value
Worksheets("ClientData").Activate
Worksheets("ClientData").Range("A1").End(xlDown).Offset(1, 0).Select
ActiveCell = Text_KundenName.Value
Worksheets("ClientData").Range("B1").End(xlDown).Offset(1, 0).Select
ActiveCell = Text_KundenNummer.Value
ElseIf NewClientBox = False Then
'Funktion "Search" Worksheet("ClientData").Range("A2").value = Text_KundenName and Worksheet("ClientData").Range("B2").value = Text_KundenNummer
'Insert in all data provided in worksheets(ComboYear.Value) in the correct cases (anderes Problem) und diese sollen dann auch bearbeitet werden können
End If

'Fehlermeldung falls Name und/oder Nummer fehlt
If Text_KundenName = Empty Or Text_KundenNummer = Empty Or (Text_KundenName = Empty And Text_KundenNummer = Empty) Then
Worksheets("Start").Activate
ElseIf Text_KundenName <> Empty And Text_KundenNummer <> Empty Then
Worksheets(ComboYear.Value).Activate
End If

Application.ScreenUpdating = True
Unload Kundeneingabe
End Sub


Danke im Voraus

 

Hallo Keanhula,

probier mal:

ElseIf NewClientBox = False Then
On Error Resume Next
Zeile = Cells.Find(What:=Text_KundenName, LookAt:=xlWhole).row
On Error goto 0
If Zeile<1 and cells(Zeile,2)=Text_KundenNummer then
**** Hier der Code für Erfolg ****
Else
**** Fehlermeldung *****
End if
End if

Grundsätzlich sollte natürlich die Suche nach der Nummer reichen, da die Zuordnung Nummer zu Name eindeutig sein sollte.
Entsprechend würde ich, solange die Nummer nicht schon bekannt ist, die Nummer über eine MsgBox eingeben und sofort in der Liste suchen. Zum Abgleich kannst Du den gefundenen Kundennamen über eine MsgBox anzeigen und freigeben lassen.
Sollte die Nummer nicht gefunden werden, eine weitere Eingabe des Kundennamens.

Noch eine Variante zur Ermittlung der letzten Zelle:
LetzteZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

Da ist evtl. noch ein Fehler:
Worksheets(ComboYear.Value).Range("A4").End(xlDown).Offset(1, 0).Value = Text_KundenName
ActiveCell = Text_KundenName.Value
Oder willst Du den Kundennamen zweimal eintragen (Text_KundenName.Value muss Text_KundenName heißen)?

Das ist langsam:
Worksheets("ClientData").Range("A1").End(xlDown).Offset(1, 0).Select
ActiveCell = Text_KundenName.Value
mach
Worksheets("ClientData").Range("A1").End(xlDown).Offset(1, 0) = Text_KundenName.Value
draus.
Du musst die Zelle zum Eintragen nicht auswählen.

Gruß,
Lutz