Datensatz auf andere Tabelle



Excel-Version: 97
nach unten

Betrifft: Datensatz auf andere Tabelle
von: Fred
Geschrieben am: 11.04.2002 - 09:05:23

Hallo Leute !
Ich möchte aus einer Datenliste (siehe unten) die Datensätze mit Kennzahl auf die gleichbenannten Tabellenblätter übernehmen.
z.B. Der Datensatz der Zeile 3 hat die Kennzahl 3024. Nun soll die ganze Zeile 3 in das Tabellenblatt 3024 übernommen werden.
Ich danke Euch im voraus ! Gruß Fred

Nr. Name Vorname Kennzahl KST
1 Futz Kalli 3022 47100
2 Meyer Horst 3024 47110
3 Grube Klaus 3022 47100
4 Schneider Heino 3152 42600
usw usw usw usw usw usw usw

Daten/3022/3024/3152 usw.


nach oben   nach unten

Re: Datensatz auf andere Tabelle
von: Peter H. Erdmann
Geschrieben am: 11.04.2002 - 10:39:35

Hallo,

so gehts auf jeden Fall. Mußt nur dafür sorgen,daß die Überschriften in allen Tabellenblättern von Anfang an da sind.

Sub Daten_Kopieren()

Dim intZeil As Integer
Dim Zähler As Integer
Dim Puffer As String

Application.ScreenUpdating = False
intzeile = ActiveSheet.Range("A1").Offset(65535, 0).End(xlUp).Row
For Zähler = 2 To intzeile
Puffer = Cells(Zähler, 4)
Range(Cells(Zähler, 1), Cells(Zähler, 5)).Copy
Sheets(Puffer).Select
If IsEmpty(Cells(2, 1)) Then
Range("A2").Select
Else
ActiveSheet.Range("A1").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
End If
ActiveCell.PasteSpecial
Sheets("Tabelle1").Select
Next Zähler
Application.ScreenUpdating = True

End Sub

Gruß aus dem Land der Bayern
Peter


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Datensatz auf andere Tabelle"