Makro Zeilen ausblenden u. speich unter

Pet · 2021-09-19T15:42:18+00:00

Liebe Excel-Helfer, ich benötige Eure Hilfe. In meiner Beispiel Datei ist alles genau beschrieben und möchte an dieser Stelle mit meiner Beschreibung kurz fassen und hoffe Euer Interesse für mein Problem geweckt zu haben. https://www.herber.de/bbs/user/148149.xlsm Grob ausgedrückt möchte Ich in einer vorgegebenen Datei in 2 Tabellenblättern per Makro bestimmte Zeilen ausblenden. Danach die Datei mit Speichern unter und mit einem schon vorgegebenen Dateinamen zusätzlich noch der Name und eine Zahl aus dem Wert zweier Zellen hinzugefügt werden und in bestimmten Verzeichnissen (dieses müsste anhand von Werten aus Zellen "gesucht" werden) gespeichert werden. Einmal als .xls Datei und nochmals als PDF Datei. Ich bedanke mich vorab für Eure Hilfe und sende sonnige Grüße aus dem Saarland. LG, Pet

Hallo Pet,
ich hoffe es hilft die weiter.
Option Explicit


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

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

Makro Zeilen ausblenden u. speich unter

Forumthread: Makro Zeilen ausblenden u. speich unter

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Makro Zeilen ausblenden u. speich unter

Forumthread: Makro Zeilen ausblenden u. speich unter

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread