Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
876to880
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
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Spaltennr umwandeln in "Spaltenbuchstabe"
18.06.2007 21:08:55
Jochen
Hallo zusammen,
habe einen Code, mit dem die Nummer von einer von insgesamt 12 Checkboxen abgefragt und einer SpalteNr zugeordnet wird:
For i=1 to 12
On Error Resume Next
With Me.Controls("CheckBox" & i)
If .Value = True Then SpalteNr = i
End With
On Error GoTo 0
Next
Angenommen Checkbox3 war aktiviert, so ist SpalteNr = 3. Wie kann ich nun SpalteNr = 3 umwandeln in Spalte = "C"?
Vielen Dank und Grüße,
Jochen

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spaltennr umwandeln in "Spaltenbuchstabe"
18.06.2007 21:19:49
Fred
Hi,
beschreib mal, was du erreichen willst und wozu du meinst, den Buchstaben zu brauchen.
mfg Fred

AW: Spaltennr umwandeln in "Spaltenbuchstabe"
18.06.2007 21:22:00
Peter
Hallo Jochen
z. B. so: If .Value = True Then SpalteNr = Chr(Asc("@") + i)
allerdings nur im einstelligen Spaltenbereich A bis Z
Gruß Peter

AW: Spaltennr umwandeln in "Spaltenbuchstabe"
18.06.2007 21:37:57
Jochen
Hallo,
vielen Dank, ging ja schnell.
Ziel des Ganzen: Aus z.B. 30 Spalten sollen 10 auf jeden Fall in eine neue Datei ausgeleitet werden, 8 garnicht und aus weiteren 12 Spalten sollen die Nutzen eine Spalte zur Ausleitung auswählen. Außerdem aber müssen manche Zeilen komplett ignoriert werden, wenn in einer (bestimmten) der 8 nicht auszuleitenden Spalten nämlich ein "nein" steht.
Dazu benötige ich -glaube ich- einmal die Spaltennr (Zellen ansprechen mit worksheet.Cells(1,2).Value) und einmal die Spalte als String (zur Kopie worksheet.Cells("A1").Copy) Den genauen bisherigen Code müsste ich in der Arbeit nachschauen.
Vielleicht so auch schon einen Hinweis auf schlaueres Vorgehen?
Grüße,
Jochen

Anzeige
AW: Spaltennr umwandeln in "Spaltenbuchstabe"
18.06.2007 21:59:00
chris
Hallo Jochen , verstehe dich zwar nicht ganz ...
Aber die Spalten Buchstaben benötigst du nicht um Spalten zu markieren oder kopieren oder sonst was. Dazu reichen die integer Werte die du hast von Spalte 1 bis 256.
kleines Beispiel...
Range(Cells(a.Row, 1), Cells(e.Row, 2)).Select
gruß Chris

AW: Spaltennr umwandeln in "Spaltenbuchstabe"
20.06.2007 07:33:00
Jochen
Hallo Chris,
muss ich mal probieren. Allerdings: Was heisst denn "a.Row" bzw. was ist das "a"?
Danke,
Jochen

AW: Spaltennr umwandeln in "Spaltenbuchstabe"
20.06.2007 12:26:45
chris
Hi Jochen...
da hab ich aus nem bestehendem Code von mir was rauskopiert...
a.row kommt zum beispiel aus einer ste anweisung für a
Also vergiss es und ersetze die beiden Vairablem durch eigene Variablen oder eben durch Zahlenangaben für Spalte und Zeile....
Range(Cells(5, 1), Cells(10, 2)).Select
^^ markiert den bereich A5 bis B10 ^^
Rückmeldung obs klappt wäre nett !
gruß Chris

Anzeige
AW: Spaltennr umwandeln in "Spaltenbuchstabe"
20.06.2007 16:02:00
Jochen
Hi Chris,
so hat es irgendwie nicht hingehauen. Mein Problem war, dass hier wohl Formatunstimmigkeiten vorlagen (für das Einlesen der Zellgrenzen brauchte ich immer einen Buchstaben und eine Zahl).
Habe es jetzt so gelöst, dass ich den Spaltenbuchstaben generiere, in die Variable "Spalte" schreibe und dann den Range kopiere: ws2.Range(Spalte & "1", Spalte & "6").Copy
Vielen Dank für die Hilfe.
Grüße,
Jochen

AW: Spaltennr umwandeln in "Spaltenbuchstabe"
18.06.2007 23:09:50
Rudi
Hallo,
columns(SpalteNr)
Gruß
Rudi
Eine Kuh mach muh, viele Kühe machen Mühe.

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige