Makro Zeilen ausblenden u. speich unter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub ZeilenAufNullUndSpeichern() Dim i As Integer, X As Worksheet, Y As Worksheet Set X = Tabelle3 Set Y = Tabelle4 For i = 25 To 39 If X.Cells(i, 1) = "" Then X.Rows(i).Hidden = True Next i For i = 15 To 29 If Y.Cells(i, 2) = "" Then Y.Rows(i).Hidden = True Next i SpeichernUnter End Sub

Sub ZeilenZurueckSetzen() Dim i As Integer, X As Worksheet, Y As Worksheet Set X = Tabelle3 Set Y = Tabelle4 For i = 25 To 39 If X.Cells(i, 1) = "" Then X.Rows(i).Hidden = False Next i For i = 15 To 29 If Y.Cells(i, 2) = "" Then Y.Rows(i).Hidden = False Next i End Sub

Sub SpeichernUnter() Dim Dateiname As String, Speichername As Variant, Stammverzeichnis As String, X As Worksheet, Y As Worksheet, KoTr As Range, KoTrNr As Long Set X = Tabelle1 Set Y = Tabelle5 Set KoTr = Y.Columns(1).Find(X.Cells(2, 14), lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True) Stammverzeichnis = "C:\Users\pes\Documents\01 - LAP - Nachweise für Therapeuten\" KoTrNr = KoTr.Row Dateiname = Stammverzeichnis & X.Cells(1, 3) & "-" & Y.Cells(KoTrNr, 2) & "-out_1614.xls" Speichername = Application.GetSaveAsFilename(Dateiname, "Micrsoft Excel-Dateien (*.xls),*.xls") If Speichername False Then ThisWorkbook.SaveAs Speichername ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dateiname & ".pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False Else MsgBox "Abbruch durch Anwender" End If End Sub

Hallo Petra,
sorry, dass ich mich erst jetzt melde, da ich leider in Gips bin und einen Helfer benötige, um an den PC zu kommen.
Alles in ein Modul ist richtig. Starten musss du die Sub: ZeilenAufNullUndSpeichern.
Diese setzt alle leeren Zeilen in den Tabellenblättern "Nachweis allg." und "Arbeitsagentur" auf hidden (unsichtbar). Danach öffnet sich das Fenster Speichern unter.
Ist der Pfad, welcher in der Prozedur steht auf dem PC vorhanden, wird dieser geöffnet und man kann dann diese Datei unter den gewünschten Namenskonventionen, welche ebenfalls in der Prozedur angepasst werden kann, als .xls speichern und als .pff exportieren. Das habe ich so gemacht wie es von Dir gewünscht war.
Die Prozedur "ZeilenZurueckSetzen" hat nur den Sinn das Verstecken der leeren Zeilen wieder rückgängig zu machen.
Ich bin davon ausgegangen, dass deine Beispieldatei, welche du hochgeladen hast diese Funktionen so abarbeiten soll. Eine neue Vorlage kann diese Prozedur nicht erzeugen. Da braucht es andere Wege. Man kann Tabellenblätter als Vorlage anlegen und diese xlSheetVerryHidden verstecken und per VBA dann die Arbeitsblätter entsprechend in den Anfangszustand zurücksetzen.
Ich habe leider nur Office 2019. Da läuft der XVerweis nicht. Anbei mal deine Beispieldatei mit den Prozeduren und die Tabelle6 steht auf VerryHidden.
https://www.herber.de/bbs/user/148188.xlsm
Gruß Uwe

Hallo Uwe,
hier meine Antworten:
1. Ist der Name der Vorlagedatei out_****.xls so richtig (4 Sterne stehen für die 4 Ziffern)
Out_**** ist nicht der Name der Vorlagedatei.
Die Vorlage wird sich, wenn alles funktioniert, 1-TE-Nachweis-und der Name unserer Institution nennen. Die Endung wird da wohl xlsm sein.
Erklärung:
Ich starte die im Programm die Nachweiserstellung. Daraufhin öffnet sich eine Maske in welche Vorlage Datei die Daten übergeben werden sollen. Hier wähle ich dann meine Vorlage aus. Die Ausgabe ist dann die, die ich Dir geschickt habe. Das Programm gibt also nicht den Namen meiner Vorlage aus, sondern erstellt out_****.xls (Dateiname ist in meiner 1 Beispieldatei in Rohdaten als Bild eingefügt und mit rotem Kreis markiert)
Wenn ich nun meine xlsm Vorlage auswähle und auf speichern unter klicke wird die Endung xlsm als Endung gleich vorgegeben und das out_****.xls ist weg. Deshalb müsste, wenn ich auf speichern unter klicke, die Endung xls gleich vorgegeben sein damit out_****.xls erhalten bleibt. Ich habe dies getestet mit meinem Makro um Zeilen auszublenden.
Auch wenn die Vorlage xlsm ist, wird die Datei out_****.xls erstellt
2. Liegt diese Datei in einem festgelegten Verzeichnis.
Sollte der Pfad variabel sein bräuchte ich den festen Teil des Pfades.
Entfällt, da wie unter 1. Beschrieben die Maske aufgeht und ich die Vorlage anwählen kann bzw. wenn sie einmal "benutzt" wurde kommt sie immer und muss nicht mehr angewählt werden.
3.Soll das Ausgabeformat so aussehen:
Vorname Nachname-20100-out_1614.xls
Vorname Nachname-20100-out_1614.xls.pdf
20100 = Kostenträger 1
Ja 😊
4. Den festen Teil des Ausgabepfad würde ich auch in die Prozeduren einbauen.
Ich würde die Pfade, Namen und Werte Zellen der Tabelle zuordnen
Der Ausgabepfad ist C:\Users\pes\Documents\01 - LAP - Nachweise für Therapeuten
Und wie in meiner zweiten Datei beschrieben die entsprechenden Unterverzeichnisse der Therapeuten und deren Unterverzeichnisse die Monate.
Wir haben erst seit Juni das neue Programm im Einsatz, deswegen auch nur Juni bis Dezember. Nächste Jahr soll dann natürlich von Januar bis Dezember sein.
Das XVERWEIS Problem ist nicht mehr vorhanden - würde im alten Dateiformat wahrscheinlich eh nicht funktionieren.
Welche Excelversion verwendet ihr auf Arbeit.
Im ATZ benutzen wir Office 2019 auf dem Server.
Ich kann auch außerhalb meiner Arbeitszeit per VPN von Zuhause aus auf den Server zugreifen (arbeite auch in meiner Freizeit und wenn ich nachts nicht schlafen kann 😉)
Hast du zum Testen Excel zu Hause - wenn ja welche Version.
Hier benutze ich Office 365 pro
Danke und sonnige Grüße
Petra

Beliebteste Forumthreads (12 Monate)

Makro Zeilen ausblenden u. speich unter

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro Zeilen ausblenden u. speich unter

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread