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

Spalten "multiselekt" ausblenden

Spalten "multiselekt" ausblenden
11.01.2008 18:39:56
marion
Hallo,
ich habe folgendes Problem.
Ich möchte im Bereich (d:8, GU:8) MEHRERE Zellen mit Strg+Maus auswählen.
Dann sollen die NICHT ausgewählten Spalten ausgeblendet werden.
in dieser Art:
for spalte = 4 to 203
if cells(8, spalte) nicht ausgewaehlt then Columns(Spalte).Hidden = True
next
bekomme ich leider nicht hin.
Besten Dank für jede Hilfe
marion

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten "multiselekt" ausblenden
11.01.2008 18:53:00
ransi
HAllo MArion
Versuche es mal so:
Option Explicit


Public Sub test()
Dim zelle As Range
If Intersect(Selection, Range("D8:GU8")) Is Nothing Then Exit Sub
Columns("D:GU").Hidden = True
For Each zelle In Intersect(Selection, Range("D8:GU8"))
    Columns(zelle.Column).Hidden = False
Next
End Sub

ransi

Anzeige
besten Dank ransi, so klappt es
11.01.2008 19:05:00
marion
Hallo ransi,
danke und schönes Wochenende.
marion

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige