Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Friedrichroda /
Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.

Bei Problemen mit der Erreichbarkeit der Foren bitte den Link / Favoriten prüfen und ersetzen. Dazu über die Startseite ins gewünschte Forum wechseln und zu den Favoriten hinzufügen. Excel ist derzeit z.B. unter http://www.clever-excel-forum.de/forum-2.html zu erreichen.


Bereichsfestlegung als Variable aufrufen
#1
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.
[...]
Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to top
#2
Hallo Ralf

Als VBA-Doofie würde ich es so versuchen:
Code:
Dim MeinBereich As Range
Set MeinBereich = "A5:J17"
Wir sehen uns!
... shift-del
Eine Mustertabelle hilft beim Helfen.
Excel Super-Funktionen: VERWEIS(), INDEX(), WAHL()
to top
#3
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
lg Chris
Feedback nicht vergessen.
3a2920576572206973742064656e20646120736f206e65756769657269672e
 ?mage

to top
#4
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.
Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to top
#5
Hallo zusammen,

wenn man es kurz schreiben will - siehe Stefans Antwort, dann mit den eckigen Klammern:
Dim MeinBereich As Range
Set MeinBereich = [A5:J17]
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
to top
#6
Hallo André

Zitat:siehe Stefans Antwort
Der Stefan heißt aber Detlef.
Immerhin drei Buchstaben Übereinstimmung. 21
Wir sehen uns!
... shift-del
Eine Mustertabelle hilft beim Helfen.
Excel Super-Funktionen: VERWEIS(), INDEX(), WAHL()
to top
#7
Hallo Detlef,

ich hatte irgendwo noch Steffl im Hinterkopf Undecided (oder zumindest dessen Nickname)
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
to top
#8
(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.
Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste