Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
112to116
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
112to116
112to116
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige