Hallo,
hab da ein kleines Problem,
möchte mit "for each" die Cell-Adresse feststellen.
Beispieldatei: https://www.herber.de/bbs/user/48310.xls
Ein Problem für mich, da ich zu wenig Kenntnisse habe.
Ich hoffe auf Eure hilfe.
Danke
Marion
' ********************************************************************** ' Modul: Modul1 Typ: Allgemeines Modul ' **********************************************************************
Sub suchen() Dim Nm AsString Dim gefunden As Range Nm = "hammer" For Each gefunden In Worksheets("Tabelle1").Range("A1:K100") If gefunden.Value = Nm Then MsgBox gefunden.Offset(0, 1).Address EndIf Next gefunden EndSub
Du solltest Variablen keine Namen geben die VisualBasic als Ausdruck verwendet.
Das geht irgendwann böse nach hinten los.
ransi
Anzeige
AW: mit "for each" adresse feststellen
07.12.2007 18:27:00
marion
Hallo ransi,
besten Dank, auch für den Tip zu den Variablen.
Klappt.
Marion