ich habe eine Tabelle mit 3 Spalten:
Process | Name| Id
MP| Muster 121
MP| Muster 232
HR| Muster | 44
HR| Muster | 55
WT|Muster| 99
WT|Muster |998
Die Tabelle sollte so aussehen:
Process | Name| Id
(Zwischenzeile: soll Solution (MP) stehen)
MP| Muster 121
MP| Muster 232
(Zwischenzeile: soll Human Resources (HR) stehen)
HR| Muster | 44
HR| Muster | 55
(Zwischenzeile: soll Contract (WT) stehen)
WT|Muster| 99
WT|Muster |998
Mit dem Makro füge ich zwischen die Zeilen leere Zeilen ein. Wie kann ich in die Zwischenzeilen z.B Solution (MP) mit einfügen ?
Vielen Dank!
Sub Zeile()
Dim Zeile As Long
Dim Zeilemax As Long
With Sheet2
Zeilemax = .Cells(.Rows.Count, 1).End(xlUp).Row
For Zeile = Zeilemax To 2 Step -1
If .Cells(Zeile, 1).Value .Cells(Zeile - 1, 1).Value Then
.Rows(Zeile).Insert
End If
Next Zeile
End With
End Sub