Spalte finden

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 97
nach unten

Betrifft: Spalte finden
von: jane
Geschrieben am: 29.04.2002 - 15:07:44

Wenn ich den Wert und Zeilennr. einer Zelle wissen, wie kann ich die Spaltenr. herausfinden, damit ich sie in einer Integervariable abspeichern kann, z.B in Zeile 1 gibt es eine Zelle mit dem Wert "jane".

nach oben   nach unten

Re: Spalte finden
von: rainer
Geschrieben am: 29.04.2002 - 16:21:22

Hallo! Probiers mal so lspalte = Cells(zeilennummer, Columns.Count).End(xlToLeft).Column for i = 1 to spalte if cells(zeilennummer,i).value = "Jane" then spalte = i next i

nach oben   nach unten

Re: Spalte finden
von: Martin Beck
Geschrieben am: 29.04.2002 - 16:35:19

Hallo Rainer, Jane, da sind noch ein paar Hakler drin. Ich würde folgendes vorschlagen:
Sub Spalte_bestimmen() spalte = Cells(ActiveCell.Row, Columns.Count).End(xlToLeft).Column For i = 1 To spalte     If Cells(ActiveCell.Row, i).Value = "jane" Then Exit For Next i MsgBox i End Sub
Cursor muß in der zu durchsuchenden Zeile stehen. Gruß Martin Beck

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Spalte finden"