Anzeige
Archiv - Navigation
660to664
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
660to664
660to664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

aus einem Tabellenblatt mehrere erstellen

aus einem Tabellenblatt mehrere erstellen
01.09.2005 20:56:15
OGri
Hallo,
wer kann helfen ich habe in einer Tabelle mit zwei Blättern,
im 1. Blatt (Tab01) auf dem Server https://www.herber.de/bbs/user/26257.xls
Stehen die Daten, das 2. Blatt (Tab02) soll als Vorlage dienen.
Also ich möchte per klick auf Tab01 (B8)u.s.w. einen Stundenzettel wie Tab02 mit allen wichtigen Daten wie aus Tab01 wie Name, Personalnummer StundenVormonat u.s.w. in ein neues Datenblatt einfügen
OGri

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aus einem Tabellenblatt mehrere erstellen
02.09.2005 08:30:21
Franz
Hallo OGri,
Mit folgendem Makro im Tabellenblatt, dass auf die Zellauswahl reagiert, werden die Daten übertragen.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
' Übertragung der Daten des ausgewählten Mitarbeiters in den Monatsarbeitszeitplan
If Target.Column = 2 And Target.Row >= 8 Then
If IsEmpty(Target) = True Then Exit Sub 'Leere Zelle gewählt
Zeile = Target.Row
Application.Range("Tab02!B6") = Cells(Zeile, 2) 'Name
Application.Range("Tab02!C9") = Cells(Zeile, 1) 'Personalnummer
Application.Range("Tab02!F9") = Cells(Zeile, 8) 'Urlaub Vormonat
Application.Range("Tab02!J9") = Cells(Zeile, 5) 'Stunden Vormonat
Sheets("Tab02").Activate
End If
End Sub

Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige