Office: Zeile durchlaufen, Wert Prüfen und kopieren

Moin!

ich bitte um Mithilfe bei folgendem Problem:

Ich möchte gern die Zeile 84 von Spalte C bis Spalte AB durchlaufen lassen und dabei auf einen Wert größer 0% prüfen lassen.

Ist der Wert größer 0% dann soll die entsprechende Zelle in "D92" kopiert werden, ansonsten nicht. (Alle weiteren darunter "D93" usw.)

Desweiteren soll bei einer positiven Prüfung die Zelle aus der Zeile 58 kopiert werden und neben den geprüften Wert eingefügt werden (also in "C92" usw.).

Das geht bestimmt auch mit 'ner fiesen Matrixformel, aber versteht die schon :P
Kann mir da jemand weiterhelfen?

Bsp.:

Spalte C Spalte D ....
Zeile 58 Hannover Mannheim
...
Zeile 84 19% 0%

...
Zeile 92 Hannover 19%

Ich habe mich schonmal daran versucht, aber das Ergebnis ist fern einer korrekten Lösung. *frown.gif*

Dim i As Integer
Dim j As Integer

For i = 3 To 28
For j = 92 To 117
If Cells(84, i).Value > 0 Then
Cells(84, i).copy
Cells(j, 4).Select
Selection.PasteSpecial
Cells(58, i).copy
Cells(j, 3).Select
Selection.PasteSpecial
Else
i = i + 1
End If
Next
j = j + 1
Next

:)

 

Wenn du diesen Befehl nimmst kannst du dir die ganzen Select sparen da man diese in 99% der Fälle eh weglassen kann.
Range("A1").Copy Destination:=Range("A2")

 

okay, danke für den hinweis!

dann kann ich meinen code schon mal etwas entschlacken^^

 

wie sieht es mit dem eigentlich problem aus? *Smilie

 

Ungeprüft müsste aber funktionieren

Code:

Bin allerdings nicht ganz sicher was du genau in Zeile 58 kopieren willst habe es jetzt einfach mal deinem Code entnommen.

Edit:
Bin mir ausserdem nicht sicher warum du eine 2. For-Schleife in deinem Code hast diese wird ja 25mal ausgeführt.

 

Servus!

Danke dir erstmal!
hm...funktioniert leider nicht ganz. *frown.gif*

aus zeile 58 will ich gern das aus der suchzeile entsprechende wort kopieren.
also (siehe bsp oben), wenn 19% gefunden dann diesen wert in D92 und das zu den 19 % gehörige Wort aus Zeile 58 (beides spalte C) soll dann in C92 usw.

alle weiteren ergebnisse sollen unter das erst genannnte.


dein code gibt keine fehlermeldung, zeigt aber leider auch nciht das richtie an. *wink.gif*

Hinweis: die städte aus zeile 58 sind bezüge auf ein anderes tabellenblatt...
und der wert in zeile 84 ist eine summe (aller werte die dazwischen liegen)

 

Moin
Einmal schreibst du Ergebisse aus SpalteC in zwei Zellen, einmal in eine.
Hier mal fuer zwei Zellen.
Code:

gruss hary

 

moin hary!

funktioniert einwandfrei!! vielen lieben dank!
hast mir - trotz schwieriger beschreibung meines anliegens - sehr geholfen!

 

Moin
Evtl. wurde ich noch ein loeschen einbauen. Wenn z.B. beim zweiten Durchlauf weniger >0 sind als beim ersten. Dann koennte einer zuviel drinbleiben.
Code:

Das musst du aber wissen.
gruss hary

 

okay, danke für den tipp!