Herbers Excel-Forum - das Archiv

Eintrag mit dem String in der Spalte finden

Bild

Betrifft: Eintrag mit dem String in der Spalte finden
von: Anja

Geschrieben am: 18.02.2005 10:58:30
Hallo Leute,
ihc habe ein kleines Problemmchen...
komme irgend wie nicht weiter...
ich möcht einen String auswählen in der Spalte F, an der Stelle
wo in der Spalte C in "F" steht... ich habe diesen code dazu geschrieben..
Aber es funktioniert nicht:
For Each rng2 In Range(Range("C3"), Cells(10, 3).End(xlUp))
If rng2.Value = "F" Then row1 = rng2.Row

ordner = Range(Cells(row1, 4)).Value
Next
Er sagt Anwendungsdefinerter Fehler wenn ich auf letzte Zeile mit der Maus zeige.
Was habe ich falsch gemacht??? Kann mir jemand helfen???
Danke
VIele Grüße
Anna
Bild

Betrifft: AW: Eintrag mit dem String in der Spalte finden
von: u_

Geschrieben am: 18.02.2005 11:18:45
Hallo,
beim ersten durchlauf der Schleife ist row1 wahrscheinlich noch 0. Außerdem soll die Schleife doch wohl verlassen werden, wenn ein F gefunden wurde. Oder?
Versuchs mal so:
For Each rng2 In Range(Range("C3"), Cells(10, 3).End(xlUp))
If rng2.Value = "F" Then
row1 = rng2.Row
ordner = Range(Cells(row1, 4)).Value
exit for
end if
Next
Gruß
Bild

Betrifft: AW: Eintrag mit dem String in der Spalte finden
von: Anja

Geschrieben am: 18.02.2005 12:14:05
Hallo,
danke... es wird jetzt kein Fehler ausgegeben, aber er sieht komischer Weise
nichts ....
Ich verstehe nichts... :-((((
soll ich vielleicht rng2 irgend wie vorher definieren? ich habe es schon
mit Dim rng2 as Range versucht... trotzdem geht es nicht...
echt komisch!!!!
Bild

Betrifft: AW: Eintrag mit dem String in der Spalte finden
von: u_
Geschrieben am: 18.02.2005 12:36:50
Hallo,
lass .Value weg.
For Each rng2 In Range(Range("C3"), Cells(10, 3).End(xlUp))
If rng2= "F" Then
row1 = rng2.Row
ordner = Range(Cells(row1, 4))
exit for
end if
Next
Gruß
Bild

Betrifft: AW: Eintrag mit dem String in der Spalte finden
von: Anja
Geschrieben am: 18.02.2005 13:29:07
:(((
geht nicht...
:`-(((
 Bild
Excel-Beispiele zum Thema "Eintrag mit dem String in der Spalte finden"
Doppelte Einträge finden und löschen Submenüeinträge
Seitenanzahl eintragen Letztes Speicherdatum eintragen
Fußzeilen beim Öffnen eintragen Wert in erste leere Zelle eintragen
Häkchen eintragen KGRÖSSTE über VBA eintragen
Wochentage Mo - Fr in Tabelle eintragen Arbeitsmappe unter dem Text eines Zelleintrags speichern