Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1824to1828
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
Inhaltsverzeichnis

erste sichtbare Spalte in Spaltenbereich

erste sichtbare Spalte in Spaltenbereich
05.04.2021 19:47:08
Bernd
Hallo mitnand,
erstmal noch allen frohe Ostern.
Kann mir wer dabei helfen, wie man die erste sichtbare Spalte im Spaltenbereich von I - AF mit der Spaltennummer in eine Variable bekommt.
Also bspw. wenns Spalte I ist, dann xspalte = 9.
Des wars eigenltich schon, vielen Dank vorab.
Gruß Bernd

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: erste sichtbare Spalte in Spaltenbereich
05.04.2021 19:57:23
onur

Dim xspalte
For xspalte = 1 To 32
If Columns(xspalte).Hidden = False Then
Exit For
End If
Next xspalte
If xspalte = 33 Then xspalte = 0

AW: erste sichtbare Spalte in Spaltenbereich
05.04.2021 19:58:22
Hajo_Zi
Hallo Bernd,
Option Explicit
Sub Makro1()
Dim InI As Integer
Dim InSpalte As Integer
For InI = 1 To 32
If Columns(InI).EntireColumn.Hidden = False Then
InSpalte = InI
Exit For
End If
Next InI
MsgBox "Spalte " & InI
End Sub
GrußformelHomepage
Anzeige
AW: erste sichtbare Spalte in Spaltenbereich
05.04.2021 20:21:00
Luschi
Hallo Bernd,
ich mache das so: MsgBox ActiveSheet.Cells.SpecialCells(xlVisible).Cells(1, 1).Column
Gruß von Luschi
aus klein-Paris
top - danke :)
05.04.2021 20:23:58
Bernd
Hallo, super, vielen Dank Euch.
Gruß Bernd
AW: top - danke :)
09.04.2021 18:42:32
Luschi
Hallo Bernd,
leider funktioniert mein Vorschlag nicht, wenn das Tabellenblatt mit einem Blattschutz versehen ist - da macht 'SpecialCells' offensichtlich schlapp und es wird ein Vba-Fehler geworfen.
Gruß von Luschi
aus klein-Paris
AW: erste sichtbare Spalte in Spaltenbereich
05.04.2021 22:49:01
GerdL
Hallo
Dim spalte As Long
On Error Resume Next
spalte = Tabelle1.Range("I:AF").Rows(1).SpecialCells(12).Cells(1).Column
On Error GoTo 0

Gruß Gerd
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige