Das Archiv des Excel-Forums

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

Excel-Beispiele zum Thema "Datensatz auf andere Tabelle"
Doppelte Datensätze löschen Alle Datensätze >= Eingabewert filtern
Datensatz nach Eingabe eines Kurzbegriffes Datensätze nach zwei Kriterien in neues Blatt übernehmen
Datensätze in zweitem Blatt anders anordnen Datensätze in UserForm auswählen und im Blatt löschen
Doppelte Datensätze und Leerzeilen löschen Alle mehrfach vorkommenden Datensätze in zweiter Tabelle listen
Doppelte Datensätze farblich markieren und auflisten Blätter in andere Arbeitsmappen kopieren