Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
524to528
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
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spaltennummer bestimmen

Spaltennummer bestimmen
02.12.2004 08:32:49
Gregor
Hallo
In Zeile 1 will ich die Spaltennummer finden in der zB. das Wort "Länge" steht, damit ich diese in einer VBA-Prozedur als Variable eingeben kann.
zB. Cells(4, Spalte_Länge).Select
Sollte eigentliche einfach sein, habe aber im im Forum nichts gefunden.
Gruss Gregor

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spaltennummer bestimmen
Jürg
Hallo Gregor
Mein Lösungsvorschlag:
Dim x As Integer
For x = 1 To 256
If Cells(1, x).Value = "Länge" Then
MsgBox "Das Wort Länge steht in der " & x & ". Spalte"
Exit For
End If
Next x
Gruss
Jürg
AW: Spaltennummer bestimmen
Gregor
Jürg
Vielen Dank
Gregor
AW: Spaltennummer bestimmen
u_ 

Sub Spalte_suchen()
Dim Spalte As Byte
Spalte = Rows(1).Find(what:="Länge").Column
MsgBox Spalte
End Sub

AW: Spaltennummer bestimmen
02.12.2004 09:07:57
Harald
Hallo,
bei mir funzt das nur so.

Sub Spalte_suchen()
Dim Spalte As Byte
Spalte = Cells.Find(what:="Länge").Column
Cells(1, Spalte).Select
End Sub

Gruß
Harald
Anzeige
AW: Spaltennummer bestimmen
Gregor
Harald, u_
Herzlichen Dank für eure nützlichen Inputs, es funktioniert.
Gregor

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige