Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1236to1240
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
Inhaltsverzeichnis

Select vermeiden, aber wie ..

Select vermeiden, aber wie ..
Maria
Hallo,
in diesem Forum las ich viel über "Select vermeiden".
Ich mache meine ersten Gehversuche in VBA.
Wie aber bestimme ich, dass in der Tabelle "Listen" 9 Spalten ab Spalte A eingefügt werden.
Excel muss ja wissen, in welcher Tabelle dieser Job ausgeführt werden soll.
Maria
Mein bisheriger Code:
Sub Zusammenstellung_erstellen()
' 11 Leere Spalten erstellen
Sheets("Liste").Select
For i = 1 To 11
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Next i
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Select vermeiden, na so ...
02.11.2011 03:53:41
Matthias
Hallo Maria
Der Code gehört in ein Modul
Sub Zusammenstellung_erstellen()
' 11 Leere Spalten erstellen
Dim i& '&=Long
For i = 1 To 11
Sheets("Liste").Columns("A:A").Insert Shift:=xlToRight
Next i
End Sub
Wobei Du auch schreiben kannst:
Sheets("Liste").Columns(1).Insert Shift:=xlToRight
Dabei ist es egal in welchem Blatt Du Dich gerade befindest.
Wichtig ist nur das Du vor .Columns("A:A").Insert Shift:=xlToRight
das entsprechende Tabelleblatt referenzierst.
Gruß Matthias
AW: Select vermeiden, na so ...
02.11.2011 07:15:41
Gerd
Moin,
an der Schleife könnte man ggf. noch feilen.
Sub ttt()
Sheets("Liste").Range("A:I").Insert shift:=xlToRight
End Sub
Gruß Gerd
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige