Du hattest mir ja hervorragend bei meinem Problem mit diesem Code:
Sub fuenzig_plus()
Dim i%, j%, k%
With Sheets("Liste")
'wenn nur G7 eine Eintrag hat, dann alle berechnen:
If Application.Count(.Range("G7:G86")) = 1 And .Range("G7") <> "" Then
For i = 7 To 85 Step 2
.Cells(i + 1, 7) = .Cells(i, 7)
.Cells(i + 2, 7) = .Cells(i, 7) + 0.05
Next i
.Cells(87, 7).ClearContents
Else 'wenn Bereich teilweise oder ganz gefüllt:
For i = 7 To 86
If .Cells(i, 7) <> "" Then
For j = i + 1 To 86
If .Cells(j, 7) <> "" Then
.Cells(j, 7) = .Cells(i, 7)
i = j
Exit For
End If
Next j
For k = j + 1 To 86
If .Cells(k, 7) <> "" Then
.Cells(k, 7) = .Cells(i, 7) + 0.05
Exit For
End If
Next k
End If
Next i
End If
End With
End Sub
geholfen,meine Frage dazu ist was meintest du mit "Fehlerabfangen"? und das zweite wäre es möglich wenn ich die Zellen gelöscht habe das er mir dann in der Spalte daneben(H7:H86)auch etwas ändern kann? Es müßte immer ein dazugehöriger Buchstabe stehen.Hier ein Beispiel:
12,000 A
12,000 B
12,050 A
12,050 B
12,100 A
12,100 B
......
der Buchstabe müßte sich aber auch ändern wenn ich die Zahl lösche (laut deinem Macro).Weißt du oder natürlich jemand anderes einen Rat?
mfg Rene