Tabellenkalkulation

code Markierungen merken

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallo, ist es möglich in einem Makro nach Abfragen Markierungen zu erweitern, ich habe das mit folgendem Code versucht, aber nach der 2. Abfrage vergisst Excel die erste Abfrage und nur die zweite Markierung ist aktiv? vielen Dank im voraus Klaus If Cck180 = False Then Sheets("Zusammenfassung").Select Range("A4:O4").Select ActiveWindow.ScrollColumn = 1 Range("A4:O4,A14:O14").Select End If If Cck360 = False Then Sheets("Zusammenfassung").Select ActiveWindow.ScrollColumn = 1 Range("A5:O5").Select ActiveWindow.ScrollColumn = 1 Range("A5:O5,A15:O15").Select End If

Antwort 1 von Coolpix

hi gklaus,

ich würde die Uahlen der Zellbezüge in Variablen schreiben, dann kannst du einfach in der 2. Abfrage die Variable 1 hochzählen
in etwa so


'***
dim X as integer, y as integer

If Cck180 = False Then
x=4
y=14
Sheets("Zusammenfassung").Select
Range("A" & x : "O"  & x).Select
ActiveWindow.ScrollColumn = 1
Range("A" & x & ":" & "O" & y).Select
End If

If Cck360 = False Then
x=x+1
y=y+1
Sheets("Zusammenfassung").Select
ActiveWindow.ScrollColumn = 1
Range("A" & x : "O"  & x).Select
ActiveWindow.ScrollColumn = 1
Range("A" & x & ":" & "O" & y).Select
End If
~******

Greetings ;-)

Antwort 2 von Coolpix

Fehler !!


'***
dim X as integer, y as integer

If Cck180 = False Then
x=4
y=14
Sheets("Zusammenfassung").Select
Range("A" & x & ":" & "O"  & x).Select
ActiveWindow.ScrollColumn = 1
Range("A" & x & ":" & "O" & y).Select
End If

If Cck360 = False Then
x=x+1
y=y+1
Sheets("Zusammenfassung").Select
ActiveWindow.ScrollColumn = 1
Range("A" & x & ":" & "O"  & x).Select
ActiveWindow.ScrollColumn = 1
Range("A" & x & ":" & "O" & y).Select
End If
~******

so muß das ...

Greetings ;-)

Antwort 3 von gklaus

Hallo,

vielen Dank, aber jetzt markiert excel den ganzen Bereich zwischen A5 und O15, es sollten aber jeweils nur zwei Zeilen sein, bzw. wenn beide Bedingungen zutreffen insgesamt 4 Zeilen markiert sein.

Gruß
Klaus

Antwort 4 von Guenter

Hallo,

versuchs mal mit Union:


...
If Cck360 = False Then
Sheets("Zusammenfassung").Select
ActiveWindow.ScrollColumn = 1
Range("A5:O5").Select
ActiveWindow.ScrollColumn = 1
Union(Range("A4:O4,A14:O14"), Range("A5:O5,A15:O15")).Select
End If
...

Gruß
Günter

Antwort 5 von nighty

hi alle :)

hier ein beispiel der geforderten frage :)

gruss nighty

If Cck180 = False Then
Range("A4:O4,A14:O14").Select
ErsteSel = ActiveWindow.RangeSelection.Address
End If
If Cck360 = False Then
Range("A5:O5,A15:O15").Select
ZweiteSel = ActiveWindow.RangeSelection.Address
End If
AlleSel = AlleSel & ErsteSel & "," & ZweiteSel
Range(AlleSel).Select

Antwort 6 von nighty

hi alle :)

man beachte buedde das komma das bei jeder stringverlaengerung von noeten ist

gruss nighty

Antwort 7 von gklaus

vielen Dank für die Antworten, aber leider wird jetzt die clickbox nicht mehr ausgewertet, sie hat jetzt immer der Wert false.

Gruß
Klaus