Bei Klick in Zelle UserForm öffnen

[michel34497]

Hallo Klaus-Dieter!
Danke erstmal! Bin zur Zeit im Krankenhaus und kann erst zum wochenende Testen.
melde mich dann

[michel34497]

Hallo Klaus-Dieter!

Leider kann ich die Datei nicht richtig öffnen.
Die eieruhr läuft und läuft, dann irgendwann die Meldung Excel funktioniert nicht mehr.
Kann es sein das da eine endlosschleife läuft?

[schauan]

Hallo Michael,

mal ins blaue geraten - vielleicht liegt es an Deinem 2007. Kannst ja die Datei auch mal mit gedrückter shift-taste öffnen, da werden die Makros deaktiviert.

[michel34497]

Hallo!
Nachdem ich endlich ein update für excel installieren konnte, kann ich auch die Datei öffnen.
@Klaus-Dieter erstmal Danke für deine mühe
habe auch einen Test gemacht mit dem ergebniss
Wird ein Name z.B. in Zeile 7 eingegeben wir dieser auch gezählt 

Ich wollte ja das nur für die Zeilen 6, 10, 14, 18, 22, 26, 30, 34, 36, 42 .
Es kann natürlich sein das auch in der Zeile 7,8,11,12,15,16 usw ein Name steht, dieser darf aber dann nicht gezählt werden!

Code:

Private Sub Worksheet_Activate()
   Dim intAnz As Integer
   Dim intZeile As Integer
   Dim varDatArr(39, 8) As Variant
   Dim intArbBl As Integer
   Dim varBlArr As Variant
   varBlArr = Array("Januar_Februar", "März_April", "Mai_Juni", "Juli_August", "September_Oktober", "November_Dezember")
   For intArbBl = 1 To 6
       For intZeile = 5 To 43
           For intAnz = 0 To 6
               varDatArr(intZeile - 5, intAnz) = varDatArr(intZeile - 5, intAnz) + Application.WorksheetFunction.CountIf(Sheets(varBlArr(intArbBl - 1)) _
               .Range(Sheets(varBlArr(intArbBl - 1)).Cells(6, intAnz + 2), Sheets(varBlArr(intArbBl - 1)).Cells(42, intAnz + 2)), Tabelle7.Cells(intZeile, 4))
           Next intAnz
       Next intZeile
   Next intArbBl
   Tabelle7.Range("E5:K41") = varDatArr
End Sub

Im Code habe ich was geändert
vorlezte Zeile ("E4:K41") E4 auf E5 ungeschrieben

[Klaus-Dieter]

Hallo,

Ich wollte ja das nur für die Zeilen 6, 10, 14, 18, 22, 26, 30, 34, 36, 42 .

Es kann natürlich sein das auch in der Zeile 7,8,11,12,15,16 usw ein Name steht, dieser darf aber dann nicht gezählt werden!

das hatte ich dann wohl übersehen. Wobei ich dann auch wieder bei einem meiner Lieblingsthemen wäre: Struktur der Daten in der Liste. Es gibt da einige Regeln, die man tunlichst beachten sollte. In deinem Fall wäre das pro Datensatz nur eine Zeile.
Hilfreich wäre es auch gewesen, wenn in deiner Datei zu erkennen wäre, dass in den dort leeren Zellen auch Namen stehen könnten, wofür auch immer.

[michel34497]

Hallo Klaus-Dieter!

Hilfreich wäre es auch gewesen, wenn in deiner Datei zu erkennen wäre, dass in den dort leeren Zellen auch Namen stehen könnten, wofür auch immer.

Du hast recht! Das gibt es auch, nur leider nicht in der Datei die ich angehangen habe.
Sorry Ich habe die falsch Datei angehangen :33:

In der Spalte A für jede Woche Dienst Geb. Müll  so sollte es dort stehen dann wäre es auch ersichtlich gewesen

:30:

[michel34497]

Hallo!
@Klaus-Dieter

Habe mal propiert das von dir umzuschreiben ohne erfolg.
Was oder Wie müsste geändert werden?

Kannst du oder wer noch intresse hat helfen?

[Klaus-Dieter]

Hallo Michael,

diese "Kleinigkeit" erfordert leider einige Änderungen im Quelltext, um nicht zu sagen ein neues Konzept. Werde mir das heute Abend noch mal vornehmen.