Auf bestimmte Zelle springen und Wert übernehmen

Question

Hallo zusammen,
ich habe eine Tabelle die in Spalte A wie folgt aussieht

Matnr. 001
Stufe
*
*
*
*
Matnr. 002
Stufe
*
*
*
...

Ich möchte nun, dass mir ein Makro für die * die Matnr. die oberhalb steht einträgt. Meine Tabelle ist über 500 Zeilen lang. Folglich muss also alles automatisch geschen. Ich verwende Office 2007.
Kann mir jemand weiterhelfen?
Danke

Answer 1

Hallo,

versuch es mal mit dem Makro

Sub Matr()
Range("a1").Select
While IsEmpty(ActiveCell) = False
If Left(ActiveCell.Value, 6) = "Matnr." Then Text = ActiveCell.Value
If Asc(ActiveCell.Value) = 42 Then ActiveCell.Value = Text
ActiveCell.Offset(1, 0).Select
Wend
End Sub

Gruß

Helmut

Answer 2

Code funktioniert nicht ganz.
bis jetzt löscht er nur die sterne weg.
Übrigens in meiner Tabelle Stehen ab und zu nur ein *, manchmal **; ***,****,*****,******

grüße

Answer 3

hallo,


bei mir hat es einwandfrei funktioniert, da ich deine Tabelle nicht richtig kenne, gehe ich im Moment von einem Problem in deiner Tabelle aus.

Die Abfrage im Makro erfolgt zum einen auf "Matnr." zum Anderen auf *, wobei mehrere kein Problem bereiten dürften.

Wenn die Felder mit * nachher leer sind, wird der Text nicht übernommen.

Hast du das Makro rüberkopiert oder abgeschrieben und vielleicht abgeändert?

Gruß

Helmut