Datum

Titel

25.04.2024 21:40:53

Excel Datenquelle aus dem Web mit Anmeldung?

25.04.2024 21:21:16

Zellkommentar in UserForm anzeigen und bearbeiten

25.04.2024 21:13:13

Kalenderwochen addieren

25.04.2024 21:06:05

Duplikate entfernen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1268to1272

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Mehrere Spalten mit Spaltennummer, nicht Buchstabe

Forumthread: Mehrere Spalten mit Spaltennummer, nicht Buchstabe
5 Beiträge zu diesem Forumthread
Anzeige
317 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

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

AW: Mehrere Spalten mit Spaltennummer, nicht Buchstabe

firmus
AW: Mehrere Spalten mit Spaltennummer, nicht Buchstabe

Reinhard
PERFECT

eres
Mehrere Spalten mit Spaltennummern

Erich
AW: Mehrere Spalten mit Spaltennummern

eres

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

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