AW: Zelle finden und Spaltennummer übergeben
26.10.2006 14:39:06
EtoPHG
Hallo Holger,
1) ...der Code bei mir nicht funzt... mit der Aussage kann ich viel anfangen.
z.B. weiss ich sofort, was nicht geht. Wie die Fehlermeldung lautet und wo der Code stehenbleibt etc....
2) Wenn die Msgbox VBA-Befehl den Wert ausgeben kann, dann müsste der Befehl
VariablerName = VBA-Befehl den gleichen Wert in einer Variablen versorgen.
Da aber sowieso 1) wird das ja kaum helfen, also wo ist das Problem ?
Vielleicht probierst Du's nochmals mit dem hier in einem Modul und berichtest dann, was läuft und was nicht und warum nicht:
Sub F()
On Error Resume Next
XY = ActiveSheet.Cells.Find(What:="Auftragsnummer", _
After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Column
If IsEmpty(XY) Then
MsgBox "Nix gefunden !!"
Else
MsgBox "Spalte ist : " & XY
End If
End Sub
Gruss Hansueli