VBA Code um Daten mit wenn zu holen

Hallo liebe Forengemeinde,
Ich habe folgendes Problem mit Excel in Kombi mit VBA:
Ich habe eine Arbeitsmappe, auf der in Tabelle 1 insgesamt 20 Mitarbeiter Ihre Arbeitszeit und Pausen in eine Maske eingeben sollen.
Zur Sicherheit muss der Mitarbeiter sich selbst dem Namen nach auswählen und damit es nicht in den Arbeitsmappen der Mitarbeiter durcheinander geht mit 4 stelliger Personalnummer.
Danach wählt er den Monat aus, den er bearbeiten will.
Dann soll er auf Daten holen gehen. Nun brauche ich einen VBA Code etc. um aus der Mappe des Arbeitnehmers den entsprechenden Monat ( Z. B. JAN D8:L38 ) unter Zu Hilfename eines Nummerncodes (steht in Tabelle Mitarbeiter und wird generiert aus Formulardropdownfeldern und Eingabe seiner Pers.-Nummer)
Mit einem aufgezeichneten Macro ist es mir gelungen, mit If then für einen Mitarbeiter dieses auch hin zu bekommen. Aber dann.
Wenn der Mitarbeiter die Zeilen mit Arbeitszeit und Pausen ausgefüllt hat, soll er auf den Knopf Daten Senden drücken und die Mappe des Mitarbeiters wird mit diesem Daten aktualisiert.
Hintergrund dieser Aktion soll sein, die Daten von dem Mitarbeiter (Taxifahrer) eingeben zu lassen.
Ich hoffe einer kann mir helfen..
https://www.herber.de/bbs/user/103473.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin!
Den Namen "Mitarbeiter" habe ich gelöscht (überflüssig)
Benutze folgenden Code:

Sub Marco1()
' Marco1 Makro
' Daten holen
'Namen herleiten:
'Ausgabezelle des Dropdown für Mitarbeiter: (Mitarbeiter)C1
With Sheets("Mitarbeiter")
Zeile = .Range("C1")
MA = Replace(.Range("A" & Zeile), " ", "") 'Name ohne Leerzeichen
MA_name = Split(MA, ",") 'Name bei Komma trennen
MA_VN = MA_name(1) 'Vorname (2ter Teil)
MA_NN = MA_name(0) 'nachname (1ter Teil)
End With
'    Windows(MA_VN & MA_NN & " Stundenabrechnung2016.xls").Activate
'    Range("D8:L38").Select
'    Range("L38").Activate
'    Selection.Copy
'    Windows("Stempeluhr - Kopie (version 2).xlsb [Wiederhergestellt]").Activate
'    Range("D3:L33").Select
'    ActiveSheet.Paste
Windows(MA_VN & MA_NN & " Stundenabrechnung2016.xls").Range("D8:L38").Copy Windows(" _
Stempeluhr - Kopie (version 2).xlsb [Wiederhergestellt]").Range("D3")
End Sub

du hast im "CommandButton1_Click" die Zeile


wks.Cells(1, 7).Value = wks.Cells(1, 7).Value + 1

'Wenn das in jedem Case dieselbe Zeile ist, wieso schreibst du sie dann nicht 1x HINTER das select case?
Gruß, MCO

Sub Macro1() ' Marco1 Makro ' Daten holen 'Namen herleiten: 'Ausgabezelle des Dropdown für Mitarbeiter: (Mitarbeiter)C1 With Sheets("Mitarbeiter") Zeile = .Range("C1") MA = Replace(.Range("A" & Zeile), " ", "") 'Name ohne Leerzeichen MA_name = Split(MA, ",") 'Name bei Komma trennen MA_VN = MA_name(1) 'Vorname (2ter Teil) MA_NN = MA_name(0) 'nachname (1ter Teil) End With ' Windows(MA_VN & MA_NN & " Stundenabrechnung2016.xls").Activate ' Range("D8:L38").Select ' Range("L38").Activate ' Selection.Copy ' Windows("Stempeluhr.xlsm").Activate ' Range("D8:L38").Select ' ActiveSheet.Paste Windows(MA_VN & MA_NN & " Stundenabrechnung2016.xls").Range("D8:L38").Copy Windows(" _ Stempeluhr.xlsm]").Range("D3") End Sub

Beliebteste Forumthreads (12 Monate)

VBA Code um Daten mit wenn zu holen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Code um Daten mit wenn zu holen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread