Hi
Ok danke dir !
Noch eine Frage zu den verschiedenen Lieferanten, ich habe die gängigen per Dropdown angelegt allerdings haben wir auch Lieferanten die man ev. mal per Hand einschreiben muss.
Das letztere geht aber nicht wenn eine Dropdown Liste in der Zelle ist. Gibt es da eine Lösung für?
Danke
Perfekt ...
Jetzt hab ich fast alles...
Ich hätte gerne die Warnmeldung falls ein Feld leer ist.
Es funktioniert soweit aber wenn ich auf speichern klicke kommt zwar die Warnmeldung aber es speichert trotzdem.
Code:
Private Sub CommandButton1_Click()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
sh.Delete
Next
Const Pfad As String = "C:\temp\Test\"
Dim Dateiname As String
ort = Range("C4")
If Len(ort) = 0 Then
MsgBox ("Ung?ltiger Dateiname: Die angegebene Zelle darf nicht leer sein!")
Application.DisplayAlerts = False ' Warnmeldung einschalten
' Zeichnungsnummer_Index+IndexNr_Bestellnummer_Lieferant_WEDatum
' Zeichnungsnummer_Index (H4)
' IndexNr (M4)
' Bestellnummer (C8)
' Lieferant (C6)
' WEDatum (M6)
Dateiname = Range("H4") & "_" & "Index" & "_" & Range("M4") & "_" & Range("C4") & "_" & Range("C8") & "_" & Range("C6") & "_" & Range("M6") & ".xlsx"
Debug.Print Pfad & Dateiname
ActiveWorkbook.SaveAs Filename:=Pfad & Dateiname, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True ' Warnmeldung einschalten
End If
End Sub
Hallöchen,
wenn ich bei leeren Feldern eine Meldung möchte würde ich auch prüfen, ob ein Feld leer ist.
If ... = "" OR ... = "" Or ... = "" Then Msgbox "Da ist was leer - Ende ohne Speichern!": Exit Sub
(13.06.2020, 19:10)schauan schrieb: [ -> ]Hallöchen,
wenn ich bei leeren Feldern eine Meldung möchte würde ich auch prüfen, ob ein Feld leer ist.
If ... = "" OR ... = "" Or ... = "" Then Msgbox "Da ist was leer - Ende ohne Speichern!": Exit Sub
Hi
Also geht es leider noch nicht ---die Zelle ist ausgefüllt und trotzdem kommt dann die Meldung das sie leer ist---
Code:
Private Sub CommandButton1_Click()
Const Pfad As String = "C:\temp\Test\"
Dim Dateiname As String
If C4 = "" Then MsgBox "Da ist was leer - Ende ohne Speichern!": Exit Sub
Application.DisplayAlerts = False ' Warnmeldung ausschalten
' Zeichnungsnummer_Index+IndexNr_Bestellnummer_Lieferant_WEDatum
' Zeichnungsnummer_Index (H4)
' IndexNr (M4)
' Bezeichnung (C4)
' Bestellnummer (C8)
' Lieferant (C6)
' WEDatum (M6)
Dateiname = Range("H4") & "_" & "Index" & "_" & Range("M4") & "_" & Range("C4") & "_" & Range("C8") & "_" & Range("c6") & "_" & Range("M6") & ".xlsx"
Debug.Print Pfad & Dateiname
ActiveWorkbook.SaveAs Filename:=Pfad & Dateiname, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True ' Warnmeldung einschalten
End Sub
Hallöchen,
So wie Du C4 schreibst ist es Sprengstoff - Nein, eine Variablen, und keine Zelladresse.
(13.06.2020, 20:36)schauan schrieb: [ -> ]Hallöchen,
So wie Du C4 schreibst ist es Sprengstoff - Nein, eine Variablen, und keine Zelladresse.
Sag mir doch bitte einfach wie ich es schreiben muss
Ich bin total Anfänger sorry
Jetzt funktioniert es
Was ich noch wissen sollte ist, wie kann man in der abgespeicherten Datei den CommandButton ausblenden`?
Code:
Private Sub CommandButton1_Click()
Const Pfad As String = "C:\temp\Test\"
Dim Dateiname As String
If Range("C4") = "" Or Range("H4") = "" Or Range("M4") = "" Or Range("C8") = "" Or Range("C6") = "" Or Range("M6") = "" Then MsgBox "Alle Felder ausf?llen!": Exit Sub
Application.DisplayAlerts = False ' Warnmeldung ausschalten
' Zeichnungsnummer_Index+IndexNr_Bestellnummer_Lieferant_WEDatum
' Zeichnungsnummer_Index (H4)
' IndexNr (M4)
' Bezeichnung (C4)
' Bestellnummer (C8)
' Lieferant (C6)
' WEDatum (M6)
Dateiname = Range("H4") & "_" & "Index" & "_" & Range("M4") & "_" & Range("C4") & "_" & Range("C8") & "_" & Range("c6") & "_" & Range("M6") & ".xlsx"
Debug.Print Pfad & Dateiname
ActiveWorkbook.SaveAs Filename:=Pfad & Dateiname, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True ' Warnmeldung einschalten
End Sub
Hallöchen,
Zitat:Sag mir doch bitte einfach wie ich es schreiben muss
dann ist der code in #14 sicher nicht von Dir
Einiges bekommt man auch mit aufzeichnen hin. Ich habe das hier mal mit dem Löschen des Buttons gemacht:
Code:
Sub Makro1()
'
' Makro1 Makro
'
'
ActiveSheet.Shapes.Range(Array("CommandButton1")).Select
Selection.Delete
End Sub
abgekürzt und zum Einfügen würde dann dieser Teil relevant sein:
ActiveSheet.Shapes.Range(Array("CommandButton1")).Delete
Der ist dann aber gelöscht und nicht nur ausgeblendet, wäre das ok? Ausblenden ohne Einblenden würde nicht unbedingt mehr Sinn machen.