Select

Forumthread: Select

Select

04.06.2025 12:22:09

Thomas

Hi Excelperten,

simples Problem, aber auch ChatGPT gibt mir keine (einfache) Lösung. Ihr vielleicht?

Folgende Tabelle:

Verbunden

1	1	1

2	2	2

3	3	3

Zeilen A1:C1 sind gemergt, darunter folgen 3 Zeilen mit Einträgen.
Per Makro möchte ich nun, dass nur Spalte B selektiert wird.

Habe folgendes probiert:

Sub SelectTest()

    

    '--- einzelne Zelle ==> funzt!

    [B3].Select

    

    '--- komplette Spalte der aktiven Zelle ==> funzt nicht!

    [B3].EntireColumn.Select

    

    '--- absolue Adressierung ==> funzt auch nicht!

    ActiveSheet.Columns(2).Select

End Sub

Klappt alles nicht. Es werden immer alle 3 Spalten markiert.
Wenn ich mit Maus aber auf den Spaltenkopf klicke, dann wird nur die eine Spalte markiert. Muss doch also gehen?

(Hintergrund: beim Öffnen einer Datei soll diese Spalte erst einmal deutlich sichtbar hervorgehoben werden, deshalb "Select"

Danke im Voraus,
Gruß,
Thomas

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Select

04.06.2025 12:48:57

GerdL
AW: Select

04.06.2025 12:56:10

Thomas
AW: Select

04.06.2025 12:52:33

BoskoBiati
AW: Select

04.06.2025 12:59:39

Thomas
AW: Select

04.06.2025 12:52:46

Yal
AW: Select

04.06.2025 15:09:04

daniel
AW: Select

04.06.2025 15:14:50

daniel
AW: Select

04.06.2025 16:58:48

Thomas
AW: Select

04.06.2025 13:04:42

Thomas
AW: Select

04.06.2025 14:17:04

Yal

AW: Select

04.06.2025 12:48:57

GerdL

Hallo Thomas,

weshalb machst du dir mit den Verbundenen die Sache unnötig schwer?

Sub Unit()



    With Range("a1:c1")

        .UnMerge

        Columns(2).Select

        .Merge

    End With



End Sub

Gruß Gerd

AW: Select

04.06.2025 12:56:10

Thomas

Ja danke erst mal, aber das ist eben die Sache mit der Beispielmappe.
Unmerge schlägt ChatGPT auch vor, aber ich habe ja nicht nur die gezeigten 3 Spalten, sondern viele Spalten, die in unregelmäßigen Abständen gemergt sind, und dann auch noch mit einer unterschiedlichen Anzahl von Spalten.
D.h., ich müsste erst einmal herausfinden, welche und wieviele Spalten im jeweiligen Bereich gemergt sind, und diese temporär unmergen. Das geht sicherlich auch und das wäre mein zweiter Ansatz, aber ich hatte die Hoffnung, dass es auch einfacher geht.
Any other clues?

AW: Select

04.06.2025 12:52:33

BoskoBiati

Hi,

Sub SelectTest()

   Rows(1).UnMerge

    ActiveSheet.Columns(2).Select

    Range("A1:C1").Merge

End Sub

Gruß

Edgar

AW: Select

04.06.2025 12:59:39

Thomas

Ja danke erst mal, aber das ist eben die Sache mit der Beispielmappe.
Siehe meine Antwort oben.

AW: Select

04.06.2025 12:52:46

Yal

Hallo Thomas,

verwende, anstatt verbundene Zellen, die Einrichtung "Über Auswahl zentrieren". Es ist für die Erscheinung meistens ausreichend und stört den Spaltenauswahl nicht.

VG
Yal

AW: Select

04.06.2025 15:09:04

daniel

Hi
bei .Select wird Excel immer automatisch die Selektion soweit erweitern, dass sich ein im Bereich befindlicher Zellverbund vollständig innerhalb der neuen Selektion befindet. Das ist eine Funktion von .Select und daran kannst du nichts ändern.
Wenn man die Zellen bearbeiten will, dann kann man das Problem umgehen, in dem man das .Select weglässt und direkt mit den Zellbereichen arbeitet, ohne sie vorher zu selektieren und die Befehle direkt an den Zellbereich (Range(), Cells()) anhängt.

Wenn du den Zellbereich nur markieren willst, um ihn hervorzuheben, dann wird es natürlich schwierig.

eine Möglichkeit wäre, die Zellen mit Zellverbund von der Selektion auszunehmen:

Sub Makro1()

Dim Zelle As Range

Dim Bereich As Range

For Each Zelle In ActiveSheet.UsedRange.Columns(3).Cells

    If Zelle.MergeArea.Columns.Count = 1 Then

        If Bereich Is Nothing Then

            Set Bereich = Zelle

        Else

            Set Bereich = Union(Bereich, Zelle)

        End If

    End If

Next

Bereich.Select

End Sub

oder du denkst dir eine andere Markierungsmethode aus.
eine Möglichkeit:
du zeichnest ein Rechteck mit auffälligem Rahmen und transparenten Hintergrund.
Im Workbook.Open-Event machst du es sichtbar und platzierst es über den hervorzuhebenden Zellen, im SelectionChange-Event blendest du es wieder aus.

AW: Select

04.06.2025 15:14:50

daniel

Hi
eine weitere Option wäre zu prüfen, ob die Zellen wirklich verbunden sein müssen.
wenn es nur um die Optik geht und es ein horizontaler Zellverbund ist, dann reicht es häufig aus, die Zellen mit Zelle formatieren - Ausrichtung - Horizontal - Über Auswahl zentrieren zu formatieren anstatt sie zu verbinden
Das sieht dann aus wie ein Zellverbund, zickt aber nicht so rum und du kannst deine Spalte einfach selektieren.

Gruß Daniel

AW: Select

04.06.2025 16:58:48

Thomas

Hi daniel,
vielen Dank auch für deine Vorschläge.
Das mit Über Auswahl zentrieren gefällt mir dabei am Besten, das hatte Yal auch schon vorgeschlagen.
Diese Funktion kannte ich noch nicht, da sie standardmäßig nicht im Schnellmenü zu finden ist, sondern wirklich erst unter Zellen formatieren->Ausrichtung
Gruß,
Thomas

AW: Select

04.06.2025 13:04:42

Thomas

Kannte ich noch gar nicht, vielen Dank! Das wäre eine Überlegung wert, wenn es keine andere Lösung gibt.
Hierzu müsste ich zwar "umbauen", aber es ist vielleicht der eleganteste Workaround,

AW: Select

04.06.2025 14:17:04

Yal

Hallo Thomas,

mit folgender Vorgehensweise kannst Du alle verbundenen Zellenblock auflisten:

Sub VerbundeneZellen_auflisten()

Dim Elt

Dim D As Object



    Set D = CreateObject("Scripting.Dictionary")

'Sammeln

    For Each Elt In Me.UsedRange

        If Elt.MergeCells Then D(Elt.MergeArea.Address) = ""

    Next

'Ausgeben

    For Each Elt In D.Keys

        Debug.Print Elt

    Next

End Sub

Und dann, anstatt deren Adresse auszugeben, diese unmergen und "über Auswahl zentrieren" (lässt per Makrorekorder ermitteln)

VG
Yal

Forumthread: Select

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread