Suche von mehrfachen zellen und schreiben in neue

Hallo,
ich habe folgendes Problem...und zwar habe ich eine Tabelle in der verschieden Aufträge zu Maschinen angelegt werden aslo der Aufbau ist so das in spalte a-e ein Auftrag der nachste in f-h und der darauffolgende in i-k steht.
nun zum problem ich möchte gerne wenn jetzt. z.b. in zeile 1 z.b. maschine 1 steht das in iner neuen tabelle ausgeben lassen.
An sich habe ich das schon hinbekommen nur ist das Problem das in einer Zeile mehrfach maschine eins stehen kann.und ich das gerne sortiert untereinander stehen haben möchte.
also als Beispiel
Tabelle 1:
A B C D E F G H I J K
Ma1 .. ... ... ... Ma.1 .. .. Ma.1 ... ..
und in die neue Tabelle sollte dann halt alles in richtiger reihenfolge untereinander stehn
Ich danke schonmal im vorraus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub übertragen() Dim ZelleS As Range Dim ZelleZ As Range Dim TB As Worksheet With Sheets("Auftragsplanung") For Each ZelleS In Cells(1, 1).CurrentRegion.Rows(1).Cells If ZelleS.Value = "Auftrag " Then If ZelleS.Offset(1, 0).Value "" Then For Each ZelleZ In Range(ZelleS.Offset(1, 0), ZelleS.End(xlDown)) On Error GoTo NeuesBlatt Set TB = Sheets("Maschine " & ZelleZ.Offset(0, -1).Value) On Error GoTo 0 With TB.Cells(TB.Rows.Count, 1).End(xlUp) .Offset(1, 0) = ZelleZ.Offset(0, -1).Value .Offset(1, 1) = ZelleZ.Value End With Next End If End If Next End With Exit Sub NeuesBlatt: Worksheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = "Maschine " & ZelleZ.Offset(0, -1).Value Resume End Sub

Hi
lösche einfach die Blätter vor herkomplett:

dim ws as Worksheet
for each ws in activeWorkbook.Worksheets
Select Case ws.Name
Case "Tabelle1", "Tabelle2" '---Namen der Blätter die stehen bleiben sollen
Case else
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End Select

den Code zum Eintragen in die Zellen machst du dann an der Stelle im Code, wo das Blatt eingefügt wird, wenn es noch nicht vorhanden ist (unten nach der Sprungmarke).
der Code dafür ist dann einfach (Text und Zellbezug anpassen):

Range("A1").Value = "Dein Text"

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Suche von mehrfachen zellen und schreiben in neue

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suche von mehrfachen zellen und schreiben in neue

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread