Probleme mit der Gruppierung und Gliederung

Hallo Zusammen,
ich habe Probleme mit der Gliederung und Gruppierung von Daten. Ich bin gerade dabei eine Tabelle der Stundenabrechnung für Technikereinsätze zu erstellen. Die oberste Zeitenzeile stellt dabei die Hauptzeile dar. Sobald eine anderweitig erfolgte Fahrt während des Kundenaufenthalts erfolgt ist, sollte diese erfolgte Zwischenfahrt mit in die Stunden- und Fahrtzeitabrechnung eingeschrieben werden.
Die Zwischenfahrten sollen dabei einzelnd nur dann eingeblendet bzw. über ein "+" - Zeichen eingeblendet werden, so bald diese auch wirklich angefallen sind, denn sonst soll direkt mit der zweiten dann folgenden Hauptzeile weitergemacht werden. Mir gefällt es jedoch nicht, dass über die Funktion Gruppierung bei nicht angefallenden Zwischenfahrt (ausgeblendete Zeilen) ein so großer grauer Kasten als Leerraum dort steht.
https://www.herber.de/bbs/user/87873.xls
Ich wäre für Eure Hilfe sehr dankbar.
Gruß
Micha

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Micha,
das kann man dann gut mit eingefügten Formen realisieren, die z.B. in Spalte A in der Hauptszeile mit dem Datum plaziert werden -jeweils eine zum Einblenden, eine zum Ausblenden.
Füge die beiden Formen in der 1. Datums-Zeile ein und weise den Formen jeweils eines der beiden Makros zu. Anschliessend kannst du beide Formen selektieren, kopieren und in den anderen Datumszeilen einfügen.
mfg
Franz

'Makros in einem allgemeinen Modul der Datei
'Aufruf der Makros erfolgt über Formen (z.b: Pluszeichen und Minuszeichen), _
denen ein Makro zugewiesen ist und die in der Hauptzeile mit _
dem Datum palziert sein müssen - z.B. in Spalte A
Sub Zwischenfahrteinblenden()
Dim objShape As Shape, lngZeileDatum As Long, lngZeile As Long
Set objShape = ActiveSheet.Shapes(Application.Caller)
lngZeileDatum = objShape.TopLeftCell.Row
For lngZeile = lngZeileDatum + 2 To lngZeileDatum + 10 Step 2
If ActiveSheet.Rows(lngZeile).Hidden = True Then
With ActiveSheet
.Range(.Rows(lngZeile - 1), .Rows(lngZeile)).Hidden = False
End With
Exit For
End If
Next
End Sub
Sub Zwischenfahrtausblenden()
Dim objShape As Shape, lngZeileDatum As Long, lngZeile As Long
Set objShape = ActiveSheet.Shapes(Application.Caller)
lngZeileDatum = objShape.TopLeftCell.Row
For lngZeile = lngZeileDatum + 10 To lngZeileDatum + 2 Step -2
If ActiveSheet.Rows(lngZeile).Hidden = False Then
With ActiveSheet
.Range(.Rows(lngZeile - 1), .Rows(lngZeile)).Hidden = True
End With
Exit For
End If
Next
End Sub

Beliebteste Forumthreads (12 Monate)

Probleme mit der Gruppierung und Gliederung

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

25 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Probleme mit der Gruppierung und Gliederung

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

25 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread