Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
600to604
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
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spalten nebeneinader kopieren

Spalten nebeneinader kopieren
21.04.2005 14:21:08
Tina
Hallo an alle,
ich habe gerade folgendes Problem: Ich habe ein Excel-File mit 12 Blättern. Aus allen Blättern möchte ich die Spalte "N" auf das bis jetzt noch leere Blatt "Jahre" nebeneinander kopieren. Mein bisheriger Code kopiert jedoch die Spalten immer auf "A" und "A"+1 klappt nicht!
Hoffe Ihr könnt mir nochmal helfen.
Viele Grüße
Tina


Sub Tabellen()
Dim j As Integer
Dim dBlatt As String, m As String
Dim i As Integer
'Aus allen Datenblättern Mittelwerte entnehmen.
For j = 1 To 12
m = Application.Text(j, "00")
dBlatt = "co_" & m & "94"
Sheets(dBlatt).Select
Columns("N").Select
Selection.Copy
Sheets("Jahr").Select
Columns("A").Select
ActiveSheet.Paste
Next
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten nebeneinader kopieren
21.04.2005 14:31:14
Reinhard
Hallo Tina,

Sub Tabellen()
Dim j As Integer
Dim dBlatt As String, m As String
Dim i As Integer
'Aus allen Datenblättern Mittelwerte entnehmen.
For j = 1 To 12
m = Application.Text(j, "00")
dBlatt = "co_" & m & "94"
Sheets(dBlatt).Select
Columns("N").Select
Selection.Copy
Sheets("Jahr").Select
Columns(j).Select
ActiveSheet.Paste
Next
End Sub

Viele Grüße
AW: Spalten nebeneinader kopieren
21.04.2005 15:54:46
Tina
Vielen Dank jetzt hab ich mal wieder was gelernt!
Gruß Tina
wegen dem Lernen
21.04.2005 23:25:00
Reinhard
Hallo Tina
auf Select kann man zu 99% verzichten.
anstatt

Sub Tabellen()
Dim j As Integer
Dim dBlatt As String, m As String
Dim i As Integer
'Aus allen Datenblättern Mittelwerte entnehmen.
For j = 1 To 12
m = Application.Text(j, "00")
dBlatt = "co_" & m & "94"
Sheets(dBlatt).Select
Columns("N").Select
Selection.Copy
Sheets("Jahr").Select
Columns(j).Select
ActiveSheet.Paste
Next
End Sub

mößte

Sub Tabellen()
Dim j As Integer
Dim dBlatt As String, m As String
Dim i As Integer
'Aus allen Datenblättern Mittelwerte entnehmen.
For j = 1 To 12
m = Application.Text(j, "00")
dBlatt = "co_" & m & "94"
Sheets(dBlatt).Columns("N").Copy
Sheets("Jahr").Columns(j).Select
ActiveSheet.Paste
Next
End Sub

das Gleiche tun, oder sogar so:

Sub Tabellen()
Dim j As Integer
Dim dBlatt As String, m As String
Dim i As Integer
'Aus allen Datenblättern Mittelwerte entnehmen.
For j = 1 To 12
m = Application.Text(j, "00")
dBlatt = "co_" & m & "94"
Sheets(dBlatt).Columns("N").Copy destination:=Sheets("Jahr").Columns(j)
Next
End Sub

aber copy mit destination und ich stehne auf Kriegssfuss miteinander, es will öfters nicht so wie ich :-()))
Viele Grüße
Reinhard
Anzeige
AW: wegen dem Lernen
22.04.2005 14:55:33
Tina
Das ist aber nett von Dir.
Da kann ich ja noch einiges wegstreichen!
Vielleicht kannst Du mir auch noch zeigen, wie ich in der 3. Spalte anfangen kann. Hab es versucht mit "k=3 to 14" und hab mir ne "Endlos" Schleife gebastelt :-)
Gruß und schönes Wochenende.
Tina
AW: wegen dem Lernen
22.04.2005 16:21:11
Tina
Ich habs hinbekommen :-)

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige