---

Hallo, ich habe da ein Problem

beim Office2010 funzen meine "alten" Makros nicht mehr, daher muss ich sie neu schreiben.

Folgendes Problem, ich habe eine Tabelle in der Ereignisse zu Schichtführeren und Produkten aufgelistet sind. Jetzt möchte ich in einer neuen Tabelle alle Zeilen zu Proudukt1 und in einer weiteren zu Produkt2; Produkt3.

Wie könnte ich das lösen?

------------------
"Wissen hält nicht länger als Fisch." (Alfred North Whitehead) $

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

XL2010_Eintrage_in_neue_tabelle_kopieren.zip

hmm, ich würde das alte Makro schrittweise durchgehen und die betreffenden Zeilen neuschreiben.

je nachdem reicht es ja die Zündkerzen, Lampen und die Sicherungen auszutauschen bevor man ein neues Auto zusammen bauen muss   

ähnliches ist u.U. hier zu finden?

mal auf die Schnelle

Code:

---

Sub Zeilen2()  'schnippsel aus http://ww3.cad.de/foren/ubb/Forum226/HTML/000687.shtml#000002 erweitert
Dim i As Integer
Dim cell As Range
i = 1
Dim aws As Worksheet
Dim ws As Worksheet

Set aws = ActiveSheet
For Each cell In Tabelle1.Range("A2:A100")
If Not cell = "" Then
    If ExistiertBlatt("Projekt " & cell.Value) = False Then
        ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
        Set ws = ActiveSheet
        ws.Name = "Projekt " & cell.Value
        aws.Rows(1).Copy Destination:=Sheets("Projekt " & cell.Value).Rows(1)
        aws.Activate
    End If
        letztezeile = Sheets("Projekt " & cell.Value).UsedRange.SpecialCells(xlCellTypeLastCell).Row
        cell.EntireRow.Copy Destination:=Sheets("Projekt " & cell.Value).Rows(letztezeile + 1)
        i = i + 1
End If
Next cell
End Sub

Public Function ExistiertBlatt(blattname As String) As Boolean
    Dim blatt As Object
   
    ExistiertBlatt = False
    For Each blatt In ThisWorkbook.Sheets
        If blatt.Name = blattname Then
            ExistiertBlatt = True
            Exit For
        End If
    Next blatt
End Function

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank!

Werde mal abgleichen, wodran es bei meinem Makro hängt.

------------------
"Wissen hält nicht länger als Fisch." (Alfred North Whitehead) $

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP