<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>Thema "Import von Bewegungsdaten (Baulohn, LuG)" in Personalwirtschaft</title>
    <link>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/213394#M50149</link>
    <description>&lt;P&gt;&lt;SPAN&gt;LODAS Baulohn Kalendarium Tool&lt;/SPAN&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&lt;SPAN&gt;Ich übernehme keine Verantwortung/Haftung für irgendwelche Schäden. Das Tool ist von mir getestet und es traten bei mir vereinzelt Probleme auf. Anspruch auf Support besteht nicht. Bin aber gerne bereit zu helfen.&lt;/SPAN&gt;&lt;/P&gt;&lt;P&gt;&lt;SPAN&gt;Ich bin kein Profi. Ich habe mich in der Freizeit mit vba beschäftigt und dieses Tool entwickelt. &lt;/SPAN&gt;&lt;/P&gt;&lt;P&gt;&lt;SPAN&gt;Es gibt sicherlich eine bessere Vorgehensweise bzw. besseren Code. Es ist sicherlich auch unnötiger Code enthalten.&lt;/SPAN&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&lt;span class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="entwicklertools.jpg" style="width: 704px;"&gt;&lt;img src="https://www.datev-community.de/t5/image/serverpage/image-id/14999i2A20391540960376/image-size/large?v=v2&amp;amp;px=999" role="button" title="entwicklertools.jpg" alt="entwicklertools.jpg" /&gt;&lt;/span&gt;&lt;/P&gt;&lt;P&gt;Falls der Reiter fehlt unter Optionen - Menüband anpassen einblenden&lt;/P&gt;&lt;P&gt;Der Code wird in PERSONAL.XLSB gespeichert. Falls der Bereich nicht ersichtlich ist, kann per Makro aufzeichnen - Makro speichern in "Persönliche Makroarbeitsmappe" der Bereich geschaffen werden.&lt;/P&gt;&lt;P&gt;Neues Modul erstellen, CODE einfügen und speichern.&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&lt;span class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="Entwicklertools2.jpg" style="width: 379px;"&gt;&lt;img src="https://www.datev-community.de/t5/image/serverpage/image-id/15000i94125F6A620FCD90/image-size/large?v=v2&amp;amp;px=999" role="button" title="Entwicklertools2.jpg" alt="Entwicklertools2.jpg" /&gt;&lt;/span&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;Bei der Datei des Mandanten waren keine Pers.Nr eingetragen. Das Tool sucht aus einer ANListe Datei die Namen und die dazugehörigen Nummern.&lt;/P&gt;&lt;P&gt;Falls das nicht benötigt wird die folgenden Codes löschen&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;"przPersNrAusTabelleEintragen 'Aus ANListe Excel-Datei"&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;"przPersNrInTabelleSpeichern 'Änderungen durch Ergänzungen werden in die ANListe Excel-Datei gespeichert"&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Die Beraternummer und die Mandantennummer müssen geändert werden.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Die Excel Datei des Mandanten wird geöffnet. (Baulohn Kalendarium von Datev)&lt;/P&gt;&lt;P&gt;&lt;span class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="stundennachweis Baulohn.jpg" style="width: 200px;"&gt;&lt;img src="https://www.datev-community.de/t5/image/serverpage/image-id/15001i0F2A0F170953219B/image-size/small?v=v2&amp;amp;px=200" role="button" title="stundennachweis Baulohn.jpg" alt="stundennachweis Baulohn.jpg" /&gt;&lt;/span&gt;&lt;/P&gt;&lt;P&gt;Über Entwicklertools - Makros - kann das entsprechende Makro ausgeführt werden.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Die Importfähige Datei wird im gleichen Ordner gespeichert und kann dann in Lodas über ASCII importiert werden.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Viel Erfolg.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&lt;SPAN&gt;_______________________________________________________________________________________________________________&lt;/SPAN&gt;&lt;/P&gt;&lt;P&gt;Option Explicit&lt;/P&gt;&lt;P&gt;Sub LodasBaulohnImport()&lt;/P&gt;&lt;P&gt;'Makro Datum: 08.04.2021&lt;/P&gt;&lt;P&gt;'Fehlende Funktionen/Hinweise&lt;BR /&gt;'-&lt;BR /&gt;'- Einträge mit Schlüssel U/F/FE etc. werden absichtlich nicht übernommen - Manuelles Eintippen in Lodas notwendig!&lt;BR /&gt;'- Übernahme Bereich von Std, Schlüssel und Baustelle von B8 bis AF19 - 4xBlöcke pro Tag - Manuell eingefügte Zeilen werden nicht übernommen&lt;BR /&gt;'-&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;Dim wkbMappe As Workbook&lt;BR /&gt;Dim wksBlatt As Worksheet&lt;BR /&gt;Dim WkSEnde As Long&lt;BR /&gt;Dim intBlatt As Integer&lt;/P&gt;&lt;P&gt;Dim lngSpalte As Long&lt;BR /&gt;Dim lngSpalteMax As Long&lt;BR /&gt;Dim lngZeile As Long&lt;/P&gt;&lt;P&gt;Dim SngStd1 As Single&lt;BR /&gt;Dim strStd1 As String&lt;BR /&gt;Dim strSchluessel1 As String&lt;BR /&gt;Dim intBaustelle1 As String&lt;BR /&gt;Dim strArbName As String&lt;/P&gt;&lt;P&gt;Dim strBeraternummer As String&lt;BR /&gt;Dim strMandantennummer As String&lt;BR /&gt;Dim strErfassung As String&lt;BR /&gt;Dim wsBewegungsdaten As Worksheet&lt;BR /&gt;Dim wsStammdaten As Worksheet&lt;/P&gt;&lt;P&gt;Dim strTag As String&lt;BR /&gt;Dim strMonat As String&lt;BR /&gt;Dim strMonatHeute As String&lt;BR /&gt;Dim strMonatDifferenz As String&lt;BR /&gt;Dim strJahr As String&lt;BR /&gt;Dim Datum As String&lt;BR /&gt;Dim intWoche As Integer&lt;BR /&gt;Dim Wochentag As String&lt;BR /&gt;&lt;BR /&gt;Dim imput As Variant&lt;BR /&gt;Dim lngZeileU As Long&lt;BR /&gt;Dim Leerzeile As String&lt;BR /&gt;Dim strDatensatz As String&lt;BR /&gt;Dim intPNr As Integer&lt;BR /&gt;Dim strPreFix As String&lt;/P&gt;&lt;P&gt;Const STRTZ = ";"&lt;BR /&gt;Const STRSB = "'"&lt;BR /&gt;Const STRSATZART = "6"&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;strBeraternummer = "1" 'BERATERNUMMER ÄNDERN&lt;BR /&gt;strMandantennummer = "11111" 'MANDANTENNUMMER ÄNDERN&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;przPersNrAusTabelleEintragen 'Aus ANListe Excel-Datei&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;' On Error GoTo Fehler&lt;BR /&gt;Set wsBewegungsdaten = ActiveWorkbook.ActiveSheet&lt;BR /&gt;&lt;BR /&gt;Set wkbMappe = ActiveWorkbook&lt;BR /&gt;Set wksBlatt = wkbMappe.Worksheets(2)&lt;/P&gt;&lt;P&gt;With wkbMappe.ActiveSheet&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;strMonat = Format(.cells(3, "U").Value, "MM")&lt;BR /&gt;strJahr = Format(.cells(3, "U").Value, "YYYY")&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;If wkbMappe.Worksheets(2).cells(3, "O").Value = "" Then 'Fehlt die erste Personalnummer?&lt;BR /&gt;&lt;BR /&gt;MsgBox "Erste Pers.-Nr. fehlt"&lt;BR /&gt;Else&lt;BR /&gt;Application.DisplayAlerts = False&lt;BR /&gt;Application.ScreenUpdating = False&lt;BR /&gt;intPNr = .cells(3, "O").Value&lt;BR /&gt;&lt;BR /&gt;Open ActiveWorkbook.Path &amp;amp; "\" &amp;amp; "Lodas_Import_" &amp;amp; strBeraternummer &amp;amp; "_" &amp;amp; strMandantennummer &amp;amp; "_" &amp;amp; strMonat &amp;amp; "." &amp;amp; strJahr &amp;amp; ".txt" For Output As #1&lt;BR /&gt;&lt;BR /&gt;Print #1, "[Allgemein]" 'muss&lt;BR /&gt;Print #1, "Ziel = Lodas" 'muss&lt;BR /&gt;Print #1, "Version Excel-Baulohnexport 08.04.2021" 'kann&lt;BR /&gt;Print #1, "BeraterNr = " &amp;amp; strBeraternummer 'muss&lt;BR /&gt;Print #1, "MandantenNr = " &amp;amp; strMandantennummer 'muss&lt;BR /&gt;Print #1, "Feldtrennzeichen=" &amp;amp; STRTZ 'kann&lt;BR /&gt;Print #1, "Zahlenkomma=," 'kann&lt;BR /&gt;Print #1, "Datumsformat=TT.MM.JJJJ" 'kann&lt;BR /&gt;Print #1, "Stringbegrenzer='" 'kann&lt;BR /&gt;Print #1, "Kommentarzeichen=*" 'kann&lt;BR /&gt;Print #1, "StammdatenGueltigAb=01." &amp;amp; strMonat &amp;amp; "." &amp;amp; strJahr&lt;BR /&gt;Print #1, Leerzeile&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;' Bemerkungen von Sheet Bemerkungen&lt;BR /&gt;&lt;BR /&gt;For lngZeileU = 9 To 33&lt;BR /&gt;Print #1, ""&lt;BR /&gt;Next lngZeileU&lt;BR /&gt;&lt;BR /&gt;Print #1, Leerzeile&lt;BR /&gt;&lt;BR /&gt;Print #1, "[Satzbeschreibung]"&lt;BR /&gt;Print #1, "6;u_lod_bwd_buchung_kalendarium;pnr#bwd;abrechnung_zeitraum#bwd;kalendertag#bwd;kalenderwoche#bwd;wochentag#kal;stunden_pro_tag#bwd;as_kal#bwd;kostenstelle#bwd;la_eigene#bwd;"&lt;BR /&gt;Print #1, Leerzeile&lt;BR /&gt;&lt;BR /&gt;'Bewegungsdaten (Satzart = 22)&lt;BR /&gt;Print #1, "[Bewegungsdaten]"&lt;BR /&gt;&lt;BR /&gt;lngSpalteMax = 32&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;WkSEnde = wkbMappe.Worksheets.Count&lt;BR /&gt;'&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;For intBlatt = 2 To WkSEnde ' Alle Arbeitblätter nacheinander durchgehen&lt;BR /&gt;wkbMappe.Worksheets(intBlatt).Select&lt;BR /&gt;&lt;BR /&gt;If wkbMappe.Worksheets(intBlatt).cells(3, "B").Value &amp;lt;&amp;gt; "ARBEITNEHMER1" Then 'Arbeitsblaetter mit diesen Namen ueberspringen&lt;BR /&gt;If wkbMappe.Worksheets(intBlatt).cells(3, "B").Value &amp;lt;&amp;gt; "ARBEITNEHMER2" Then&lt;BR /&gt;&lt;BR /&gt;strArbName = wkbMappe.Worksheets(intBlatt).cells(3, 2).Value&lt;BR /&gt;&lt;BR /&gt;strMonat = Format(wkbMappe.Worksheets(intBlatt).cells(3, "U").Value, "MM")&lt;BR /&gt;strJahr = Format(wkbMappe.Worksheets(intBlatt).cells(3, "U").Value, "YYYY")&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;strMonatHeute = Format(Date, "MM")&lt;BR /&gt;strMonatDifferenz = strMonatHeute - strMonat&lt;BR /&gt;&lt;BR /&gt;'Pruefung ob laenger als 1 Monat her? Z.B. Heute April, Abrechnungsmonat: Maerz, Eintrag: Februar -&amp;gt; Arbeitsblatt wird uebersprungen&lt;BR /&gt;If strMonatDifferenz &amp;gt; 1 Then&lt;BR /&gt;' Exit For&lt;BR /&gt;&lt;BR /&gt;MsgBox "Länger als 1 Monat her." &amp;amp; Chr(10) &amp;amp; "Diese Daten sind vermutlich für eine Nachberechnung" &amp;amp; Chr(10) &amp;amp; _&lt;BR /&gt;"Das Arbeitblatt wieder übersprungen!" &amp;amp; Chr(10) &amp;amp; " PersNr. " &amp;amp; intPNr &amp;amp; " PersName: " &amp;amp; strArbName &amp;amp; " Monat: " &amp;amp; strMonat, vbCritical&lt;BR /&gt;intBlatt = intBlatt + 1&lt;BR /&gt;&lt;BR /&gt;wkbMappe.Worksheets(intBlatt).Select&lt;BR /&gt;strMonat = Format(wkbMappe.Worksheets(intBlatt).cells(3, "U").Value, "MM")&lt;BR /&gt;strJahr = Format(wkbMappe.Worksheets(intBlatt).cells(3, "U").Value, "YYYY")&lt;BR /&gt;Else&lt;BR /&gt;&lt;BR /&gt;End If&lt;BR /&gt;&lt;BR /&gt;' Suchen und Ersetzen&lt;BR /&gt;&lt;BR /&gt;On Error GoTo Fehler:&lt;BR /&gt;&lt;BR /&gt;'Bindestrich und Absatz entfernen&lt;BR /&gt;wkbMappe.Worksheets(intBlatt).cells.SpecialCells(xlCellTypeConstants).Replace _&lt;BR /&gt;what:="-" &amp;amp; Chr(10), Replacement:="", lookat:=xlPart, _&lt;BR /&gt;SearchOrder:=xlByRows, MatchCase:=False&lt;BR /&gt;&lt;BR /&gt;'Absatz entfernen (ohne Bindestrich)&lt;BR /&gt;wkbMappe.Worksheets(intBlatt).cells.SpecialCells(xlCellTypeConstants).Replace _&lt;BR /&gt;what:=Chr(10), Replacement:="", lookat:=xlPart, _&lt;BR /&gt;SearchOrder:=xlByRows, MatchCase:=False&lt;/P&gt;&lt;P&gt;' Leerstelle entfernen&lt;BR /&gt;' wkbMappe.Worksheets(intBlatt).cells.SpecialCells(xlCellTypeConstants).Replace _&lt;BR /&gt;' what:=Chr(32), Replacement:="", lookat:=xlPart, _&lt;BR /&gt;' SearchOrder:=xlByRows, MatchCase:=False&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;Range("B6").Select&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;If wkbMappe.Worksheets(intBlatt).cells(3, "O").Value &amp;lt;&amp;gt; "" Then 'Pruefung Pers.Nr eingegeben?&lt;BR /&gt;intPNr = wkbMappe.Worksheets(intBlatt).cells(3, "O").Value&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;Else&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;intPNr = InputBox("Wie lautet die PersNr. von " &amp;amp; strArbName &amp;amp; "?")&lt;BR /&gt;wkbMappe.Worksheets(intBlatt).cells(3, "O").Value = intPNr&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;End If&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;For lngSpalte = 2 To lngSpalteMax&lt;BR /&gt;&lt;BR /&gt;strTag = wkbMappe.Worksheets(intBlatt).cells(6, lngSpalte)&lt;BR /&gt;strTag = Format(strTag, "00")&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;For lngZeile = 8 To 19&lt;BR /&gt;&lt;BR /&gt;'STUNDEN&lt;BR /&gt;If wkbMappe.Worksheets(intBlatt).cells(lngZeile, lngSpalte).Value &amp;lt;&amp;gt; "" Then&lt;BR /&gt;&lt;BR /&gt;SngStd1 = wkbMappe.Worksheets(intBlatt).cells(lngZeile, lngSpalte).Value&lt;BR /&gt;strStd1 = wkbMappe.Worksheets(intBlatt).cells(lngZeile, lngSpalte).Value&lt;BR /&gt;If Len(strStd1) &amp;gt; 5 Then&lt;BR /&gt;&lt;BR /&gt;MsgBox "Fehler in Stundenanzahl! Mehr als 5 Zeichen." &amp;amp; Chr(10) &amp;amp; _&lt;BR /&gt;"Das Programm geht trotzdem weiter und speichert die Zeichen in der Textdatei." _&lt;BR /&gt;&amp;amp; Chr(10) &amp;amp; " PersNr. " &amp;amp; intPNr &amp;amp; " PersName: " &amp;amp; strArbName &amp;amp; " Tag: " &amp;amp; strTag &amp;amp; _&lt;BR /&gt;Chr(10) &amp;amp; " Inhalt: " &amp;amp; SngStd1, vbCritical&lt;BR /&gt;' Exit For&lt;BR /&gt;Else&lt;BR /&gt;&lt;BR /&gt;End If&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;Else&lt;BR /&gt;Exit For&lt;BR /&gt;End If&lt;BR /&gt;&lt;BR /&gt;lngZeile = lngZeile + 1&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;'SCHLUESSEL&lt;BR /&gt;If wkbMappe.Worksheets(intBlatt).cells(lngZeile, lngSpalte).Value &amp;lt;&amp;gt; "" Then&lt;BR /&gt;&lt;BR /&gt;strSchluessel1 = wkbMappe.Worksheets(intBlatt).cells(lngZeile, lngSpalte).Value&lt;BR /&gt;&lt;BR /&gt;If Len(strSchluessel1) &amp;gt; 2 Then&lt;BR /&gt;MsgBox "Schlüssel zu lang! Mehr als 2 Zeichen." &amp;amp; Chr(10) &amp;amp; _&lt;BR /&gt;Chr(10) &amp;amp; "Das Programm geht trotzdem weiter und speichert die Zeichen in der Textdatei." &amp;amp; _&lt;BR /&gt;Chr(10) &amp;amp; " PersNr. " &amp;amp; intPNr &amp;amp; " PersName: " &amp;amp; strArbName &amp;amp; " Tag: " &amp;amp; strTag &amp;amp; Chr(10) &amp;amp; " Inhalt: " &amp;amp; _&lt;BR /&gt;strSchluessel1, vbCritical&lt;BR /&gt;' Exit For&lt;BR /&gt;Else&lt;BR /&gt;&lt;BR /&gt;End If&lt;BR /&gt;&lt;BR /&gt;Else&lt;BR /&gt;Exit For&lt;BR /&gt;End If&lt;BR /&gt;&lt;BR /&gt;lngZeile = lngZeile + 1&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;'BAUSTELLE&lt;BR /&gt;If wkbMappe.Worksheets(intBlatt).cells(lngZeile, lngSpalte).Value &amp;lt;&amp;gt; "" Then&lt;BR /&gt;intBaustelle1 = wkbMappe.Worksheets(intBlatt).cells(lngZeile, lngSpalte).Value&lt;BR /&gt;Else&lt;BR /&gt;Exit For&lt;BR /&gt;End If&lt;/P&gt;&lt;P&gt;'Wenn keine Stunden eingegeben wird nicht hinzugefügt&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;Datum = strTag &amp;amp; "." &amp;amp; strMonat&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;intWoche = Format(Datum, "ww", vbMonday, vbFirstFourDays)&lt;BR /&gt;If intWoche &amp;gt; 52 Then&lt;BR /&gt;If Format(Datum + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then intWoche = 1&lt;BR /&gt;End If&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;Wochentag = Format(Datum, "DDD")&lt;BR /&gt;&lt;BR /&gt;'20;u_lod_bwd_buchung_kalendarium;pnr#bwd;abrechnung_zeitraum#bwd;kalendertag#bwd;kalenderwoche#&lt;BR /&gt;'bwd;wochentag#kal;stunden_pro_tag#bwd;as_kal#bwd;kostenstelle#bwd;la_eigene#bwd;"&lt;BR /&gt;&lt;BR /&gt;With wsBewegungsdaten&lt;BR /&gt;strDatensatz = STRSATZART &amp;amp; STRTZ &amp;amp; intPNr &amp;amp; STRTZ &amp;amp; "01." &amp;amp; strMonat &amp;amp; "." &amp;amp; strJahr _&lt;BR /&gt;&amp;amp; STRTZ &amp;amp; strTag &amp;amp; STRTZ &amp;amp; intWoche &amp;amp; STRTZ &amp;amp; Wochentag _&lt;BR /&gt;&amp;amp; STRTZ &amp;amp; SngStd1 &amp;amp; STRTZ &amp;amp; strSchluessel1 &amp;amp; STRTZ &amp;amp; intBaustelle1 &amp;amp; STRTZ &amp;amp; "201" &amp;amp; STRTZ&lt;BR /&gt;&lt;BR /&gt;End With&lt;BR /&gt;&lt;BR /&gt;Print #1, strDatensatz&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;Next lngZeile&lt;BR /&gt;&lt;BR /&gt;Next lngSpalte&lt;BR /&gt;&lt;BR /&gt;End If&lt;BR /&gt;End If&lt;BR /&gt;&lt;BR /&gt;' Columns("B:AF").Select&lt;BR /&gt;' Selection.ColumnWidth = 4.5 'spaltebreite erhöhen, damit die Auftragsnummer angezeigt wird&lt;/P&gt;&lt;P&gt;Next intBlatt&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;przPersNrInTabelleSpeichern 'Änderungen durch Ergänzungen werden in die ANListe Excel-Datei gespeichert&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;MsgBox "F E R T I G." &amp;amp; Chr(10) &amp;amp; "Die TXT-Datei" &amp;amp; Chr(10) &amp;amp; _&lt;BR /&gt;"Lodas_Import_" &amp;amp; strBeraternummer &amp;amp; "_" &amp;amp; strMandantennummer &amp;amp; "_" &amp;amp; strMonat &amp;amp; ".txt" &amp;amp; Chr(10) &amp;amp; _&lt;BR /&gt;"wurde im gleichen Speicherort abgelegt.", vbInformation&lt;BR /&gt;Close #1&lt;/P&gt;&lt;P&gt;Application.DisplayAlerts = True&lt;BR /&gt;Application.ScreenUpdating = True&lt;BR /&gt;&lt;BR /&gt;End If&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;End With&lt;/P&gt;&lt;P&gt;Fehler:&lt;BR /&gt;'MsgBox "FEHLER", vbCritical&lt;BR /&gt;Close #1&lt;BR /&gt;&lt;BR /&gt;Application.DisplayAlerts = True&lt;BR /&gt;Application.ScreenUpdating = True&lt;/P&gt;&lt;P&gt;End Sub&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;Public Function przPersNrAusTabelleEintragen()&lt;/P&gt;&lt;P&gt;Dim wkbQuelle As Workbook&lt;BR /&gt;Dim wkbZiel As Workbook&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;Dim lngZeile As Long&lt;BR /&gt;Dim lngZeileMax As Long&lt;BR /&gt;Dim strPFad As String&lt;/P&gt;&lt;P&gt;Dim WkSEnde As Long&lt;BR /&gt;Dim intBlatt As Integer&lt;/P&gt;&lt;P&gt;Dim strPNr As String&lt;BR /&gt;Dim strName As String&lt;BR /&gt;Dim rngTreffer As Range&lt;BR /&gt;Dim rngBereich As Range&lt;BR /&gt;Dim strAdresse As String&lt;/P&gt;&lt;P&gt;'Die Schritte sollen live nicht ansehbar sein&lt;BR /&gt;Application.ScreenUpdating = False&lt;BR /&gt;Application.DisplayAlerts = False&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;Set wkbZiel = ActiveWorkbook&lt;BR /&gt;strPFad = ActiveWorkbook.Path&lt;/P&gt;&lt;P&gt;Workbooks.Open Filename:= _&lt;BR /&gt;strPFad &amp;amp; "\ANliste.xlsx"&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;Set wkbQuelle = ActiveWorkbook&lt;BR /&gt;wkbZiel.Activate&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;WkSEnde = wkbZiel.Worksheets.Count&lt;BR /&gt;lngZeileMax = wkbQuelle.Worksheets(1).UsedRange.Rows.Count&lt;/P&gt;&lt;P&gt;Set rngBereich = wkbQuelle.Worksheets(1).Range("A2:A" &amp;amp; lngZeileMax)&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;For intBlatt = 2 To WkSEnde ' Alle Arbeitblätter nacheinander durchgehen&lt;BR /&gt;&lt;BR /&gt;strName = wkbZiel.Worksheets(intBlatt).cells(3, 2).Value&lt;BR /&gt;&lt;BR /&gt;Set rngTreffer = rngBereich.Find _&lt;BR /&gt;(what:=strName, lookat:=xlWhole)&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;If Not rngTreffer Is Nothing Then&lt;BR /&gt;strAdresse = rngTreffer.Row&lt;BR /&gt;wkbZiel.Worksheets(intBlatt).cells(3, "O").Value = wkbQuelle.Worksheets(1).cells(strAdresse, 2).Value&lt;BR /&gt;End If&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;Next intBlatt&lt;BR /&gt;&lt;BR /&gt;Application.ScreenUpdating = True&lt;BR /&gt;Application.DisplayAlerts = True&lt;BR /&gt;&lt;BR /&gt;wkbQuelle.Close&lt;BR /&gt;&lt;BR /&gt;End Function&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;'Sub PersNrSpeichern()&lt;BR /&gt;' przPersNrInTabelleSpeichern&lt;BR /&gt;'End Sub&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Public Function przPersNrInTabelleSpeichern()&lt;/P&gt;&lt;P&gt;Dim wkbQuelle As Workbook&lt;BR /&gt;Dim wkbZiel As Workbook&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;Dim lngZeile As Long&lt;BR /&gt;Dim lngZeileMax As Long&lt;BR /&gt;Dim strPFad As String&lt;/P&gt;&lt;P&gt;Dim WkSEnde As Long&lt;BR /&gt;Dim intBlatt As Integer&lt;/P&gt;&lt;P&gt;Dim strPNr As String&lt;BR /&gt;Dim strName As String&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;'Die Schritte sollen live nicht ansehbar sein&lt;BR /&gt;Application.ScreenUpdating = False&lt;BR /&gt;Application.DisplayAlerts = False&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;Set wkbQuelle = ActiveWorkbook&lt;BR /&gt;strPFad = ActiveWorkbook.Path&lt;/P&gt;&lt;P&gt;Workbooks.Open Filename:= _&lt;BR /&gt;strPFad &amp;amp; "\ANliste.xlsx"&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;Set wkbZiel = ActiveWorkbook&lt;BR /&gt;wkbQuelle.Activate&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;WkSEnde = wkbQuelle.Worksheets.Count&lt;BR /&gt;'lngZeileMax = wkbZiel.Worksheets(1).UsedRange.Rows.Count&lt;/P&gt;&lt;P&gt;lngZeile = 2&lt;BR /&gt;For intBlatt = 2 To WkSEnde ' Alle Arbeitblätter nacheinander durchgehen&lt;/P&gt;&lt;P&gt;' If wkbZiel.Worksheets(intBlatt).cells(3, "O").Value = "" Then&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;strName = wkbQuelle.Worksheets(intBlatt).cells(3, 2).Value&lt;BR /&gt;strPNr = wkbQuelle.Worksheets(intBlatt).cells(3, "O").Value&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;wkbZiel.Worksheets(1).cells(lngZeile, 1).Value = strName&lt;BR /&gt;wkbZiel.Worksheets(1).cells(lngZeile, 2).Value = strPNr&lt;BR /&gt;&lt;BR /&gt;'&lt;BR /&gt;lngZeile = lngZeile + 1&lt;BR /&gt;&lt;BR /&gt;' End If&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;Next intBlatt&lt;BR /&gt;&lt;BR /&gt;Application.ScreenUpdating = True&lt;BR /&gt;Application.DisplayAlerts = True&lt;BR /&gt;&lt;BR /&gt;wkbZiel.Close&lt;BR /&gt;&lt;BR /&gt;End Function&lt;/P&gt;</description>
    <pubDate>Wed, 14 Apr 2021 07:52:16 GMT</pubDate>
    <dc:creator>w_paul</dc:creator>
    <dc:date>2021-04-14T07:52:16Z</dc:date>
    <item>
      <title>Import von Bewegungsdaten (Baulohn, LuG)</title>
      <link>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/201496#M47736</link>
      <description>&lt;P&gt;Hallo zusammen,&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;unser Mandant im Bauhauptgewerbe mailt uns zur Lohnabrechnung Kalenderauszüge im pdf-Format für seine 70 Arbeitnehmer. Aktuell erfasse ich die Stunden manuell im Kalender.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Hat jemand eine Idee, wie man bei Lohn und Gehalt den Kalender importieren kann?&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Der Mandat ist offen für andere Erfassungsmöglichkeiten. Laut eigener Aussage hat er kein Zeiterfassungsprogramm mit Datev-Schnittstelle. Er kann alternativ zu pdf auch den Kalender als Excel-Tabellen (pro Mitarbeiter eine eigene Datei) zur Verfügung stellen.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Viele Grüße&lt;/P&gt;&lt;P&gt;K. Rolf&lt;/P&gt;</description>
      <pubDate>Tue, 16 Feb 2021 11:29:17 GMT</pubDate>
      <guid>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/201496#M47736</guid>
      <dc:creator>KRolf</dc:creator>
      <dc:date>2021-02-16T11:29:17Z</dc:date>
    </item>
    <item>
      <title>Import von Bewegungsdaten (Baulohn, LuG)</title>
      <link>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/201497#M47737</link>
      <description>&lt;BLOCKQUOTE&gt;&lt;HR /&gt;&lt;P&gt;&lt;a href="https://www.datev-community.de/t5/user/viewprofilepage/user-id/26854"&gt;@KRolf&lt;/a&gt;&amp;nbsp;schrieb:&lt;/P&gt;&lt;P&gt;&lt;SPAN&gt;Der Mandat ist offen für andere Erfassungsmöglichkeiten.&lt;/SPAN&gt;&lt;/P&gt;&lt;HR /&gt;&lt;/BLOCKQUOTE&gt;&lt;P&gt;Also auch für topaktuelle Lösungen inkl. der Möglichkeit, Zeiten per App am Smartphone zu erfassen?&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Dann würde ich mal bei REINER SCT vorbeischauen. Die haben sehr schicke Lösung und eine gute DATEV Schnittstelle, bei der man im Optimalfall nichts mehr machen muss, weil der Import super klappt; abrechnen, fertig.&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&lt;A href="https://www.datev.de/web/de/m/marktplatz/timecard-zeiterfassung/" target="_blank" rel="noopener"&gt;timeCard Zeiterfassung&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Eine Präsentation dazu gabs im IT-Club 2020:&amp;nbsp;&lt;A href="https://www.datev-community.de/t5/IT-Club/IT-Club-Marktplatz-online-26-11-2020/m-p/182208#M1403" target="_blank" rel="noopener"&gt;IT-Club Marktplatz online - 26.11.2020&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Kontakt zur Firma / Partner lasse ich Ihnen via PN zukommen.&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Tue, 16 Feb 2021 11:36:56 GMT</pubDate>
      <guid>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/201497#M47737</guid>
      <dc:creator>metalposaunist</dc:creator>
      <dc:date>2021-02-16T11:36:56Z</dc:date>
    </item>
    <item>
      <title>Import von Bewegungsdaten (Baulohn, LuG)</title>
      <link>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/201502#M47738</link>
      <description>&lt;P&gt;Hallo,&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;es gib doch unter %datevpp%\Programm\Kanzleilohn\vorlagen eine Excel-Vorerfassung&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Vielleicht können Sie es mit dem Mandanten hierüber abwickeln.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Sie müssen nur Ausfallschlüssel und ggf. Lohnarten einmal abstimmen.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Mit freundlichem Gruß&lt;/P&gt;</description>
      <pubDate>Tue, 16 Feb 2021 11:47:32 GMT</pubDate>
      <guid>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/201502#M47738</guid>
      <dc:creator>MHoeft</dc:creator>
      <dc:date>2021-02-16T11:47:32Z</dc:date>
    </item>
    <item>
      <title>Import von Bewegungsdaten (Baulohn, LuG)</title>
      <link>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/201528#M47744</link>
      <description>&lt;P&gt;Hat diese Excel Tabelle Makros? Dann kann der Austausch via E-Mail schwierig werden, wenn nach und nach einige E-Mail Provider Office Dokumente mit Makros gleich filtern und das zu Recht! Dann braucht man wieder einen Mandantenaustausch wie es die CloudBox der DATEV vorgemacht hat.&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Kann man solche Dinge nicht auch via DUO LODAS / Lohn&amp;amp;Gehalt Vorerfasung machen? Dann fehlt aber trotzdem noch das zentrale Zeiterfassungssystem beim Mandanten.&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Tue, 16 Feb 2021 12:57:43 GMT</pubDate>
      <guid>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/201528#M47744</guid>
      <dc:creator>metalposaunist</dc:creator>
      <dc:date>2021-02-16T12:57:43Z</dc:date>
    </item>
    <item>
      <title>Import von Bewegungsdaten (Baulohn, LuG)</title>
      <link>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/201639#M47768</link>
      <description>&lt;P&gt;Nicht jeder will sich ein komplexes Zeiterfassungssystem anschaffen.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Anscheinend werden die Daten auch jetzt schon "manuell" dokumentiert.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;- Sie können die Daten von dem Mandanten exportieren lassen. Dann lesen Sie die Daten in Lohn und Gehalt ein&lt;/P&gt;&lt;P&gt;- Sie können&amp;nbsp; den Aufbau in einer normalen Exceltabelle abbilden und die Daten in der Kanzlei in die&lt;BR /&gt;&amp;nbsp; &amp;nbsp;Vorerfassung kopieren.&lt;/P&gt;</description>
      <pubDate>Wed, 17 Feb 2021 06:56:05 GMT</pubDate>
      <guid>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/201639#M47768</guid>
      <dc:creator>MHoeft</dc:creator>
      <dc:date>2021-02-17T06:56:05Z</dc:date>
    </item>
    <item>
      <title>Import von Bewegungsdaten (Baulohn, LuG)</title>
      <link>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/201648#M47771</link>
      <description>&lt;P&gt;Hallo,&amp;nbsp;&lt;/P&gt;&lt;P&gt;es gibt auch die Möglichkeit, die Erfassung über Unternehmen Online, Vorerfassung Online, vorzunehmen.&lt;/P&gt;&lt;P&gt;Hier können die Kalenderdaten vom Mandanten eingegeben und nach Fertigstellung der Erfassung abgerufen werden. Gleiches gilt für die variablen Daten über die Monatserfassung.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Daneben gibt es das Tool von DATEV, Stundenerfassung und Zuschlagermittlung. Der Support hierfür ist zwar von&lt;/P&gt;&lt;P&gt;DATEV aufgrund mangelnder Nachfrage abgekündigt, kann aber weiter genutzt werden. Eigentlich ein gutes Tool&lt;/P&gt;&lt;P&gt;zur Kalendererfassung auf Excel Basis, welches im DATEV Lohn und Gehalt importiert werden kann. Die Stunden können hier je Mitarbeiter erfasst werden.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Bei der reinen Excel Vorerfassungsliste kann man die Daten nicht in Kalenderformat eingeben, finde ich persönlich eher unübersichtlich.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Beide Möglichkeiten, wenn kein eigenes Zeitwirtschaftsprogramm besteht&amp;nbsp; oder angeschafft werden soll.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Viel Erfolg &lt;span class="lia-unicode-emoji" title=":leicht_lächelndes_Gesicht:"&gt;🙂&lt;/span&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Wed, 17 Feb 2021 07:40:32 GMT</pubDate>
      <guid>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/201648#M47771</guid>
      <dc:creator>HJansen</dc:creator>
      <dc:date>2021-02-17T07:40:32Z</dc:date>
    </item>
    <item>
      <title>Import von Bewegungsdaten (Baulohn, LuG)</title>
      <link>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/212302#M50039</link>
      <description>&lt;P&gt;&lt;span class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="stundennachweis Baulohn.jpg" style="width: 999px;"&gt;&lt;img src="https://www.datev-community.de/t5/image/serverpage/image-id/14889i610DA114A096E2AD/image-size/large?v=v2&amp;amp;px=999" role="button" title="stundennachweis Baulohn.jpg" alt="stundennachweis Baulohn.jpg" /&gt;&lt;/span&gt;&lt;/P&gt;&lt;P&gt;Ich habe für die Baulohn Kalendarium Excel Datei von Datev per vba eine importfähige Datei für LODAS programmiert bzw. im das Makro wird nicht in der Datei gespeichert sondern im persönlichen Makro Verzeichnis vom Bearbeiter.&lt;/P&gt;&lt;P&gt;Der Mandant muss uns nur wie üblich die Excel Datei schicken (Keine Änderung). Pro Reiter ein Arbeitnehmer.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Es gibt ein paar Einschränkungen (Feiertage, Krankheit müssen manuell eingetippt werden), aber die Bearbeitungszeit hat sich deutlich verringert.&lt;/P&gt;&lt;P&gt;Ich konnte einfach nicht mehr zu sehen wie ein Kollege, die Excel Dateien ausdruckt und abtippt.&lt;/P&gt;&lt;P&gt;(Selbststudium in der Freizeit, Schnittstellen-Handbuch angesehen etc.)&lt;/P&gt;&lt;P&gt;Falls jemand Interesse hat, kann ich den Quellcode hier posten.&lt;/P&gt;</description>
      <pubDate>Thu, 08 Apr 2021 14:00:50 GMT</pubDate>
      <guid>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/212302#M50039</guid>
      <dc:creator>w_paul</dc:creator>
      <dc:date>2021-04-08T14:00:50Z</dc:date>
    </item>
    <item>
      <title>Import von Bewegungsdaten (Baulohn, LuG)</title>
      <link>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/212818#M50081</link>
      <description>&lt;P&gt;Die Lösung sieht interessant aus. Würde ich gerne sehen.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Mit freundlichem Gruß&lt;/P&gt;</description>
      <pubDate>Sun, 11 Apr 2021 09:12:44 GMT</pubDate>
      <guid>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/212818#M50081</guid>
      <dc:creator>MHoeft</dc:creator>
      <dc:date>2021-04-11T09:12:44Z</dc:date>
    </item>
    <item>
      <title>Import von Bewegungsdaten (Baulohn, LuG)</title>
      <link>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/213394#M50149</link>
      <description>&lt;P&gt;&lt;SPAN&gt;LODAS Baulohn Kalendarium Tool&lt;/SPAN&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&lt;SPAN&gt;Ich übernehme keine Verantwortung/Haftung für irgendwelche Schäden. Das Tool ist von mir getestet und es traten bei mir vereinzelt Probleme auf. Anspruch auf Support besteht nicht. Bin aber gerne bereit zu helfen.&lt;/SPAN&gt;&lt;/P&gt;&lt;P&gt;&lt;SPAN&gt;Ich bin kein Profi. Ich habe mich in der Freizeit mit vba beschäftigt und dieses Tool entwickelt. &lt;/SPAN&gt;&lt;/P&gt;&lt;P&gt;&lt;SPAN&gt;Es gibt sicherlich eine bessere Vorgehensweise bzw. besseren Code. Es ist sicherlich auch unnötiger Code enthalten.&lt;/SPAN&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&lt;span class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="entwicklertools.jpg" style="width: 704px;"&gt;&lt;img src="https://www.datev-community.de/t5/image/serverpage/image-id/14999i2A20391540960376/image-size/large?v=v2&amp;amp;px=999" role="button" title="entwicklertools.jpg" alt="entwicklertools.jpg" /&gt;&lt;/span&gt;&lt;/P&gt;&lt;P&gt;Falls der Reiter fehlt unter Optionen - Menüband anpassen einblenden&lt;/P&gt;&lt;P&gt;Der Code wird in PERSONAL.XLSB gespeichert. Falls der Bereich nicht ersichtlich ist, kann per Makro aufzeichnen - Makro speichern in "Persönliche Makroarbeitsmappe" der Bereich geschaffen werden.&lt;/P&gt;&lt;P&gt;Neues Modul erstellen, CODE einfügen und speichern.&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&lt;span class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="Entwicklertools2.jpg" style="width: 379px;"&gt;&lt;img src="https://www.datev-community.de/t5/image/serverpage/image-id/15000i94125F6A620FCD90/image-size/large?v=v2&amp;amp;px=999" role="button" title="Entwicklertools2.jpg" alt="Entwicklertools2.jpg" /&gt;&lt;/span&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;Bei der Datei des Mandanten waren keine Pers.Nr eingetragen. Das Tool sucht aus einer ANListe Datei die Namen und die dazugehörigen Nummern.&lt;/P&gt;&lt;P&gt;Falls das nicht benötigt wird die folgenden Codes löschen&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;"przPersNrAusTabelleEintragen 'Aus ANListe Excel-Datei"&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;"przPersNrInTabelleSpeichern 'Änderungen durch Ergänzungen werden in die ANListe Excel-Datei gespeichert"&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Die Beraternummer und die Mandantennummer müssen geändert werden.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Die Excel Datei des Mandanten wird geöffnet. (Baulohn Kalendarium von Datev)&lt;/P&gt;&lt;P&gt;&lt;span class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="stundennachweis Baulohn.jpg" style="width: 200px;"&gt;&lt;img src="https://www.datev-community.de/t5/image/serverpage/image-id/15001i0F2A0F170953219B/image-size/small?v=v2&amp;amp;px=200" role="button" title="stundennachweis Baulohn.jpg" alt="stundennachweis Baulohn.jpg" /&gt;&lt;/span&gt;&lt;/P&gt;&lt;P&gt;Über Entwicklertools - Makros - kann das entsprechende Makro ausgeführt werden.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Die Importfähige Datei wird im gleichen Ordner gespeichert und kann dann in Lodas über ASCII importiert werden.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Viel Erfolg.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&lt;SPAN&gt;_______________________________________________________________________________________________________________&lt;/SPAN&gt;&lt;/P&gt;&lt;P&gt;Option Explicit&lt;/P&gt;&lt;P&gt;Sub LodasBaulohnImport()&lt;/P&gt;&lt;P&gt;'Makro Datum: 08.04.2021&lt;/P&gt;&lt;P&gt;'Fehlende Funktionen/Hinweise&lt;BR /&gt;'-&lt;BR /&gt;'- Einträge mit Schlüssel U/F/FE etc. werden absichtlich nicht übernommen - Manuelles Eintippen in Lodas notwendig!&lt;BR /&gt;'- Übernahme Bereich von Std, Schlüssel und Baustelle von B8 bis AF19 - 4xBlöcke pro Tag - Manuell eingefügte Zeilen werden nicht übernommen&lt;BR /&gt;'-&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;Dim wkbMappe As Workbook&lt;BR /&gt;Dim wksBlatt As Worksheet&lt;BR /&gt;Dim WkSEnde As Long&lt;BR /&gt;Dim intBlatt As Integer&lt;/P&gt;&lt;P&gt;Dim lngSpalte As Long&lt;BR /&gt;Dim lngSpalteMax As Long&lt;BR /&gt;Dim lngZeile As Long&lt;/P&gt;&lt;P&gt;Dim SngStd1 As Single&lt;BR /&gt;Dim strStd1 As String&lt;BR /&gt;Dim strSchluessel1 As String&lt;BR /&gt;Dim intBaustelle1 As String&lt;BR /&gt;Dim strArbName As String&lt;/P&gt;&lt;P&gt;Dim strBeraternummer As String&lt;BR /&gt;Dim strMandantennummer As String&lt;BR /&gt;Dim strErfassung As String&lt;BR /&gt;Dim wsBewegungsdaten As Worksheet&lt;BR /&gt;Dim wsStammdaten As Worksheet&lt;/P&gt;&lt;P&gt;Dim strTag As String&lt;BR /&gt;Dim strMonat As String&lt;BR /&gt;Dim strMonatHeute As String&lt;BR /&gt;Dim strMonatDifferenz As String&lt;BR /&gt;Dim strJahr As String&lt;BR /&gt;Dim Datum As String&lt;BR /&gt;Dim intWoche As Integer&lt;BR /&gt;Dim Wochentag As String&lt;BR /&gt;&lt;BR /&gt;Dim imput As Variant&lt;BR /&gt;Dim lngZeileU As Long&lt;BR /&gt;Dim Leerzeile As String&lt;BR /&gt;Dim strDatensatz As String&lt;BR /&gt;Dim intPNr As Integer&lt;BR /&gt;Dim strPreFix As String&lt;/P&gt;&lt;P&gt;Const STRTZ = ";"&lt;BR /&gt;Const STRSB = "'"&lt;BR /&gt;Const STRSATZART = "6"&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;strBeraternummer = "1" 'BERATERNUMMER ÄNDERN&lt;BR /&gt;strMandantennummer = "11111" 'MANDANTENNUMMER ÄNDERN&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;przPersNrAusTabelleEintragen 'Aus ANListe Excel-Datei&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;' On Error GoTo Fehler&lt;BR /&gt;Set wsBewegungsdaten = ActiveWorkbook.ActiveSheet&lt;BR /&gt;&lt;BR /&gt;Set wkbMappe = ActiveWorkbook&lt;BR /&gt;Set wksBlatt = wkbMappe.Worksheets(2)&lt;/P&gt;&lt;P&gt;With wkbMappe.ActiveSheet&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;strMonat = Format(.cells(3, "U").Value, "MM")&lt;BR /&gt;strJahr = Format(.cells(3, "U").Value, "YYYY")&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;If wkbMappe.Worksheets(2).cells(3, "O").Value = "" Then 'Fehlt die erste Personalnummer?&lt;BR /&gt;&lt;BR /&gt;MsgBox "Erste Pers.-Nr. fehlt"&lt;BR /&gt;Else&lt;BR /&gt;Application.DisplayAlerts = False&lt;BR /&gt;Application.ScreenUpdating = False&lt;BR /&gt;intPNr = .cells(3, "O").Value&lt;BR /&gt;&lt;BR /&gt;Open ActiveWorkbook.Path &amp;amp; "\" &amp;amp; "Lodas_Import_" &amp;amp; strBeraternummer &amp;amp; "_" &amp;amp; strMandantennummer &amp;amp; "_" &amp;amp; strMonat &amp;amp; "." &amp;amp; strJahr &amp;amp; ".txt" For Output As #1&lt;BR /&gt;&lt;BR /&gt;Print #1, "[Allgemein]" 'muss&lt;BR /&gt;Print #1, "Ziel = Lodas" 'muss&lt;BR /&gt;Print #1, "Version Excel-Baulohnexport 08.04.2021" 'kann&lt;BR /&gt;Print #1, "BeraterNr = " &amp;amp; strBeraternummer 'muss&lt;BR /&gt;Print #1, "MandantenNr = " &amp;amp; strMandantennummer 'muss&lt;BR /&gt;Print #1, "Feldtrennzeichen=" &amp;amp; STRTZ 'kann&lt;BR /&gt;Print #1, "Zahlenkomma=," 'kann&lt;BR /&gt;Print #1, "Datumsformat=TT.MM.JJJJ" 'kann&lt;BR /&gt;Print #1, "Stringbegrenzer='" 'kann&lt;BR /&gt;Print #1, "Kommentarzeichen=*" 'kann&lt;BR /&gt;Print #1, "StammdatenGueltigAb=01." &amp;amp; strMonat &amp;amp; "." &amp;amp; strJahr&lt;BR /&gt;Print #1, Leerzeile&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;' Bemerkungen von Sheet Bemerkungen&lt;BR /&gt;&lt;BR /&gt;For lngZeileU = 9 To 33&lt;BR /&gt;Print #1, ""&lt;BR /&gt;Next lngZeileU&lt;BR /&gt;&lt;BR /&gt;Print #1, Leerzeile&lt;BR /&gt;&lt;BR /&gt;Print #1, "[Satzbeschreibung]"&lt;BR /&gt;Print #1, "6;u_lod_bwd_buchung_kalendarium;pnr#bwd;abrechnung_zeitraum#bwd;kalendertag#bwd;kalenderwoche#bwd;wochentag#kal;stunden_pro_tag#bwd;as_kal#bwd;kostenstelle#bwd;la_eigene#bwd;"&lt;BR /&gt;Print #1, Leerzeile&lt;BR /&gt;&lt;BR /&gt;'Bewegungsdaten (Satzart = 22)&lt;BR /&gt;Print #1, "[Bewegungsdaten]"&lt;BR /&gt;&lt;BR /&gt;lngSpalteMax = 32&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;WkSEnde = wkbMappe.Worksheets.Count&lt;BR /&gt;'&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;For intBlatt = 2 To WkSEnde ' Alle Arbeitblätter nacheinander durchgehen&lt;BR /&gt;wkbMappe.Worksheets(intBlatt).Select&lt;BR /&gt;&lt;BR /&gt;If wkbMappe.Worksheets(intBlatt).cells(3, "B").Value &amp;lt;&amp;gt; "ARBEITNEHMER1" Then 'Arbeitsblaetter mit diesen Namen ueberspringen&lt;BR /&gt;If wkbMappe.Worksheets(intBlatt).cells(3, "B").Value &amp;lt;&amp;gt; "ARBEITNEHMER2" Then&lt;BR /&gt;&lt;BR /&gt;strArbName = wkbMappe.Worksheets(intBlatt).cells(3, 2).Value&lt;BR /&gt;&lt;BR /&gt;strMonat = Format(wkbMappe.Worksheets(intBlatt).cells(3, "U").Value, "MM")&lt;BR /&gt;strJahr = Format(wkbMappe.Worksheets(intBlatt).cells(3, "U").Value, "YYYY")&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;strMonatHeute = Format(Date, "MM")&lt;BR /&gt;strMonatDifferenz = strMonatHeute - strMonat&lt;BR /&gt;&lt;BR /&gt;'Pruefung ob laenger als 1 Monat her? Z.B. Heute April, Abrechnungsmonat: Maerz, Eintrag: Februar -&amp;gt; Arbeitsblatt wird uebersprungen&lt;BR /&gt;If strMonatDifferenz &amp;gt; 1 Then&lt;BR /&gt;' Exit For&lt;BR /&gt;&lt;BR /&gt;MsgBox "Länger als 1 Monat her." &amp;amp; Chr(10) &amp;amp; "Diese Daten sind vermutlich für eine Nachberechnung" &amp;amp; Chr(10) &amp;amp; _&lt;BR /&gt;"Das Arbeitblatt wieder übersprungen!" &amp;amp; Chr(10) &amp;amp; " PersNr. " &amp;amp; intPNr &amp;amp; " PersName: " &amp;amp; strArbName &amp;amp; " Monat: " &amp;amp; strMonat, vbCritical&lt;BR /&gt;intBlatt = intBlatt + 1&lt;BR /&gt;&lt;BR /&gt;wkbMappe.Worksheets(intBlatt).Select&lt;BR /&gt;strMonat = Format(wkbMappe.Worksheets(intBlatt).cells(3, "U").Value, "MM")&lt;BR /&gt;strJahr = Format(wkbMappe.Worksheets(intBlatt).cells(3, "U").Value, "YYYY")&lt;BR /&gt;Else&lt;BR /&gt;&lt;BR /&gt;End If&lt;BR /&gt;&lt;BR /&gt;' Suchen und Ersetzen&lt;BR /&gt;&lt;BR /&gt;On Error GoTo Fehler:&lt;BR /&gt;&lt;BR /&gt;'Bindestrich und Absatz entfernen&lt;BR /&gt;wkbMappe.Worksheets(intBlatt).cells.SpecialCells(xlCellTypeConstants).Replace _&lt;BR /&gt;what:="-" &amp;amp; Chr(10), Replacement:="", lookat:=xlPart, _&lt;BR /&gt;SearchOrder:=xlByRows, MatchCase:=False&lt;BR /&gt;&lt;BR /&gt;'Absatz entfernen (ohne Bindestrich)&lt;BR /&gt;wkbMappe.Worksheets(intBlatt).cells.SpecialCells(xlCellTypeConstants).Replace _&lt;BR /&gt;what:=Chr(10), Replacement:="", lookat:=xlPart, _&lt;BR /&gt;SearchOrder:=xlByRows, MatchCase:=False&lt;/P&gt;&lt;P&gt;' Leerstelle entfernen&lt;BR /&gt;' wkbMappe.Worksheets(intBlatt).cells.SpecialCells(xlCellTypeConstants).Replace _&lt;BR /&gt;' what:=Chr(32), Replacement:="", lookat:=xlPart, _&lt;BR /&gt;' SearchOrder:=xlByRows, MatchCase:=False&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;Range("B6").Select&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;If wkbMappe.Worksheets(intBlatt).cells(3, "O").Value &amp;lt;&amp;gt; "" Then 'Pruefung Pers.Nr eingegeben?&lt;BR /&gt;intPNr = wkbMappe.Worksheets(intBlatt).cells(3, "O").Value&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;Else&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;intPNr = InputBox("Wie lautet die PersNr. von " &amp;amp; strArbName &amp;amp; "?")&lt;BR /&gt;wkbMappe.Worksheets(intBlatt).cells(3, "O").Value = intPNr&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;End If&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;For lngSpalte = 2 To lngSpalteMax&lt;BR /&gt;&lt;BR /&gt;strTag = wkbMappe.Worksheets(intBlatt).cells(6, lngSpalte)&lt;BR /&gt;strTag = Format(strTag, "00")&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;For lngZeile = 8 To 19&lt;BR /&gt;&lt;BR /&gt;'STUNDEN&lt;BR /&gt;If wkbMappe.Worksheets(intBlatt).cells(lngZeile, lngSpalte).Value &amp;lt;&amp;gt; "" Then&lt;BR /&gt;&lt;BR /&gt;SngStd1 = wkbMappe.Worksheets(intBlatt).cells(lngZeile, lngSpalte).Value&lt;BR /&gt;strStd1 = wkbMappe.Worksheets(intBlatt).cells(lngZeile, lngSpalte).Value&lt;BR /&gt;If Len(strStd1) &amp;gt; 5 Then&lt;BR /&gt;&lt;BR /&gt;MsgBox "Fehler in Stundenanzahl! Mehr als 5 Zeichen." &amp;amp; Chr(10) &amp;amp; _&lt;BR /&gt;"Das Programm geht trotzdem weiter und speichert die Zeichen in der Textdatei." _&lt;BR /&gt;&amp;amp; Chr(10) &amp;amp; " PersNr. " &amp;amp; intPNr &amp;amp; " PersName: " &amp;amp; strArbName &amp;amp; " Tag: " &amp;amp; strTag &amp;amp; _&lt;BR /&gt;Chr(10) &amp;amp; " Inhalt: " &amp;amp; SngStd1, vbCritical&lt;BR /&gt;' Exit For&lt;BR /&gt;Else&lt;BR /&gt;&lt;BR /&gt;End If&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;Else&lt;BR /&gt;Exit For&lt;BR /&gt;End If&lt;BR /&gt;&lt;BR /&gt;lngZeile = lngZeile + 1&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;'SCHLUESSEL&lt;BR /&gt;If wkbMappe.Worksheets(intBlatt).cells(lngZeile, lngSpalte).Value &amp;lt;&amp;gt; "" Then&lt;BR /&gt;&lt;BR /&gt;strSchluessel1 = wkbMappe.Worksheets(intBlatt).cells(lngZeile, lngSpalte).Value&lt;BR /&gt;&lt;BR /&gt;If Len(strSchluessel1) &amp;gt; 2 Then&lt;BR /&gt;MsgBox "Schlüssel zu lang! Mehr als 2 Zeichen." &amp;amp; Chr(10) &amp;amp; _&lt;BR /&gt;Chr(10) &amp;amp; "Das Programm geht trotzdem weiter und speichert die Zeichen in der Textdatei." &amp;amp; _&lt;BR /&gt;Chr(10) &amp;amp; " PersNr. " &amp;amp; intPNr &amp;amp; " PersName: " &amp;amp; strArbName &amp;amp; " Tag: " &amp;amp; strTag &amp;amp; Chr(10) &amp;amp; " Inhalt: " &amp;amp; _&lt;BR /&gt;strSchluessel1, vbCritical&lt;BR /&gt;' Exit For&lt;BR /&gt;Else&lt;BR /&gt;&lt;BR /&gt;End If&lt;BR /&gt;&lt;BR /&gt;Else&lt;BR /&gt;Exit For&lt;BR /&gt;End If&lt;BR /&gt;&lt;BR /&gt;lngZeile = lngZeile + 1&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;'BAUSTELLE&lt;BR /&gt;If wkbMappe.Worksheets(intBlatt).cells(lngZeile, lngSpalte).Value &amp;lt;&amp;gt; "" Then&lt;BR /&gt;intBaustelle1 = wkbMappe.Worksheets(intBlatt).cells(lngZeile, lngSpalte).Value&lt;BR /&gt;Else&lt;BR /&gt;Exit For&lt;BR /&gt;End If&lt;/P&gt;&lt;P&gt;'Wenn keine Stunden eingegeben wird nicht hinzugefügt&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;Datum = strTag &amp;amp; "." &amp;amp; strMonat&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;intWoche = Format(Datum, "ww", vbMonday, vbFirstFourDays)&lt;BR /&gt;If intWoche &amp;gt; 52 Then&lt;BR /&gt;If Format(Datum + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then intWoche = 1&lt;BR /&gt;End If&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;Wochentag = Format(Datum, "DDD")&lt;BR /&gt;&lt;BR /&gt;'20;u_lod_bwd_buchung_kalendarium;pnr#bwd;abrechnung_zeitraum#bwd;kalendertag#bwd;kalenderwoche#&lt;BR /&gt;'bwd;wochentag#kal;stunden_pro_tag#bwd;as_kal#bwd;kostenstelle#bwd;la_eigene#bwd;"&lt;BR /&gt;&lt;BR /&gt;With wsBewegungsdaten&lt;BR /&gt;strDatensatz = STRSATZART &amp;amp; STRTZ &amp;amp; intPNr &amp;amp; STRTZ &amp;amp; "01." &amp;amp; strMonat &amp;amp; "." &amp;amp; strJahr _&lt;BR /&gt;&amp;amp; STRTZ &amp;amp; strTag &amp;amp; STRTZ &amp;amp; intWoche &amp;amp; STRTZ &amp;amp; Wochentag _&lt;BR /&gt;&amp;amp; STRTZ &amp;amp; SngStd1 &amp;amp; STRTZ &amp;amp; strSchluessel1 &amp;amp; STRTZ &amp;amp; intBaustelle1 &amp;amp; STRTZ &amp;amp; "201" &amp;amp; STRTZ&lt;BR /&gt;&lt;BR /&gt;End With&lt;BR /&gt;&lt;BR /&gt;Print #1, strDatensatz&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;Next lngZeile&lt;BR /&gt;&lt;BR /&gt;Next lngSpalte&lt;BR /&gt;&lt;BR /&gt;End If&lt;BR /&gt;End If&lt;BR /&gt;&lt;BR /&gt;' Columns("B:AF").Select&lt;BR /&gt;' Selection.ColumnWidth = 4.5 'spaltebreite erhöhen, damit die Auftragsnummer angezeigt wird&lt;/P&gt;&lt;P&gt;Next intBlatt&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;przPersNrInTabelleSpeichern 'Änderungen durch Ergänzungen werden in die ANListe Excel-Datei gespeichert&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;MsgBox "F E R T I G." &amp;amp; Chr(10) &amp;amp; "Die TXT-Datei" &amp;amp; Chr(10) &amp;amp; _&lt;BR /&gt;"Lodas_Import_" &amp;amp; strBeraternummer &amp;amp; "_" &amp;amp; strMandantennummer &amp;amp; "_" &amp;amp; strMonat &amp;amp; ".txt" &amp;amp; Chr(10) &amp;amp; _&lt;BR /&gt;"wurde im gleichen Speicherort abgelegt.", vbInformation&lt;BR /&gt;Close #1&lt;/P&gt;&lt;P&gt;Application.DisplayAlerts = True&lt;BR /&gt;Application.ScreenUpdating = True&lt;BR /&gt;&lt;BR /&gt;End If&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;End With&lt;/P&gt;&lt;P&gt;Fehler:&lt;BR /&gt;'MsgBox "FEHLER", vbCritical&lt;BR /&gt;Close #1&lt;BR /&gt;&lt;BR /&gt;Application.DisplayAlerts = True&lt;BR /&gt;Application.ScreenUpdating = True&lt;/P&gt;&lt;P&gt;End Sub&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;Public Function przPersNrAusTabelleEintragen()&lt;/P&gt;&lt;P&gt;Dim wkbQuelle As Workbook&lt;BR /&gt;Dim wkbZiel As Workbook&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;Dim lngZeile As Long&lt;BR /&gt;Dim lngZeileMax As Long&lt;BR /&gt;Dim strPFad As String&lt;/P&gt;&lt;P&gt;Dim WkSEnde As Long&lt;BR /&gt;Dim intBlatt As Integer&lt;/P&gt;&lt;P&gt;Dim strPNr As String&lt;BR /&gt;Dim strName As String&lt;BR /&gt;Dim rngTreffer As Range&lt;BR /&gt;Dim rngBereich As Range&lt;BR /&gt;Dim strAdresse As String&lt;/P&gt;&lt;P&gt;'Die Schritte sollen live nicht ansehbar sein&lt;BR /&gt;Application.ScreenUpdating = False&lt;BR /&gt;Application.DisplayAlerts = False&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;Set wkbZiel = ActiveWorkbook&lt;BR /&gt;strPFad = ActiveWorkbook.Path&lt;/P&gt;&lt;P&gt;Workbooks.Open Filename:= _&lt;BR /&gt;strPFad &amp;amp; "\ANliste.xlsx"&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;Set wkbQuelle = ActiveWorkbook&lt;BR /&gt;wkbZiel.Activate&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;WkSEnde = wkbZiel.Worksheets.Count&lt;BR /&gt;lngZeileMax = wkbQuelle.Worksheets(1).UsedRange.Rows.Count&lt;/P&gt;&lt;P&gt;Set rngBereich = wkbQuelle.Worksheets(1).Range("A2:A" &amp;amp; lngZeileMax)&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;For intBlatt = 2 To WkSEnde ' Alle Arbeitblätter nacheinander durchgehen&lt;BR /&gt;&lt;BR /&gt;strName = wkbZiel.Worksheets(intBlatt).cells(3, 2).Value&lt;BR /&gt;&lt;BR /&gt;Set rngTreffer = rngBereich.Find _&lt;BR /&gt;(what:=strName, lookat:=xlWhole)&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;If Not rngTreffer Is Nothing Then&lt;BR /&gt;strAdresse = rngTreffer.Row&lt;BR /&gt;wkbZiel.Worksheets(intBlatt).cells(3, "O").Value = wkbQuelle.Worksheets(1).cells(strAdresse, 2).Value&lt;BR /&gt;End If&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;Next intBlatt&lt;BR /&gt;&lt;BR /&gt;Application.ScreenUpdating = True&lt;BR /&gt;Application.DisplayAlerts = True&lt;BR /&gt;&lt;BR /&gt;wkbQuelle.Close&lt;BR /&gt;&lt;BR /&gt;End Function&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;'Sub PersNrSpeichern()&lt;BR /&gt;' przPersNrInTabelleSpeichern&lt;BR /&gt;'End Sub&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Public Function przPersNrInTabelleSpeichern()&lt;/P&gt;&lt;P&gt;Dim wkbQuelle As Workbook&lt;BR /&gt;Dim wkbZiel As Workbook&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;Dim lngZeile As Long&lt;BR /&gt;Dim lngZeileMax As Long&lt;BR /&gt;Dim strPFad As String&lt;/P&gt;&lt;P&gt;Dim WkSEnde As Long&lt;BR /&gt;Dim intBlatt As Integer&lt;/P&gt;&lt;P&gt;Dim strPNr As String&lt;BR /&gt;Dim strName As String&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;'Die Schritte sollen live nicht ansehbar sein&lt;BR /&gt;Application.ScreenUpdating = False&lt;BR /&gt;Application.DisplayAlerts = False&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;Set wkbQuelle = ActiveWorkbook&lt;BR /&gt;strPFad = ActiveWorkbook.Path&lt;/P&gt;&lt;P&gt;Workbooks.Open Filename:= _&lt;BR /&gt;strPFad &amp;amp; "\ANliste.xlsx"&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;Set wkbZiel = ActiveWorkbook&lt;BR /&gt;wkbQuelle.Activate&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;WkSEnde = wkbQuelle.Worksheets.Count&lt;BR /&gt;'lngZeileMax = wkbZiel.Worksheets(1).UsedRange.Rows.Count&lt;/P&gt;&lt;P&gt;lngZeile = 2&lt;BR /&gt;For intBlatt = 2 To WkSEnde ' Alle Arbeitblätter nacheinander durchgehen&lt;/P&gt;&lt;P&gt;' If wkbZiel.Worksheets(intBlatt).cells(3, "O").Value = "" Then&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;strName = wkbQuelle.Worksheets(intBlatt).cells(3, 2).Value&lt;BR /&gt;strPNr = wkbQuelle.Worksheets(intBlatt).cells(3, "O").Value&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;wkbZiel.Worksheets(1).cells(lngZeile, 1).Value = strName&lt;BR /&gt;wkbZiel.Worksheets(1).cells(lngZeile, 2).Value = strPNr&lt;BR /&gt;&lt;BR /&gt;'&lt;BR /&gt;lngZeile = lngZeile + 1&lt;BR /&gt;&lt;BR /&gt;' End If&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;Next intBlatt&lt;BR /&gt;&lt;BR /&gt;Application.ScreenUpdating = True&lt;BR /&gt;Application.DisplayAlerts = True&lt;BR /&gt;&lt;BR /&gt;wkbZiel.Close&lt;BR /&gt;&lt;BR /&gt;End Function&lt;/P&gt;</description>
      <pubDate>Wed, 14 Apr 2021 07:52:16 GMT</pubDate>
      <guid>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/213394#M50149</guid>
      <dc:creator>w_paul</dc:creator>
      <dc:date>2021-04-14T07:52:16Z</dc:date>
    </item>
    <item>
      <title>Import von Bewegungsdaten (Baulohn, LuG)</title>
      <link>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/323280#M76542</link>
      <description>&lt;P&gt;Hallo,&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;wollte nachfragen, wo ich denn diese Excel Datei finde, wenn die von Datev ist.&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Wir haben einen neuen Baulohnmandant der auch das erste mal Baulohn hat, da ist diese Erfassungsliste bestimmt sehr hilfreich.&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Vielen Dank &lt;span class="lia-unicode-emoji" title=":leicht_lächelndes_Gesicht:"&gt;🙂&lt;/span&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Liebe Grüße&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Tue, 22 Nov 2022 11:42:29 GMT</pubDate>
      <guid>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/323280#M76542</guid>
      <dc:creator>dunja</dc:creator>
      <dc:date>2022-11-22T11:42:29Z</dc:date>
    </item>
    <item>
      <title>Import von Bewegungsdaten (Baulohn, LuG)</title>
      <link>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/323366#M76592</link>
      <description>&lt;P&gt;Moin,&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;ich kann Ihnen da gerne professionell helfen. Ich habe dafür ein eigenes Tool entwickelt. Kontaktieren Sie mich gerne.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;VG Michael Heering&lt;/P&gt;</description>
      <pubDate>Tue, 22 Nov 2022 14:28:54 GMT</pubDate>
      <guid>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/323366#M76592</guid>
      <dc:creator>heerosoft</dc:creator>
      <dc:date>2022-11-22T14:28:54Z</dc:date>
    </item>
    <item>
      <title>Import von Bewegungsdaten (Baulohn, LuG)</title>
      <link>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/323373#M76596</link>
      <description>&lt;P&gt;Hallo,&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;die DATEV Stundenermittlung und Zuschlagserfassung wurde abgekündigt. (schon zum 31.12.2021)&lt;/P&gt;&lt;P&gt;Da die Excel Vorlagen mit Makros von unseren Mandanten schon aus datenschutzrechtlichen Gründen oft nicht angewandt werden können, bin ich inzwischen auf den ISWL Excel Lohnkonverter umgestiegen. Auch hatte ich immer wieder das Problem, das Makros zerschossen waren.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Mit dem ISWL Excel Lohnkonverter können eine Vielzahl von sowohl Kalender- als auch Bewegungsdaten mit Konfigurationen hinterlegt werden. Die Excel-Datei wird dann eingelesen und die erzeugte Textdatei wird über die DATEV Schnittstelle importiert. Das funktioniert einwandfrei und erleichtert nicht nur die manuelle Tipperei sondern auch mögliche Fehler bei der man. Eingabe.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Es gibt den Lohnkonverter als classic oder compact.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Alternativ gibt es immer noch die Vorerfassung Online, sowohl für Kalender- als auch Monatserfassung.&lt;/P&gt;&lt;P&gt;Die Kalendererfassung hierüber ist aber nicht sehr bedienerfreundlich.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Beste Grüße,&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Tue, 22 Nov 2022 14:44:31 GMT</pubDate>
      <guid>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/323373#M76596</guid>
      <dc:creator>HJansen</dc:creator>
      <dc:date>2022-11-22T14:44:31Z</dc:date>
    </item>
    <item>
      <title>Import von Bewegungsdaten (Baulohn, LuG)</title>
      <link>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/350296#M84483</link>
      <description>&lt;P&gt;Guten Morgen,&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;seit Jahren erstelle ich unsere Abrechnung - Lodas-Baulohn- durch das Einlesen von einer - TXT-Datei durch einer ASCI-Import. Die Bewegungsdaten wurden ins Standard und ins Kalendarium eingespielt.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;[Satzbeschreibung]&lt;/P&gt;&lt;P&gt;20;u_lod_bwd_buchung_&lt;STRONG&gt;kalendarium&lt;/STRONG&gt;;pnr#bwd;abrechnung_zeitraum#bwd;kalendertag#bwd;kalenderwoche#bwd;wochentag#kal;stunden_pro_tag#bwd;as_kal#bwd;la_eigene#bwd;kostenstelle#bwd;&lt;/P&gt;&lt;P&gt;21;u_lod_bwd_buchung_&lt;STRONG&gt;standard&lt;/STRONG&gt;;pnr#bwd;abrechnung_zeitraum#bwd;bs_wert_butab#bwd;bs_nr#bwd;la_eigene#bwd;kostenstelle#bwd;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Nun muss ich größere Datenmengen in den den Bereich "Nachberechnung-Standard einlesen, kann mir jemand die Satzbeschreibung zukommen lassen?&lt;/P&gt;&lt;P&gt;Besten dank im Voraus&lt;/P&gt;</description>
      <pubDate>Thu, 27 Apr 2023 09:33:26 GMT</pubDate>
      <guid>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/350296#M84483</guid>
      <dc:creator>Marithe_van_Dyck_2023</dc:creator>
      <dc:date>2023-04-27T09:33:26Z</dc:date>
    </item>
    <item>
      <title>Import von Bewegungsdaten (Baulohn, LuG)</title>
      <link>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/350468#M84538</link>
      <description>&lt;BLOCKQUOTE&gt;&lt;HR /&gt;&lt;P&gt;&lt;a href="https://www.datev-community.de/t5/user/viewprofilepage/user-id/37303"&gt;@Marithe_van_Dyck_2023&lt;/a&gt;&amp;nbsp;schrieb:&lt;/P&gt;&lt;P&gt;&lt;SPAN&gt;kann mir jemand die Satzbeschreibung zukommen lassen?&lt;/SPAN&gt;&lt;/P&gt;&lt;HR /&gt;&lt;/BLOCKQUOTE&gt;&lt;P&gt;Punkt 6 hilft nicht?&amp;nbsp;&lt;A href="https://www.datev.de/hilfe/1080789" target="_blank"&gt;Schnittstellen in den DATEV-Programmen&lt;/A&gt;&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Thu, 27 Apr 2023 17:36:18 GMT</pubDate>
      <guid>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/350468#M84538</guid>
      <dc:creator>metalposaunist</dc:creator>
      <dc:date>2023-04-27T17:36:18Z</dc:date>
    </item>
    <item>
      <title>Import von Bewegungsdaten (Baulohn, LuG)</title>
      <link>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/357110#M86377</link>
      <description>&lt;P&gt;[Allgemein]&lt;BR /&gt;Ziel=Lodas&lt;BR /&gt;BeraterNr=&lt;BR /&gt;MandantenNr=&lt;BR /&gt;Stringbegrenzer="&lt;BR /&gt;Feldtrennzeichen=;&lt;BR /&gt;Zahlenkomma=,&lt;BR /&gt;Datumsformat=TT.MM.JJJJ&lt;BR /&gt;Kommentarzeichen=*&lt;BR /&gt;* Bitte ergänzen Sie noch Berater- und Mandantennummer im Bereich [Allgemein]&lt;BR /&gt;[Satzbeschreibung]&lt;BR /&gt;30;u_lod_bwd_buchung_nachber;pnr#bwd;abrechnung_zeitraum#bwd;nb_datum_mm#bwd;l&lt;BR /&gt;a_eigene#bwd;bs_nr#bwd;bs_wert_butab#bwd;bemerkung#bwd;&lt;BR /&gt;* Erläuterung zu Satzbeschreibung 30 - NACHBERECHNUNG IM LAUFENDEN BEARBEITUNG&lt;BR /&gt;SMONAT&lt;BR /&gt;* 1. Spalte = Satzbeschreibungsnummer (frei wählbar zwischen 1 und 999)&lt;BR /&gt;* 2. Spalte = Personalnummer aus LODAS (numerisch, max. 5-stellig)&lt;BR /&gt;* 3. Spalte = Abrechnungszeitraum: Hierbei bitte immer den 1. des Monats angeb&lt;BR /&gt;en, Beispiel: 01.05.2020.&lt;BR /&gt;* 4. Spalte = Nachberechnungszeitraum: Hierbei bitte immer den 1. des Monats a&lt;BR /&gt;ngeben, Beispiel: 01.05.2020&lt;BR /&gt;* 5. Spalte = Eigene Lohnartennummer(numerisch, max. 4-stellig)&lt;BR /&gt;* 6. Spalte = Bearbeitungsschlüssel (= Bezeichner für den Wert: 1 = Stunden, 2&lt;BR /&gt;= Betrag, 10 = Tage)&lt;BR /&gt;* 7. Spalte = Wert&lt;BR /&gt;* 8. Spalte = Bemerkung: Hier empfehlen wir Ihnen das Wort IMPORT zu hinterleg&lt;BR /&gt;en. Somit sehen Sie im Programm sofort, welche Daten importiert bzw. manuell e&lt;BR /&gt;rfasst wurden.&lt;BR /&gt;[Bewegungsdaten]&lt;BR /&gt;*Beispieldatensatz: Nachberechnung für 04/2020 im Abrechnungsmonat 05/2020&lt;BR /&gt;*30;12345;01.05.2020;01.04.2020;100;2;450,00;"Import";&lt;/P&gt;</description>
      <pubDate>Mon, 12 Jun 2023 10:45:27 GMT</pubDate>
      <guid>https://www.datev-community.de/t5/Personalwirtschaft/Import-von-Bewegungsdaten-Baulohn-LuG/m-p/357110#M86377</guid>
      <dc:creator>Sonne_66-</dc:creator>
      <dc:date>2023-06-12T10:45:27Z</dc:date>
    </item>
  </channel>
</rss>

