Zwischenzeilen mit fortlaufender Zahl per Makro
Torsten
ich habe folgendes Makro hier im Forum gefunden:
Sub Leerzeilen_Einfuegen()
Dim wks As Worksheet, lngZeile As Long
Set wks = ActiveSheet
Application.ScreenUpdating = False
With wks
For lngZeile = .Cells.SpecialCells(xlCellTypeLastCell).Row To 2 Step -1
If lngZeile Mod 100 = 0 Then Application.StatusBar = "Zeile " & lngZeile
.Rows(lngZeile).Insert
Next lngZeile
End With
Application.ScreenUpdating = True
Application.StatusBar = False
MsgBox "Fertig"
End Sub
Kann man es so anpassen, dass es NACH der Leerzeile, folgende Zeile einfügt:
>imgt|IGHG1_XXXX AJ851868|IGHV5-6-3*01 D_artificial S73821|IGHJ2*02 J00453/V00793|IGHG1*01
...und dort wo XXXX steht, von 0001 hochgezählt wird?
Ich bin damit überfordert...
Grüsse
Torsten