PDA

Vollständige Version anzeigen : Excel Inhalt auf Hauptblatt untereinander kopieren


Foxen
30.06.2015, 14:39
Hallo

Ich habe da ein kleines Problem.
Ist es möglich aus mehreren Blättern einen Zellenwert zu kopieren und ihn auf ein Anderes Tabellenblatt untereinander anzuordnen ?

Da ich mehrere Blätter mit diesem Wert einlade muss das ganze dynamisch sein. Heisst Es können mal 3 oder 10 Blätter sein.

For each wks tab .... .

Es soll auf dem Zielblatt untereinander angeordnet werden.

Ich lade mal eine Beispiel Datei hoch.

Das soll alles in VBA Code erstellt werden.
Vielen Dank euch schon im vorraus :).

Foxen
02.07.2015, 08:45
Ich habe jetzt einen ähnlichen Code gefunden:

Sub auswertung()

Dim gestellte_fragen As Integer
Dim i As Integer
Dim r As Integer

gestellte_fragen = Sheets("Fragenkatalog").UsedRange.Rows.Count

For r = 2 To gestellte_fragen
With Sheets("Fragenkatalog")
If .Cells(r, 1).Value = "X" Then
i = i + 1
.Range(.Cells(r, 2), .Cells(r, 8)).Copy Sheets("Auswertung").Cells(i, 1)
End If
If r = gestellte_fragen Then
Exit For
End If
End With
Next r

End Sub

Den müsst ich nur irgendwie anpassen.

Foxen
03.07.2015, 09:15
Hallo ich habe nun einen leichteren Weg gefunden, wie bekomme ich dort nun ein offset rein ?

For wks = 1 To Worksheets.Count
Worksheets(wks).Range("F3").Copy Worksheets("Uebersicht").Range("D12")
Next

Foxen
03.07.2015, 12:21
Den Code habe ich ausgearbeitet.
Nun habe ich das Problem das in Zelle 31 was steht, sodass er eine Zeile runterspringt.
Aber ich bekomme einen laufzeitfehler ... warum :/ ?


For wks = 1 To Worksheets.Count
Worksheets(wks).Range("F3").Copy
Worksheets("Uebersicht").Select
Range("D31").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Next

hary
03.07.2015, 12:38
Moin
Bevor du ein Alleinunterhalter wirst, teste es mal so.
Ist aber ungetestet.

Dim wks as Worksheet
For each wks in Worksheets
If wks.Name <> "Uebersicht" Then
With Worksheets("Uebersicht")
.Cells(.Cells(Rows.Count, 4).End(xlUp).Row + 1, 4).Value = wks.Range("F3").Value
End With
End If
Next
Edit Offensichtlicher Codefehler angepasst., sry
gruss hary