Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mehrere Spalten mit Spaltennummer, nicht Buchstabe

Mehrere Spalten mit Spaltennummer, nicht Buchstabe
eres
Zunächst mal einen sonnigen Gruß ins Forum ...
Ich stehe irgendwie auf'm Schlauch,
Dim rng as Range
set rng = Columns(4)
funktioniert.
Ich brauche jetzt allerdings sowas:
Dim rng as Range
dim intI as Integer
for intI = 1 to 5
set rng = Columns(1+intI, 3 + intI, 5 + intI)
cells(10, intI) = worksheetfunction ...
next inti
Also dem rng mehrere Spalten zuweisen.
Aber bei set rng = Columns(3, 4) erhalte ich schon Laufzeitfehler 1004.
Kann mir jemand bei der Syntax helfen, mehrere Spalten mit Zahlen anzusprechen?
Vielen Dank für jede Hilfe im voraus.
Gruß
erwin

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

Betreff
Benutzer
Anzeige
AW: Mehrere Spalten mit Spaltennummer, nicht Buchstabe
05.07.2012 08:35:44
firmus
Hallo Erwin,
versuche es mal mit Range(Columns(1), Columns(3)).Select
Funktioniert in xls2010
Gruss
firmus
AW: Mehrere Spalten mit Spaltennummer, nicht Buchstabe
05.07.2012 08:36:19
Reinhard
Hallo Erwin,
meinst du so:
Sub tt()
Dim rng As Range, N As Long
For N = 3 To 12 Step 3
If rng Is Nothing Then
Set rng = Columns(N)
Else
Set rng = Union(rng, Columns(N))
End If
Next N
MsgBox rng.Address
End Sub

Gruß
Reinhard
PERFECT
05.07.2012 08:40:56
eres
firmus, Reinhard,
Vielen Dank für die superschnelle Hilfe.
Wünsche Euch noch einen erfolgreichen Tag.
Sonnige Grüße aus Köln
erwin
Mehrere Spalten mit Spaltennummern
05.07.2012 08:53:48
Erich
Hi Erwin,
hier auch noch mein Senf dazu:

Sub eres_Columns()
Dim intI As Integer, rng As Range
For intI = 1 To 2
Set rng = Union(Columns(1 + intI), Columns(3 + intI), Columns(5 + intI))
MsgBox rng.Address
Set rng = Range(Chr(65 + intI) & ":" & Chr(65 + intI) & "," & _
Chr(67 + intI) & ":" & Chr(67 + intI) & "," & _
Chr(69 + intI) & ":" & Chr(69 + intI))
MsgBox rng.Address
Set rng = Range(Columns(1 + intI), Columns(3 + intI))    ' nur von - bis
MsgBox rng.Address
' geht nicht:
'      Set rng = Range(Columns(1 + intI), Columns(3 + intI), Columns(5 + intI))
'      MsgBox rng.Address
Next
End Sub
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
Anzeige
AW: Mehrere Spalten mit Spaltennummern
05.07.2012 08:56:10
eres
Auch Dir vielen Dank Erich,
wieder was dazugelernt.
Gruß an den Niederrhein.
erwin

322 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige