nur eintragen wenn Zelle leer

Hallo Leute,
ich hab ein makro bei dem Zellen in eine bestehende Liste eingefügt werden können.

Nun ist es so, dass in der bestehenden Liste Zellverweise gibt.
Um die Verweise nach einfügen von Zellen wieder richtig zu setzten, habe ich im makro folgenden code.
Problem: schon ausgefüllte Zellen sollen nicht überschrieben werden!!! wie bekomme ich das hin??
Gruss volker

'Artikelbezeichnung
Range("D5").Select
ActiveCell.FormulaR1C1 = _
"=IF(R[-1]C[18]=3,0,IF(R[-1]C[18]>0,CONCATENATE(R4C56),IF(R[-2]C[18]=2,CONCATENATE(R1C56),"""")))"
Selection.AutoFill Destination:=Range("D5:D319"), Type:=xlFillDefault

'Länge
Range("F5").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(R[-1]C>1,R[-1]C[16]=1),R[-1]C+20,IF(AND(R[-1]C>1,R[-1]C[16]=2),R[-1]C+20,IF(AND(R[-2]C[16]=2,R[-2]C>0),R[-2]C,IF(AND(R[-1]C[16]=0,R[-1]C>0),0,""""))))"
Selection.AutoFill Destination:=Range("F5:F319"), Type:=xlFillDefault

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Artikelbezeichnung() Dim c As Range Dim laR As Long Application.ScreenUpdating = False laR = Cells(Rows.Count, 1).End(xlUp).Row Range("D5").Copy For Each c In Range("D6:D319") If c.Value = "" Then c.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End If Next c Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

Sub Artikelbezeichnung() Dim c As Range Dim laR As Long Application.ScreenUpdating = False laR = Cells(Rows.Count, 1).End(xlUp).Row Range("D5").FormulaR1C1 = _ "=IF(R[-1]C[18]=3,0,IF(R[-1]C[18]>0,CONCATENATE(R4C56),IF(R[-2]C[18]=2,CONCATENATE(R1C56),"""")))" Range("D5").Copy For Each c In Range("D6:D319") If c.Value = "" Then c.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End If Next c Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

Hallo Volker,

bisher bin ich davon ausgegangen, dass Du per Makro eine Formel in die Zelle D5 schreiben willst und diese anschließend über den Bereich D6:D319 in alle leeren Zellen ziehen/kopieren willst.
Deine Fragestellung ("Aber: D5 brauche ich als unbeschriebene Zelle, oder? Sprich: es lässt sich nicht so hintricksen, dass D5 die Ausgangszelle ist, und gleichzeitig schon beschrieben ist.(deswegen nicht mit der Formel überschrieben werden soll).") ist mir leider völlig unverständlich - ich kann nicht nachvollziehen, was Du überhaupt möchtest.

Vielleicht helfen Dir diese beiden Hinweise weiter:
1. Du kannst die Formel auch aus einer Zelle kopieren, wo sie garantiert immer drinsteht.
2. Du kannst die Formel auch zuerst in eine garantiert immer leere Zelle schreiben, und sie dann dort kopieren.

Gruß WernerB.

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

nur eintragen wenn Zelle leer

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread