Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Schnofsky vom 13.07.2019, 08:48 Options

Zeilen aus Liste in jeweiliges Tabellenblatt kopieren

Hallo zusammen,

ich habe ein kleines Problem, ich habe eine große
Liste/Tabelle in der verschiedene Positionen untereinander weg stehen, die aber anhand einer Nummer klar zu identifizieren sind. Nun möchte ich für jede Bauteilgruppe ein eigenes Tabellenblatt haben. Z.Zt kopiere ich die Daten von Hand in das jeweilige Blatt und das dauert....

Die Tabellenblätter existieren bereits, es müssen nur die Daten eingefügt werden...

kann mir jemand helfen??

Gruß Schnofsky

Antwort schreiben

Antwort 1 von nighty vom 13.07.2019, 15:23 Options

hi Schnofsky :-)

1 )in welcher spalte befinden sich die nummern

2)woher weiss mann welche zeile in welches tabellenblatt soll

gruss nighty

Antwort 2 von Schnofsky vom 14.07.2019, 13:16 Options

Hallo Nighty,

das ist im Prinzip ganz einfach. Jede Baugruppe hat eine Artikelnummer, das dazugehörige Tabellenblatt auch.
Die Daten die in der Liste untereinander weg stehen, haben in der ersten Spalte eben genau diese Artikelnummer.
Daher soll die komplette Zeile in das Tabellenblatt kopiert werden.....

ähh war das verständlich?!??? ;o))

Gruß Schnofsky

Antwort 3 von nighty vom 14.07.2019, 13:22 Options

hi Schnofsky :-)

schick mir eine mustertabelle zu ,an

oberley@t-online.de

mit eindeutugen betreff bitte

gruss nighty

Antwort 4 von nighty vom 15.07.2019, 18:11 Options

hi Schnofsky :-)

wie gewuenscht :-))

gruss nighty

Sub kopie()
Dim zeile As Long, zaehler As Long
For zaehler = 1 To Worksheets("Teileliste").UsedRange.SpecialCells(xlCellTypeLastCell).Row
If SheetExists("" & Worksheets("Teileliste").Cells(zaehler, 2)) = True Then
zeile = Worksheets("" & Worksheets("Teileliste").Cells(zaehler, 2)).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
Worksheets("Teileliste").Rows(zaehler).Copy Worksheets("" & Worksheets("Teileliste").Cells(zaehler, 2)).Rows(zeile)
End If
Next zaehler
End Sub

Public Function SheetExists(strName As String) As Boolean
On Error Resume Next
SheetExists = Not Worksheets(strName) Is Nothing
End Function

Antwort 5 von Snuddler vom 15.07.2019, 22:56 Options

Hi Nighty,

hast du auch nur einen Hauch von einer Ahnung wieviel Stunden arbeit du mir grade erspart hast???? :o))) Völlig genial!!

Vielen Vielen Dank!!!

Gruß Schnofsky

Antwort 6 von Snuddler vom 20.07.2019, 10:28 Options

Hallo Nighty,

also es funktioniert hervorragend. Eins hab ich allerdings noch, wir stellen das ganze jetzt noch um, so dass nur die Spalten A-G kopiert werden müssen. Der hintere Teil bleibt immer identisch und ist mit formeln hinterlegt. Gibt es die Möglichkeit das ich nur die ersten Spalten in das jeweilige Blatt kopieren kann, so dass die Formeln die ab H stehen so erhalten bleiben? :o)

Gruß schnofsky

Antwort 7 von Snuddler vom 20.07.2019, 20:26 Options

Hi Schnofsky,

wat eimerst du eigentlich auf meinem Account rum???

hast du keinen eigenen?

Gruß Snuddler

Antwort 8 von schnofsky vom 20.07.2019, 21:13 Options

is ja schon gut Brüderchen...

dein Rechner bot sich an...

:o))

Antwort 9 von nighty vom 21.07.2019, 18:11 Options

hi Schnofsky :-)

wie gewünscht :-)

gruss nighty

Sub kopie()
Dim zeile As Long, zaehler As Long
For zaehler = 1 To Worksheets("Teileliste").UsedRange.SpecialCells(xlCellTypeLastCell).Row
If SheetExists("" & Worksheets("Teileliste").Cells(zaehler, 2)) = True Then
zeile = Worksheets("" & Worksheets("Teileliste").Cells(zaehler, 2)).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
Worksheets("Teileliste").Range(Cells(zaehler, 1), Cells(zaehler, 7)).Copy Worksheets("" & Worksheets("Teileliste").Cells(zaehler, 2)).Range("A" & zeile)
End If
Next zaehler
End Sub

Public Function SheetExists(strName As String) As Boolean
On Error Resume Next
SheetExists = Not Worksheets(strName) Is Nothing
End Function

Antwort 10 von Schnofsky vom 24.07.2019, 13:35 Options

Hallo Nighty,

funktioniert hervorragend!!
...ich weiß gar nicht ws ich mit soviel Freizeit anfangen soll ;o))

Gruß Schnofsky

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..