Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Finden und Wert ausgeben...........

Finden und Wert ausgeben...........
15.07.2007 13:06:00
Sonnenpeter
Hallo,
ich habe da eine Suchroutine und möchte gerne den Wert der danebenliegenden Zelle (also in Spalte "I") ausgeben.

Sub TestMakro1()
With Worksheets("Zahlenabgleich").Columns("H:H")
Set c = .Find(1904, LookIn:=xlValues)
If Not c Is Nothing Then
ErsteZelle = c.Address
Do
Set c = .FindNext(c)
NächsteZelle = c.Address(0, 0)
'Dieser Versuch geht nicht
'TestZelle = NächsteZelle.Offset(0, 1).Value
MsgBox TestZelle
Loop While Not c Is Nothing And c.Address  ErsteZelle
End If
End With
End Sub


Gruß Sonnenpeter

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Finden und Wert ausgeben...........
15.07.2007 13:17:00
Peter
Hallo Sonnenpeter,
warum nicht so? TestZelle = Range("I" & C.Row)
Gruß Peter

JO, dass wars............
15.07.2007 13:25:16
Sonnenpeter
Hallo Peter,
Danke mit dem Ansatz komm ich weiter.
Gruß Sonnenpeter

AW: Finden und Wert ausgeben...........
16.07.2007 07:28:00
haw
Hallo,

Sub TestMakro1()
With Worksheets("Zahlenabgleich").Columns("H:H")
Set c = .Find(1904, LookIn:=xlValues)
If Not c Is Nothing Then
ErsteZelle = c.Address
Do
Set c = .FindNext(c)
If Not c Is Nothing Then TestZelle = c.Offset(0, 1).Value
MsgBox TestZelle
Loop While Not c Is Nothing And c.Address  ErsteZelle
End If
End With
End Sub


Gruß
Heinz

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige