Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
812to816
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
812to816
812to816
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makierung durch VBA auf eine Spalte reduzieren

Makierung durch VBA auf eine Spalte reduzieren
30.10.2006 12:23:26
floh
Hallo Excel-Experten,
wie stelle ich folgendes an?
ich makiere einen variablen Bereich in meiner Tabelle.
Bei Aktivierung des Makro soll nun
die Makierung nur für Spalte B angezeigt werden
zum Beispiel
ich makiere E20:F30 das Makro makiert B20:B30
oder
ich makiere A11:C15 das Makro makiert B11:B15
oder
ich makiere D25:D32 das Makro makiert B25:B32
usw.
Mit freundlichen Grüßen
floh

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makierung durch VBA auf eine Spalte reduzieren
30.10.2006 12:43:30
Heiko S.
Hallo Floh,
z.B. so:

Sub SelectT()
ActiveSheet.Range(Cells(Selection.Row, 2), Cells(Selection.Row + Selection.Rows.Count - 1, 2)).Select
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
AW: Makierung durch VBA auf eine Spalte reduzieren
30.10.2006 12:44:44
Daniel Eisert
Hallo
damit gehts:
Selection.Offset(0, 2 - Selection.Column).Columns(1).Select
Wenn du eine andere Spalte benötigst als B, dann musst du nur die 2 durch die entsprechende Spalten-Nr. ersetzen. Das ganze geht aber nur bei zusammenhängenden Zellbereichen. Markierst du gestückelt mit gedrückter STRG-Taste, wird sie Selektion auf den ersten Block reduziert. Gruß, Slowboarder
Anzeige
AW: Makierung durch VBA auf eine Spalte reduzieren
30.10.2006 12:53:23
EtoPHG
Hallo Florian,
Das gehört in die Tabelle, in der Du dieses komische Select-Verhalten willst:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Range(Cells(Target.Row, Target.Column - Target.Column + 2), Cells(Target.Row + Target.Rows.Count - 1, Target.Column - Target.Column + 2)).Select
Application.EnableEvents = True
End Sub

Gruss Hansueli
AW: Makierung durch VBA auf eine Spalte reduzieren
30.10.2006 15:39:26
floh
Hallo an euch Helfer,
das war eine superschnelle Reaktion,
mit wirklich hilfreichen Antworten.
Ich Danke
MfG floh

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige