Überschrift nach VBA UserForm Eintrag
07.02.2016 00:23:00
Rudolf
Ich habe eine Excel Tabelle die ich zur Kundenverwaltung erstellt habe.
Dabei habe ich eine Userform wo man diverse Angaben ändern kann.
Nun möchte ich gerne, dass bei jedem Klick auf Speichern im Userform zwecks Übersicht folgendes passiert:
1)
Siehe Bild A, habe ich mit nachfolgendem Code bereits hingekriegt, dass zu jedem Verantwortlichen eine Überschrift mit dem Namen des Verantwortlichen nach dem Klick auf den Speichern Button generiert wird (Spalte F). Die Sortierung dazu habe ich auch bereits in einem anderen Modul programmiert und klappt ebenfalls. Das bedeutet nach der Sortierung, wird dann die "Namenszeile" eingefügt. Bei jederm speichern, werden zuerst alle Namenszeilen bzw. Überschriften gelöscht, die Tabelle sortiert und die Namenszeilen wieder eingetragen:
Sub NamenszeileEintragen()
' neue Namenszeilen eintragen
If tbl_Kuli.Cells(Rows.Count, 1).End(xlUp).Row > 2 Then
For i = 1 To tbl_Kuli.Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 6).Value Cells(i + 1, 6).Value Then
tbl_Kuli.Rows(i + 1).Select
Selection.Insert Shift:=xlDown
tbl_Kuli.Cells(i + 1, 6) = Cells(i + 2, 6).Value
tbl_Kuli.Range(tbl_Kuli.Cells(i + 1, 1), tbl_Kuli.Cells(i + 1, 24)).Interior. _
ColorIndex = 41 'oder direkt die Farbe angeb
With tbl_Kuli.Range(tbl_Kuli.Cells(i + 1, 1), tbl_Kuli.Cells(i + 1, 24))
.Font.ColorIndex = 2
.Font.Size = 20
.Font.Bold = True
.Borders.LineStyle = xlNone
.BorderAround
.RowHeight = 30
End With
End If
Next i
End If
End Sub
Sub NamenszeileLöschen()
'alte Namenszeilen löschen
intLastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
For intRow = intLastRow To 1 Step -1
If Application.CountA(Rows(intRow)) = 0 Then
intLastRow = intLastRow - 1
Else
Exit For
End If
Next intRow
For intRow = intLastRow To 1 Step -1
If IsEmpty(Cells(intRow, 1)) Then
Rows(intRow).Delete
End If
Next intRow
End Sub
2)
Ich möchte nun zusätzlich und das kriege ich einfach nicht hin, dass es innerhalb eines Verantwortlichen eine weitere Unterteilung bzw. Oberzeile mit dem Land erstellt wird (Spalte D).
Damit man versteht was ich meine, habe ich es auf Bild B ilustriert.
Kann mir jemand sagen wir ich das hinkriegen kann? :)
Vielen lieben Dank und Grüsse
Rudi