Hi,
wie kann ich diese Bereichsfestlegung als Variable ausführen? Damit ich es an der zweiten und anderen Stellen aufrufen kann und nur an einer Position anpassen muß.
Code:
[...]
' Anpassen an maximal benutzten Bereich über alle Übersichten!
SW = Range("L7:HR32").Cells.Count ' Gesamtlaufzeit festlegen über Zählbereich
[...]
' Bereich analog oben anpassen!
For Each Zelle In Range("L7:HR32") ' Tabellenbereich, der überprüft wird.
[...]
Hallo Ralf
Als VBA-Doofie würde ich es so versuchen:
Code:
Dim MeinBereich As Range
Set MeinBereich = "A5:J17"
Hallo Ralf,
ich weiß jetzt nicht ob ich Dich richtig verstanden habe...
Code:
Sub nn()
Dim myRange As Range
Set myRange = Range("L7:HR32")
'[...]
' Anpassen an maximal benutzten Bereich über alle Übersichten!
SW = myRange.Cells.Count ' Gesamtlaufzeit festlegen über Zählbereich
'[...]
' Bereich analog oben anpassen!
For Each Zelle In myRange ' Tabellenbereich, der überprüft wird.
Next
'[...]
End Sub
Hallo Chris,
(16.05.2014, 07:47)chris-ka schrieb: [ -> ]ich weiß jetzt nicht ob ich Dich richtig verstanden habe...
ja, richtig verstanden, das könnte es sein.
Ich hatte heute nacht gedacht, das auch so versucht zu haben, da kam aber eine Fehlermeldung.
Hallo zusammen,
wenn man es kurz schreiben will - siehe Stefans Antwort, dann mit den eckigen Klammern:
Dim MeinBereich As Range
Set MeinBereich = [A5:J17]
Hallo André
Zitat:siehe Stefans Antwort
Der Stefan heißt aber Detlef.
Immerhin drei Buchstaben Übereinstimmung. :21:
Hallo Detlef,
ich hatte irgendwo noch Steffl im Hinterkopf
(oder zumindest dessen Nickname)
(17.05.2014, 05:27)schauan schrieb: [ -> ]wenn man es kurz schreiben will - siehe Stefans Antwort, dann mit den eckigen Klammern:
Dim MeinBereich As Range
Set MeinBereich = [A5:J17]
aaah, ok, dann ist das klar, warum bei Verwendung der runden Klammern plötzlich nichts mehr gezählt wurde.
Jetzt habe ich es mit eckigen getestet, das funktioniert mit den Übersichten 2-5, aber bei der ersten findet Excel keine Farben, da werden nur Nullen eingetragen.