irgendwie stehe ich auf dem Schlauch.
Hoffe aus diesem Forum ein wenig Hilfe zu erhalten, damit ich mir das Arbeitsleben ein wenig einfacher machen kann.
Ich möchte gern aus der Userform1 ein Commandbutton1 mit folgender Funktion starten:
1. Öffne eine neue Arbeitsmappe mit der Benennung "Materialliste + Datum + Uhrzeit.xlsx".
2. Die neu erstellte Arbeitsmappe soll 2 Arbeitsblätter enthalten (Materialliste Nr.1 + Materialliste Nr.2)
2. Die neue erstellte Arbeitsmappe "Materialliste + Datum + Uhrzeit.xlsx" auf einem vorgegebenem Pfad speichern (Der Pfad steht in: Userform1/MultiPage2/Listbox1)
3. Nun soll in dem Arbeitsblatt "Materialliste Nr.1" eine Textdatei vom Laufwerk importiert werden (Der Datenpfad soll frei Auswählbar sein)
4. Setzte einen Schreibschutz die beiden Arbeitsblätter "Materialliste Nr.1" + "Materialliste Nr.2".
4. Nach dem Import einer Textdatei in dem Arbeitsblatt "Materialliste Nr.1" soll in Userform1 ein Bild (Image1)
a. Wenn im Arbeitsblatt "Materialliste Nr.1" Daten enthalten, dann das Bild (Image1) auf sichtbar ändern
b. Wenn im Arbeitsblatt "Materialliste Nr.1" KEINE Daten enthalten, dann das Bild (Image1) auf unsichtbar lassen
Wäre schön wenn ich von euch Profis eine kleine Unterstützung bekommen würde :-)
Claudia
In meinem Makro fehlt einiges und komme leider nicht weiter :-(
Private Sub CommandButton1_Click()
' Neue Arbeitsmappe mit Dateinamen erzeugen
Dim NewWorkbook As Workbook
Dim FileName As String
Dim FilePath As String
' Erzeuge den Dateinamen
FileName = "Datenvergleich_" & Format(Now, "YYYYMMDD_HHMMSS") & ".xlsx"
' Setze den Pfad
FilePath = "C:\Users\Claudia\OneDrive\Dokumente\" & FileName
' Neue Arbeitsmappe erstellen
Set NewWorkbook = Workbooks.Add
' Arbeitsmappe speichern
NewWorkbook.SaveAs FilePath
' Arbeitsmappe klein machen
Application.WindowState = xlMinimized
' Dialog zum Auswählen der Textdatei anzeigen
TextFile = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
' setzte Blattschutz
' ThisWorkbook.Protect Password:="Passwort"
'Überprüfen, ob Tabelle1 Daten enthält, wenn ja dann Image1 auf "Sichtbar" setzen
If Sheets("Tabelle1").UsedRange.Rows.Count > 1 Then
UserForm1.Image1.Visible = True
End If
End Sub