Zusammenfassen an Hand der Zeilennr. , aber wie?

Hi Zusammen,
und zwar habe ich folgendes Problem, bei dem ich einfach nicht weiter komme und es würde meine Arbeit wenn ich es hinbekommen extrem erleichtern.
Ich habe in einer Exceldatei mehrere Arbeitsblätter mit Namen "Kupfer"; "Messing"; "Alu" u.s.w
In den Zellen N8 bis N2000 der jeweiligen Arbeitsblättern stehen bei bestimmten Bedingungen TEILWEISE Zahlen. Die Zahlen sind auch gleichzeit Zeilennummern.
Bsp.:
"Kupfer" N8:N49 ist leer (bzw. ""), N50= 50, N51= 51, N52= 52, N53:N89 ist leer u.s.w
ähnlich in den anderen Arbeitsblättern
"Messing" N8:N12 ist leer, N13= 13, N14= 14, N15:N24 ist leer, N25= 25 u.s.w
Jetzt würde ich gerne auf einem neuen Arbeitsblatt(eventuell mit dem Namen "Auswertung") die Werte aus den jeweiligen Zeilen bzw. wenn es möglich aus den ersten 11 Zellen der jeweilegen Zeile (A bis K) auflisten.
Also wie aus genannten Beispiel oben
aus "Kupfer" die Werte aus A50:K50, dann in der nächten Zeile die Werte aus A51:K51......in der nächten Zeile aus "Messing" die Werte A13:K13 u.s.w
Wie kann ich mein Vorhaben umsetzten?
Ich Danke euch für jeden Vorschlag

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub zusammen() Dim zielzeile As Integer Dim wks As Worksheet Dim ende As Integer Dim spalte As Integer Dim zeile As Integer zielzeile = 1 For Each wks In Worksheets If wks.Name "Auswertung" Then ende = wks.Cells(Rows.Count, 14).End(xlUp).Row For zeile = 1 To ende If wks.Cells(zeile, 14) "" Then For spalte = 1 To 13 Sheets("auswertung").Cells(zielzeile, spalte) = wks.Cells(zeile, spalte) Next zielzeile = zielzeile + 1 End If Next End If Next End Sub

Hi,
Läuft Super! Habe es noch ein bisschen umgeschrieben und es braucht natürlich ein wenig Zeit um alle Arbeitsblätter auszulesen.... aber läuft! Vielen Dank nochmal
Ist es eigentlich auch möglich die Formatierung aus den Zeilen mit auszugeben?
Gruß Flo
Hier noch ma mein Code


Sub zusammen()
Dim zielzeile As Integer
Dim wks As Worksheet
Dim ende As Integer
Dim spalte As Integer
Dim zeile As Integer
zielzeile = 1
For Each wks In Worksheets
If wks.Name = "Kupfer" And wks.Name  "Auswertung" Then
ende = wks.Cells(Rows.Count, 14).End(xlUp).Row
For zeile = 1 To ende
If wks.Cells(zeile, 14)  "" Then
For spalte = 1 To 13
Sheets("Auswertung").Cells(zielzeile, spalte) = wks.Cells(zeile, spalte)
Next
zielzeile = zielzeile + 1
End If
Next
ElseIf wks.Name = "Messing" And wks.Name  "Auswertung" Then
ende = wks.Cells(Rows.Count, 14).End(xlUp).Row
For zeile = 1 To ende
If wks.Cells(zeile, 14)  "" Then
For spalte = 1 To 13
Sheets("Auswertung").Cells(zielzeile, spalte) = wks.Cells(zeile, spalte)
Next
zielzeile = zielzeile + 1
End If
Next
'und immer weiter so......
End If
Next
End Sub

Beliebteste Forumthreads (12 Monate)

Zusammenfassen an Hand der Zeilennr. , aber wie?

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread