Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1428to1432
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

suchen

suchen
18.06.2015 17:03:01
stef26
Hallo Zusammen,
hab da mal eine Frage...
Ich suche mit folgendem Macroausschnitt nach dem Wert in EDate.
EDate = Sheets("Einstellungen").Range("E22").Value
For Spalte = 1 To 50
If Sheets("SAP-Update-FBG").Cells(1, Spalte) = EDate Then
EDate = Spalte
Exit For
End If
Next Spalte
Wie muss ich es umschreiben, wenn ich nicht nur nach E22 sondern auch noch nach F22 suchen lassen möchte ? (einmal sind Einstellung in Deutsch einmal in Englisch)
Gruß
Stefan

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: suchen
18.06.2015 19:41:33
Sepp
Hallo Stefan,
ohne Schleife.
Dim vntRet As Variant

With Sheets("SAP-Update-FBG")
  vntRet = Application.Match(Sheets("Einstellungen").Range("E22"), .Range(.Cells(1, 1), .Cells(1, 50)), 0)
  If IsError(vntRet) Then vntRet = _
    Application.Match(Sheets("Einstellungen").Range("F22"), .Range(.Cells(1, 1), .Cells(1, 50)), 0)
  
  If IsNumeric(vntRet) Then
    MsgBox vntRet
  Else
    MsgBox "NA#"
  End If
End With

Gruß Sepp

Anzeige
AW: suchen
19.06.2015 09:15:27
stef26
Super funktioniert klasse
Danke
Stefan

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige