Eintrag mit dem String in der Spalte finden

• Eintrag mit dem String in der Spalte finden von Anja vom 18.02.2005 10:58:30
• AW: Eintrag mit dem String in der Spalte finden - von u_ am 18.02.2005 11:18:45
  • AW: Eintrag mit dem String in der Spalte finden - von Anja am 18.02.2005 12:14:05
    • AW: Eintrag mit dem String in der Spalte finden - von u_ am 18.02.2005 12:36:50
      • AW: Eintrag mit dem String in der Spalte finden - von Anja am 18.02.2005 13:29:07

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

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ß

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!!!!

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ß

Betrifft: AW: Eintrag mit dem String in der Spalte finden
von: Anja
Geschrieben am: 18.02.2005 13:29:07
:(((
geht nicht...
:`-(((

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