Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Inhaltsverzeichnis

Datensatz auf andere Tabelle

Datensatz auf andere Tabelle
11.04.2002 09:05:23
Fred
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.


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Datensatz auf andere Tabelle
11.04.2002 10:39:35
Peter H. Erdmann
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

Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige