Gruß an alle,
ich habe immer noch eine Große bitte an Euch. Beim vorherigen Beitrag habe ich es wohl zu umständlich erklärt. Beim genanten Makro wird gefragt:
Falls in Zelle "$M$52" ein Wert steht,
dann soll dieser (später) zwischen spalte 72 To 78 eingefügt werden.
Falls in Celle 45 ein bestimmter Name steht soll diesem, der Wert von"$M$52",
plus 2 Zeilen weiter unten eingefügt werden.
******************************************************
If Target.Address = "$M$52" And IsNumeric(Target.Value) Then
For i = 72 To 78
If Cells(45, i).Value = Cells(49, 9) Then
Cells(Cells(Rows.Count, i).End(xlUp).Row + 2, i) = Cells(52, 8)
*******************************************************
Dieses Makro funktioniert einwandfrei, das Problem ist ist:
Ich möchte nicht dass der Wert „wie bisher 2 Zeilen weiter unten eingefügt wird“, sondern: Der Wert soll fest in Zeile (Bsp. 47 eingefügt werden),
zum Bsp. So!
******************************************************
If Target.Address = "$M$52" And IsNumeric(Target.Value) Then
For i = 72 To 78
If Cells(45, i).Value = Cells(49, 9) Then
Cells(Cells(Rows.Count, i).End(xlUp).Row (“47”), i) = Cells(52, 8)
******************************************************
Leider bekomme ich auf die Weise einen DEBUG. Könnt Ihr mir bitte weiterhelfen,
ich weis nicht wo der Fehler steckt.
Danke im Voraus
Liebe Grüße
Aki