Hallo zusammen :)
Ich versuche grade als absolute VBA Anfängerin ein kleines Programm zu schreiben, welches einzelne Spalten aus einem Arbeitsblatt in einem zweiten Arbeitsblatt (bestenfalls in einer neuen Arbeitsmappe) ausgeben soll. Das Programm funktioniert auch insoweit, als dass es die erforderlichen Spalten ausgibt, nur leider nicht nebeneinander. Falls jemand eine Lösung für dieses Problem weiß, wäre ich sehr dankbar:)
Hier der bisherige Code:
Sub report()
letzte_Zeile = 11
'Werte kopieren
Zeile_Tabelle2 = 5
Zaehler = Array(2, 5, 6)
For Zeile_Tabelle1 = 4 To letzte_Zeile
For Each Spalte In Zaehler
Worksheets("Tabelle1").Cells(Zeile_Tabelle1, Spalte) = Worksheets("Tabelle2").Cells(Zeile_Tabelle2, Spalte)
If Spalte = 6 Then
Zeile_Tabelle2 = Zeile_Tabelle2 + 1
End If
Next Spalte
Next Zeile_Tabelle1
End Sub
|