Supportnet / Forum / Tabellenkalkulation
Zellen durchsuchen
Frage
hallo zusammen,
ich habe folgendes probelm:
im tabellenblatt "TBT" stehen in dem bereich "AH145:IC145" Werte, der Wert "1.00E-20" kommt mit sicherheit vor.
in diesem bereich soll nun jede zelle (beginnend Bei AH145) durchsucht werden, ob der wert der darin steht "1.00E-20" ist.
ist es ein anderer wert, soll er in die nächste zelle springen, also AI145 und überprüfen.
sobald die Zelle den wert "1.00E-20" hat, soll die anzahl der bisherigen überprüften zellen mit 1 subtrahiert werden und im Tabellenblatt "TBT" in der Zelle AE695 erscheinen.
kann mir hier vllt jemand helfen
vielen dank,
gruß sebal
Antwort 1 von morpheus__85
Hallo Sebal,
hab mal folgendes versucht ...
Ich hoffe ich hab das richtig verstanden. Du hast den Bereich AH145 bis IC145 angegeben also nehm ich mal an das du dann in jeder Spalte zwischen AH und IC die 145 Zeile ansehen willst und mehr nicht.
Probier es mal aus ich hoffe es funktioniert und erfüllt deine wünsche.
gruß
morpheus
hab mal folgendes versucht ...
Zitat:
Public Sub test()
Dim x
x = 34
'34 entspricht der Zeile AH
Do
If Cells(145, x).Value = "1.00E-20" Then
Cells(31, 695).Value = x - 1
'31 entspricht der Spalte AE
Exit Sub
Else
x = x + 1
End If
Loop Until x = 238
'237 entspricht der Zeile IC + 1 damit die Spalte IC mit durchsucht wird.
End Sub
Public Sub test()
Dim x
x = 34
'34 entspricht der Zeile AH
Do
If Cells(145, x).Value = "1.00E-20" Then
Cells(31, 695).Value = x - 1
'31 entspricht der Spalte AE
Exit Sub
Else
x = x + 1
End If
Loop Until x = 238
'237 entspricht der Zeile IC + 1 damit die Spalte IC mit durchsucht wird.
End Sub
Ich hoffe ich hab das richtig verstanden. Du hast den Bereich AH145 bis IC145 angegeben also nehm ich mal an das du dann in jeder Spalte zwischen AH und IC die 145 Zeile ansehen willst und mehr nicht.
Probier es mal aus ich hoffe es funktioniert und erfüllt deine wünsche.
gruß
morpheus
Antwort 2 von morpheus__85
Hallo Sebal
hab soeben noch einen Fehler entdeckt.
Du möchstes ja ausgeben, wieviele Zellen schon durchsucht wurden.... also besser bitte folgendes aus.
statt:
Cells(31, 695).Value = x - 1
muss es heißen
Cells(31, 695).Value = x - 33
'33 weil du fängst bei 34 an und willst selbst noch mit 1 subtrahieren also 33
gruß
morpheus
hab soeben noch einen Fehler entdeckt.
Du möchstes ja ausgeben, wieviele Zellen schon durchsucht wurden.... also besser bitte folgendes aus.
statt:
Cells(31, 695).Value = x - 1
muss es heißen
Cells(31, 695).Value = x - 33
'33 weil du fängst bei 34 an und willst selbst noch mit 1 subtrahieren also 33
gruß
morpheus
Antwort 3 von sebal
hallo morpheus, danke für deinen tipp und deine mühe,
ich habe es jedoch selbst soeben abders gelöst, aber trotzdem danke.
hab noch ien viel größeres problem, die frage ist bereits im kalender, irgendwas mit diagramme.
also DANKE
gruß sebal
ich habe es jedoch selbst soeben abders gelöst, aber trotzdem danke.
hab noch ien viel größeres problem, die frage ist bereits im kalender, irgendwas mit diagramme.
also DANKE
gruß sebal
Antwort 4 von sebal
hallo morpheus,
ich hab dein makro noch mal schnell angeschaut und es sieht so aus wie ich gemeint hätte,
also nur für dich als rückmeldung, du hast die frage richtig verstanden, ok?
danke
sebal
ich hab dein makro noch mal schnell angeschaut und es sieht so aus wie ich gemeint hätte,
also nur für dich als rückmeldung, du hast die frage richtig verstanden, ok?
danke
sebal
Antwort 5 von morpheus__85
Hallo Sebal,
vielen dank für deine Rückmeldung, auch wenn du es vorher dann shcon hattest ;-)
weiterhin viel erfolg beim programmieren
gruß
morpheus
vielen dank für deine Rückmeldung, auch wenn du es vorher dann shcon hattest ;-)
weiterhin viel erfolg beim programmieren
gruß
morpheus
Antwort 6 von gast123
hi all
die findfunction wuerde einiges beschleunigen ausserdem wenn der zu durchsuchende bereich nicht all zu gross ist ,waere ein array auch nicht schlecht
gruss gast123
die findfunction wuerde einiges beschleunigen ausserdem wenn der zu durchsuchende bereich nicht all zu gross ist ,waere ein array auch nicht schlecht
gruss gast123