Spaltenname statt Spaltennummer im Code

• Spaltenname statt Spaltennummer im Code von Rainer Quaas vom 13.10.2003 15:13:05
  • AW: Spaltenname statt Spaltennummer im Code - von Michael Scheffler am 13.10.2003 15:14:57
    • AW: Spaltenname statt Spaltennummer im Code - von Rainer Quaas am 13.10.2003 15:45:21
      • AW: Spaltenname statt Spaltennummer im Code - von Michael Scheffler am 13.10.2003 16:17:43
  • AW: Spaltenname statt Spaltennummer im Code - von Hajo_Zi am 13.10.2003 15:16:31
    • AW: Spaltenname statt Spaltennummer im Code - von Rainer Quaas am 13.10.2003 15:40:16

Betrifft: Spaltenname statt Spaltennummer im Code
von: Rainer Quaas
Geschrieben am: 13.10.2003 15:13:05
Hallo Excel-User,

normalerweise lautet meine funktionierende Codezeile folgendermaßen:

Variable 2 = Worksheets("Tabelle5").Cells(Variable1, 11).Value

Da Tabell5 aber im Aufbau ist und weitere Spalten vor und nach Spalte K (11. Spalte) eingefügt werden, dachte ich mir, ich gebe der Spalte den Namen „Typ“, um den Code unabhängig von der Spaltennummer zu gestalten.

Leider weiß ich nun nicht die genaue Syntax für meine Codezeile.

Variable 2 = Worksheets("Tabelle5").Cells(Variable1, ???-SpaltenName???).Value

Wäre schön, wenn mir jemand die Lösung schicken würde.

Rainer Quaas

Betrifft: AW: Spaltenname statt Spaltennummer im Code
von: Michael Scheffler
Geschrieben am: 13.10.2003 15:14:57
Häh,

Du hast doch shon eine Variable - was willst Du denn noch?

Gruß

Micha

Betrifft: AW: Spaltenname statt Spaltennummer im Code
von: Rainer Quaas
Geschrieben am: 13.10.2003 15:45:21
Hallo Micha,

die Lösung lautet Dank Hajo folgendermaßen:

Dim Spalte As Integer
Spalte = Range("TyP").Column

Variable 2 = Worksheets("Tabelle5").Cells(Variable1, Spalte).Value

Jetzt kann ich vor Spalte11 "beliebig" viele Spalten einfügen und der Code funktioniert immer noch. Dies wäre nicht der Fall, wenn ich die Spaltennummer angegeben hätte.

Gruß Rainer

Betrifft: AW: Spaltenname statt Spaltennummer im Code
von: Michael Scheffler
Geschrieben am: 13.10.2003 16:17:43
Hallo Rainer,

dank Hajos Antwort ist mir die Frage klar geworden.

Gruß

Micha

Betrifft: AW: Spaltenname statt Spaltennummer im Code
von: Hajo_Zi
Geschrieben am: 13.10.2003 15:16:31
Hallo Rainer

Sub T()
Dim Spalte As Integer
Spalte = Range("TyP").Column
End Sub

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/


Betrifft: AW: Spaltenname statt Spaltennummer im Code
von: Rainer Quaas
Geschrieben am: 13.10.2003 15:40:16
Hallo Hajo,

danke für die schnelle Lösung.

Gruß Rainer

p.s.: -> OffTopic: Ich finde es toll von Dir, daß Du so vielen Fragestellern hilfst, aber besonders erwähnenswert finde ich, daß Du nochmal auf die Forums-Umgangsform hinweist, wie sie eigentlich selbstverständlich sein sollte.

Excel-Beispiele zum Thema " Spaltenname statt Spaltennummer im Code"
Spaltennamen bestimmen	Zelleinträgen über die Formatierung Spaltennamen hinzufügen