Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich dynamisch markieren

Bereich dynamisch markieren
08.09.2003 07:31:59
HerbertS
Hallo Excel-Freunde,

ich möchte folgenden Bereich automatisch markieren: Beginn 3 Spalten neben der aktuellen Zelle bis 6 Zeilen oberhalb der aktuellen Zelle. Mit meinem VBA-Code klappt’s nur im Einzelschritt-Test mit F8. 


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Zeile = Target.Row
Range(Cells(Zeile, 3), Cells(Zeile - 5, 5)).Select
End Sub


Was fehlt noch?
Vielen Dank im Voraus für Euere Vorschläge.

HerbertS

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich dynamisch markieren
08.09.2003 07:38:18
Willie
So kannst du den Maximalen Bereich markieren! Muße nur noch an deine gegebenheiten
anpassen!
Gruß Willie


Sub Makro1()
wert1 = 1
For i = 1 To 3
wert = Cells(65536, i).End(xlUp).Row
If wert > wert1 Then
wert1 = wert
End If
Next
Range(Cells(1, 1), Cells(wert1, i - 1)).Select
End Sub

AW: Bereich dynamisch markieren
08.09.2003 08:27:24
Thomas Ramel
Grüezi Herbert

Nicht ganz klar ist mir, welcher Bereich genau markiert werden soll.
Wenn Du A1 wählst; soll dann A6:C10 markiert werden?

Wenn dem so ist, dann versuche es mit dem folgenden Code:



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row < 5 Or Target.Column > 254 Then Exit Sub
Application.EnableEvents = False
Target.Offset(-4, 0).Resize(5, 3).Select
Application.EnableEvents = True
End Sub


Code eingefügt mit: Excel Code Jeanie

Mit freundlichen Grüssen

Thomas Ramel
- MVP für Microsoft-Excel -
[Win 2000Pro SP-4 / xl2000 SP-3]
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige