Excel 97: Makro zum Datenfinden?

Computer: Software & Programmierung Office Software
1

Hi Profis!

Ich würde gerne folgende Aktion automatisieren:
Ich habe eine Spalte A mit eindeutigen Zahlen. In einer Spalte B stehen Zahlen, die in A vorkommen. Jetzt soll zu jeder Zahl in B die Zeile gesucht werden, die mit dieser Zahl in Spalte A beginnt und nach oben kopiert werden.
Ein Beispiel:

Ausgangslage:

| A | B | C | D | ...
| 1 | 3 | 9 | |
| 2 | 7 | 6 | |
| 3 | 4 | 5 | |
.
.
.

1. Schritt:
| A | B | C | D | ...
| 1 **| 3 |** 9 | |
| 2 | 7 | 6 | |
| 3 | 4 | 5 | |

Selection.Copy
'kopiert mir die „3“
ActiveCell.Offset(0, -1).Range(„A1“).Select
'wechselt in Spalte A

Aufgabe: suche den Inhalt der Zwischenablage (hier: „3“) in Spalte A, gehe dahin und kopiere die ganze Zeile
Jetzt die Frage:
Wie krieg ich die „3“ in eine Variable, so dass ich um diesen Betrag nach unten gehen kann? Geht das überhaupt?

???
? Variable:=Selection.Paste
? ActiveCell.Offset(Variable, 0).Range(„A1“).Select
? 'irgendwas in der Art… ???
???

…oder gehört so eine Frage unter Programmieren?
Dank trotzdem schon mal!
stanko

2

ist mir zwar nicht ganz klar, was du da vorhast, aber probier
mal folgendes:

es gibt die excel-funktion vergleich. mit der kannst du inner-
halb eines bereiches nach einem wert suchen. als retourwert
erhältst du die zeilennummer innerhalb des bereiches (schau in
die hilfe für genauere informationen)

schick ev. ein genaueres beispiel, was du eigentlich vorhast…

erwin

3

Hi Stanko,

ich muß mich meinem Vorredner anschließen. Deinen Algorithmus habe ich auch nicht verstanden. Doch denke ich, daß ich Dir bei Deinem Problem weiterhelfen kann. Wenn Du in VBA den Wert einer Zelle in eine Variable übergeben willst, dann benutze:

variable = Cells( Zeile, Spalte ).Value

Wobei Du für Zeile und Spalte natürlich die Zeilen- bzw. Spaltennummer eingeben mußt

Umgekehr um den Wert wieder in eine Zelle zu schreiben, verwendest Du

Cells( NeueZeile, NeueSpalte ).Value = variable

Copy und Paste ist unter VBA sehr umständlich zu handlen.

Ich hoffe geholfen zu haben.

Ciao

Uwe