Ausgeblendete Spalten beim Überprüfen überspringen

Dominik · 2016-11-11T20:05:00+00:00

Hallo zusammen, ich habe folgendes Problem bei dem ich leider nicht mehr weiterkomme. Ich will in einem Tabellenblatt die Zelle A5 - OG5 ab der aktiven Zelle aufwärts auf die Werte " _ U", "F" & "JU" überprüfen, jedoch sind bestimmte Spalten ausgeblendet. Die aktive Zelle beinhaltet auf jeden Fall bereits einen der oben genannten Werte, nun soll ab _ dieser Zelle aufwärts, diese Werte einzeln zusammenaddiert werden bis zur nächsten leeren Zelle. Dazu bräuchte ich dann Jeweils die Summe von "U", "F" & "JU, wenn einer der Werte nicht _ vorhanden ist halt von den Werten die in der Range vorkommen. Desweiteren brauch ich dann zu dem jeweiligen Wert die dazugehörige 1. und letzte Zelle. z.B. - markierte Zelle ist A65 mit Inhalt "U" erste leere Zelle ist A77 - "U" geht von BN5 - BV3 -> Anzahl 6 weil BS5 und BT5 ausgeblendet sind - "F" geht von BW5 - BX5 -> Anzahl 2 - "JU" geht von BY5 - CC5 -> Anzahl 3 weil BZ5 und CA5 ausgeblendet sind mfg Dominik


Hi, sorry ka wie ich das noch ausdrücken soll, folgendes habe ich im Upload hinterlegt,
ich dachte das reicht aus.
Das Blatt "Auswertung" dient nur als Zwischenspeicher um die Daten auszuwerten.
Das Blatt "Jahresübersicht MA" wird durch ein Makro befüllt und dient als Quelle für das  _
Blatt "Auswertung"
Im Blatt "Auswertung" werden nach dem Übertragen der Daten die Wochenenden und die  _
Feiertage ausgeblendet, da dort ja kein "U", "F" oder "JU" stehen kann.
Nun will ich auf dem Blatt "Jahresübersicht MA" ein feld anklicken (ActiveCell), dieses  _
ausgewählte Feld dient als Anhaltspunkt für den Start der Auswertung.
Ab diesem Feld soll bis zur ersten leere Zelle der Bereich überprüft/ausgewertet werden und zu  _
dem jeweiligen Wert ("U","F","JU") das erste und das letzte Feld in dem er vorhanden ist und die Anzahl.
Diese Werte sollen dann dementsprechend auf das Blatt "Urlaubsschein" übertragen werden.  _
( Felder sind farblich markiert )
Also folgende Tabellenblätter:
Quelle:                         "Jahresübersicht MA
Zwischenspeicher zum auswerten: "Auswertung"
Ziel der Daten:                 "Urlaubsschein"

Mich würde mal interessieren weshalb du das in Auswertung haben willst ?
Wieso nicht gleich in der Jahres tabelle ?
Sonst könnte man es so versuchen
es wird immer bis Interior.ColorIndex = -4142 order 0 gesucht dann wird der loop unterbrochen
Gruß Basti

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Cancel = True
On Error GoTo ende
If Target.Value = "JU" Or Target.Value = "F" Or Target.Value = "U" Then
Datum = Target.Value
Do
If Target.Offset(r, c).Value = Target.Value Then Datum = Datum & "," & Target.Offset(-1 + r, c). _
Value
If Target.Offset(r, c).Interior.ColorIndex = 2 Or Target.Offset(r, c).Interior.ColorIndex = - _
4142 Then Exit Do
c = c + 1
If 33 = Target.Offset(r, c).Column Then r = r + 3: c = -Target.Column + 2
Loop
Datum = Split(Datum, ",")
Select Case Datum(0)
Case "U"
Col = 1
Case "F"
Col = 4
Case "JU"
Col = 3
End Select
With ThisWorkbook.Worksheets("Urlaubsschein")
.Cells(6, Col) = Datum(1)
.Cells(8, Col) = Datum(UBound(Datum))
.Cells(10, Col) = UBound(Datum)
End With
End If
ende:
End Sub

Ausgeblendete Spalten beim Überprüfen überspringen

Forumthread: Ausgeblendete Spalten beim Überprüfen überspringen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Ausgeblendete Spalten beim Überprüfen überspringen

Forumthread: Ausgeblendete Spalten beim Überprüfen überspringen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread