Supportnet / Forum / Tabellenkalkulation

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

hi Schnofsky :-)

1 )in welcher spalte befinden sich die nummern

2)woher weiss mann welche zeile in welches tabellenblatt soll

gruss nighty

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

hi Schnofsky :-)

schick mir eine mustertabelle zu ,an

oberley@t-online.de

mit eindeutugen betreff bitte

gruss nighty

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

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

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

Hi Schnofsky,


wat eimerst du eigentlich auf meinem Account rum???

hast du keinen eigenen?

Gruß Snuddler

is ja schon gut Brüderchen...

dein Rechner bot sich an...


:o))

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

Hallo Nighty,

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

Gruß Schnofsky

• Zeilen, die in Spalte 9 ein X enthalten in anderes Blatt kopieren
• excel liste
• Übertrag von Tabellenblätter in Excel
• per makro kopieren
• Werte aus einer Liste heraussuchen und alle Ergebniss kopieren (extra Tabellenblatt)