Office: Zellen aus mehreren Spalten und Zeilen kopieren

Hallo Zusammen,
ich bin neu hier im Forum. Habe aber auch gleich die erste Frage zum Thema Arrays in VBA. Da ich mich gerade erst in VBA einarbeite und ein absoluter Neuling in diesem Thema bin, fände ich es cool wenn mir jemand behilflich sein könnte.

Nun zum Thema: Ich habe eine etwas größere Excel-Liste welche gefüllt ist mit unterschiedlichsten Daten. Der Bereich umfasst die Zellen B8:AB427. Zukünftig werden allerdings noch einige Zeilen mehr hinzukommen.

Ich möchte bestimmte Zellen aus diesem Tabellenblatt in ein anderes Tabellenblatt kopieren. Nun habe ich ein Makro, welches mir bestimmte Zeilen in eine andere Tabelle kopiert, aber eben nur die gesamte Zeile. Ich möchte aber aus diesem Tabellenblatt Zellen aus den Spalten (B, M, D, E, F, G, H, I, J, N, K, L, AA, AB) und aus wiederum mehreren definierten Zeilen in eine andere Tabelle kopieren. Die Zellen aus der jeweiligen Spalte sollten dann in der oben aufgelisteten Reihenfolge im neuen Tabellenblatt nebeneinander in die Spalten (C bis P) eingefügt werden. Könnte mir da bitte jemand mit dem VBA-Code behilflich sein? Ich habe gelesen das dies sehr gut mit einem 2-dimensionalen dynamischen Array realisierbar wäre. Leider weiß ich aber echt nicht wie man das in Code umsetzt!?

Sollte es in diesem Forum schon eine Lösung dazu geben, wären sachdienliche Hinweise echt geschickt. *wink.gif*

Hier ist mein bisheriges Makro:

Sub Prepare_Tabelle2()
Dim Zeile As Long
Dim ZeileMax As Long
Dim i As Long

ActiveSheet.Unprotect
Worksheets("Tabelle2").Unprotect

With Worksheets("Tabelle1")
ZeileMax = .UsedRange.Rows.Count
n = 8

For Zeile = 8 To ZeileMax

If .Cells(Zeile, 34).Value = "x" Then
.Rows(Zeile).Copy Destination:=Worksheets("Tabelle2").Rows(n)

n = n + 1

End If

Next Zeile

End With

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Worksheets("Tabelle2").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

:)

 

Hallo,
Code:

Array ist gut, ich würde in das array die Spaltennummern von B, M, D, E, F, G, H, I, J, N, K, L, AA, AB eintragen und dann mit einer for Schleife die einzelnen .cells(Zeile, Spalte).copy ... kopieren mit einem zweiten array die Spaltennummern des Zielbreichs durchlaufen. Die Arbeit hat man ja nur einmal

Also der 1. Wert (B) 2 Zielbereich (P) 16, dann steht auch alles an der richtigen Stelle.

man könnte die Spaltennummern natürlich auch ine eine Tabelle schreiben und von dort einlesen und die Tabelle verbergen, da ist man auch sehr flexibel ...

mfg Andreas

 

Hi

das würde dann wohl so aussehen
Code:

MfG Tom

 

Beispiel mit Query...

 

Hallo,

hier ist mein Vorschlag:

PHP:

         Sub MiKno()

Sp = Array("B", "M", "D", "E", "F", "G", "H", "I", "J", "K", "L", "AA", "AB")

With Sheets(1)
Zeile = 1

For i = 0 To UBound(Sp)
.Range(Sp(i) & Zeile).Copy Sheets(2).Cells(Zeile, "C").Offset(, i)
Next i

End With
End Sub


 

Hallo,

@Fennek11: Japp, das sieht elegant aus ...

Ich bevorzuge meist eine Tabelle als Konfigurationsquelle, macht die Sache für andere Nutzer etwas flexibler ...

mfg