Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

In Zeile ersten wert suchen

Betrifft: In Zeile ersten wert suchen von: Josef
Geschrieben am: 10.09.2004 09:07:03

Ich habe eine Matrix
Spaltenköpfe (oben)stehen die Monate
links in den Zeilen die Namen

Ich suche einen Befehl, Funktion der erst die Zeile mit dem Namen sucht
und dann nach rechts den ersten Wert gemäß einen Bedingung z.B. "0" sucht und
mir dann den Monat zurück gibt.
Hintergrung : In welchem Monat hat müller das erstmal Geld bekommen?

01.2004 02.2004 03.2004 04.2004 05.2004
Maier 100,-- 150,-- 120,-- 130,--
Müller 50,-- 20,--
Schmitz 30,-- 40,-- 90,--

Lösung : 03.2004

  


Betrifft: AW: In Zeile ersten wert suchen von: harry
Geschrieben am: 10.09.2004 09:42:31

hi josef,
hier eine möglichkeit. du musst nur die bedingung abändern.

Mitarbeiter = Application.InputBox("Bitte namen des Mitarbeiters eingeben")

On Error Resume Next
zeile = Cells.Find(What:=CStr(Mitarbeiter), After:=Cells(1, 1), LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False).Row

If zeile = "" Then
MsgBox "Mitarbeiter nicht gefunden"
Exit Sub
End If

ende = Cells(zeile, Columns.Count).End(xlToLeft).Column

For i = 1 To ende
If IsEmpty(Cells(zeile, i)) = True Then
zahltag = Cells(1, i).Value
Exit For
End If
Next i

MsgBox zahltag

liebe grüße,
harry


 

Beiträge aus den Excel-Beispielen zum Thema "In Zeile ersten wert suchen"