Makroproblem
04.01.2005 22:40:05
Uwe
In der Zelle A1 ist ein Name hinterlegt, der sich nach jedem Zugriff ändern kann. In den Zellen A8, A23, A32 usw. steht zu Anfangs "Text". Dem "Text" ist die Kennzahl "0" zugeordnet. Die Kennzahl steht in der Zelle M8. Wenn in A8 nicht "Text stehen sollte, dann wird aus der Kennzahl eine "1". Für die Zuordnung der Kennzahl ist in M8 eine Formel hinterlegt(z.B. Formel in Zelle M8: =wenn(A8="Text";0;1).
Wenn ich also mehrere Zellen habe, in denen "Text" steht, dann habe ich auch mehrere Kennzahlen, die = 0 sind. Der Bereich der Kennzahlen beschränkt sich auf M8.M157.
Über das Makro soll nun der oberste Nullwert gesucht werden. Hat das Makro den obersten Nullwert gefunden (z.B. M8), dann soll er in die entsprechende Zeile/ Zelle A8 den Namen aus A1 einfügen. Durch diesen Vorgang wird A8 überschrieben und aus M8 wird 1. Wird dieser Vorgang wiederholt, ist der nächste oberste Nullwert in Zelle M23 und A23 wird entsprechend überschrieben, usw. bis es keinen Nullwert mehr gibt.
Folgendes habe ich bereits ausprobiert, jedoch ohne Erfolg:
Dim r
Dim n
Sub Makro_7()
' zu vergleichenden Bereich definieren
Set r = Range("M8:M157")
' Suchen
For n = 1 To r.Rows.Count
If r.Cells(n, 1) = 0 Then
Range("A1").Select
Selection.Copy
Cells(n + 1, 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
GoTo Ende
End If
Next n
Ende:
End Sub
Ich hoffe, ihr könnt mir weiterhelfen.