Spaltennummer anhand der aktiven Zelle auswählen

GerdB51 · 2024-06-28T19:25:47+00:00

Hallo, für Cracks ein Kinderspiel. Mit meinen limitierten VBA-Kenntnissen stoße ich aber hier an meine Grenzen. Ich möchte einen Zellbezug (A1:E1) anhand der Spaltennummer der aktiven Zelle ansprechen. Mit: Sub nachSpalte() Dim dieSpalte As String ActiveCell.Offset(dieSpalte - 2).Select If dieSpalte Is 12 Then ActiveCell.Offset(0, 1).Range("A1:E1").Select Else ActiveCell.Offset(0, 11).Range("A1:E1").Select If dieSpalte Is 114 Then ActiveCell.Offset(0, 1).Range("A1:E1").Select Else ..... End Sub Klappt es nicht. Vor allem bei der Zeile (If dieSpalte Is 12) steigt Excel aus. Ich bin für jede Hilfe dankbar.

Hallo GerdL,
vielen Dank für Deine Hilfe. Es ist schon der richtige Ansatz, doch noch nicht genau das, was ich brauche. Ich lade hier mal eine Probedatei hoch.

Die Ausgangssituation ist wie in Zeile 12. Ich möchte, abhängig davon, in welcher Spalte sich der Wert Spieler befindet, die Zeile 2 Spalten weiter bis 2 Spalten vor dem Ende der Tabelle markieren.
Also als Beispiel:
befindet sich SPIELER in Spalte K, dann soll die Zeile von Spalte M bis Spalte AW markiert werden (das sind 36 Spalten)
befindet sich SPIELER in Spalte O, dann soll die Zeile von Spalte Q bis Spalte AW markiert werden (das sind 32 Spalten)
befindet sich SPIELER in Spalte S, dann soll die Zeile von Spalte U bis Spalte AW markiert werden (das sind 28 Spalten)
usw. Vielleicht hast Du auch dafür eine Idee. Mir wäre damit sehr geholfen, die Originaldatei besteh aus 6480 Zeilen und 76 Spalten.
Die Daten sollen anschließend entzerrt werden, so wie es in Zeile 14 aussieht. Das müsste ich aber selbst hinbekommen.
Gruß Gerd
https://www.herber.de/bbs/user/170562.xlsm

Hallo Gerd,

ich erkenne nicht, was GENAU du tun willst.
Hier mal ein Beispiel mit einigen Aspekten, die vielleicht etwas für deinen Ansatz sind.



Option Explicit

Sub test()

Dim ZeilNRa As Long, SpaltNRa As Long

Dim Zelldaten As String

Dim ZeilNRb As Long, SpaltNRb As Long

Dim Adresse As String



Adresse = "A1:E1"           'nur für Postionierung im Test

Range(Adresse).Select       'nur für Postionierung im Test, setzt ActiveCell auf ERSTE Zelle im Range

ZeilNRa = ActiveCell.Row

SpaltNRa = ActiveCell.Column

Zelldaten = Cells(ZeilNRa, SpaltNRa).Value     'Daten aus einer Zelle in eine Variable setzen (String = Text)

MsgBox "Test-1:    " & Zelldaten



Adresse = "E1"              'nur für Postionierung im Test

Range(Adresse).Select       'nur für Postionierung im Test, setzt ActiveCell auf ERSTE Zelle im Range

ZeilNRb = ActiveCell.Row

SpaltNRb = ActiveCell.Column

Range(Cells(ZeilNRa, SpaltNRa), Cells(ZeilNRb, SpaltNRb)).Select



'hier könnte sortiert, gelöscht, moved oder in andere Range kopiert werden,  usw.

'Übertragen der 4 Werte (A1:E1) in die Variable Zelldaten geht nicht, da sich TYP Range und String nicht vertragen.



End Sub

Gruß
Firmus

Spaltennummer anhand der aktiven Zelle auswählen

Forumthread: Spaltennummer anhand der aktiven Zelle auswählen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Spaltennummer anhand der aktiven Zelle auswählen

Forumthread: Spaltennummer anhand der aktiven Zelle auswählen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread