Daten in leere Zellen
Hamza
hab vor ein paar Tagen eine beispieltabelle aus dem Forum gekriegt.
Leider kann ich damit nicht viel anfangen. Hab probiert schon das Makro
auf dem Kopf zu stellen leider klappt es nicht so wie ich es möchte.
Ich möcht einfach das er mir nicht jede tausenste mit Titel 1 beschriftet
sondern von dem Arbeitsblatt "Einträge" Daten übernimmt.
Also wenn 1000 = Einträge!A9
wenn 2000 = Einträge!A10
usw.
Ich hoffe ihr könnt mir helfen
Dim lRow As Long, lRowL As Long
Application.ScreenUpdating = False
lRowL = Cells(Rows.Count, 1).End(xlUp).Row
For lRow = lRowL To 2 Step -1
If lRow = 2 Then
Rows(lRow).Insert
Cells(lRow, 1).Value = "" & Fix(Cells(lRow + 1, 1).Value / 10000) * 10000
ElseIf Fix(Cells(lRow, 1).Value / 10000) _
Fix(Cells(lRow - 1, 1).Value / 10000) Then
Rows(lRow).Insert
Cells(lRow, 1).Value = "Titel " & Fix(Cells(lRow + 1, 1).Value / 10000) * 1
End If
Next lRow
Range("A2").Font.Bold = False
Columns.AutoFit
Application.ScreenUpdating = True
Gruß Hamza