Zellposition bei zusammengesetztem Inhalt suchen

Liebe Excel-Spezialisten
Falls mir jemand bei meinem kleinen Problem helfen könnte, wäre ich sehr dankbar.
Ich möchte die Position einer Zelle in einer Spalte bestimmen, welche zusammengesetzt ist (z.B. =A25&", Tel.: +"&B25). Hierfür suche ich nicht nach dem eben genannten Code sondern eben dem jeweiligen Text der sich daraus zusammensetzt, z.B. "Name, Tel.: +49 151 123456".
Folgenden Ansatz habe ich:
Private Sub CommandButton3_Click() 'das ist der Knopf, der die Suche auf Form 4 auslöst
Dim aktueller_Belegarzt As String 'nach diesem Wert suche ich (Name u. Tel.Nr.), kommt aus ComboBox, die in Spalte D gefüllt wird
Dim E_Mail_Belegarzt As String 'steht in der Reihe eine Zelle davor (Spalte C)
Dim Listenanzeige_Liste_Aerzte As Range 'das ist die Spalte in der ich suche (D)
aktueller_Belegarzt = ComboBox1.Value 'hier kommt der zu suchende Wert her - und bis dahin geht es auch
Sheets("Liste_Aerzte").Activate 'in diesem Tabellenblatt findet sich die zu durchsuchende Liste in der Spalte D
Range("D:D").Find (aktueller_Belegarzt), LookIn:=xlValues, LookAt:=xlWhole 'hier kommt der Laufzeitfehler '424'
E_Mail_Belegarzt = ActiveCell.Offset(0, -1).Value 'da will ich die Mail hin schicken
Anrede_Belegarzt = ActiveCell.Offset(0, 3).Value 'steht drei Zellen dahinter in der Zeile (Spalte G)
With objMail
.To = E_Mail_Belegarzt 'HIER BLEIBT ER STEHEN mit dem o.g. Laufzeitfehler 424
.Subject = "Pat_Name_GebDat"
.Body = Anrede_Belegarzt & vbCrLf & vbCrLf & "Herzliche Grüsse vom ORTHO-NOTFALL-Team"
.Display 'Nachricht zur Kontrolle anzeigen
End With
Unload UserForm4
Mein Problem ist, dass Die Prozedur nur Werte ausgibt, wenn ich vorher eine Zelle in Spalte D angewählt habe, dann aber trotzdem den Laufzeitfehler ausgibt.
Kann mir da jemand helfen?
Liebe Wochenendgrüße von Ecki

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.
Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)
ich würde vermuten
Range("D:D").Find (aktueller_Belegarzt, LookIn:=xlValues, LookAt:=xlWhole )

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.

Private Sub CommandButton3_Click() Dim aktueller_Belegarzt As String, E_Mail_Belegarzt As String Dim Listenanzeige_Liste_Aerzte As Range, raFund As Range aktueller_Belegarzt = ComboBox1.Value With Worksheets("Liste_Aerzte").Range("D:D") Set raFund = .Find(what:=aktueller_Belegarzt, LookIn:=xlValues, LookAt:=xlPart) If Not raFund Is Nothing Then MsgBox aktueller_Belegarzt & " ist in Zeile: " & raFund.Row 'statt MessageBox hier dein weiterer Code Else MsgBox "Suchbegriff nicht gefunden." End If End With Set raFund = Nothing End Sub

Dim ws As Worksheet, rgSuchen As Range Set ws = Worksheets("Liste_Aerzte") Set rgSuchen = ws.Range("D:D").Find(What:= aktueller_Belegarzt, LookIn:=xlValues, LookAt:= _ xlWhole) If rgSuchen Is Nothing Then MsgBox "Suchbegriff '" & aktueller_Belegarzt & "' nicht gefunden!", 16, "Schade..." Set ws = Nothing Exit Sub End If 'wenn gefunden geht's hier weiter

Private Sub CommandButton3_Click() Dim aktueller_Belegarzt As String, E_Mail_Belegarzt As String Dim Listenanzeige_Liste_Aerzte As Range, raFund As Range Dim oApp As Object aktueller_Belegarzt = ComboBox1.Value With Worksheets("Liste_Aerzte").Range("D:D") Set raFund = .Find(what:=aktueller_Belegarzt, LookIn:=xlValues, LookAt:=xlPart) If Not raFund Is Nothing Then 'statt MessageBox hier dein weiterer Code MsgBox aktueller_Belegarzt & " ist in Zeile: " & raFund.Row E_Mail_Belegarzt = raFund.Offset(0, -1) Anrede_Belegarzt = raFund.Offset(0, 3) Set oApp = CreateObject("Outlook.Application") With oApp.CreateItem(0) .To = E_Mail_Belegarzt .Subject = Pat_Name_GebDat .Body = Anrede_Belegarzt & vbCrLf & vbCrLf & "Herzliche Grüsse vom ORTHO-NOTFALL- _ Team" .Display 'Nachricht zur Kontrolle anzeigen End With Else MsgBox "Suchbegriff nicht gefunden." End If End With Set raFund = Nothing: Set oApp = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Zellposition bei zusammengesetztem Inhalt suchen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellposition bei zusammengesetztem Inhalt suchen

8 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)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread