Hilfe bei Schaltfläche

[painkiller]

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

[Fred11]

Hallo

Einstellung im Dialogfenster für die Datenüberprüfung:

Entweder
   

oder
   

Gruß
Fred

[painkiller]

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

[schauan]

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

[painkiller]

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

[schauan]

Hallöchen,
So wie Du C4 schreibst ist es Sprengstoff - Nein, eine Variablen, und keine Zelladresse.

[painkiller]

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

[WillWissen]

Hi,

probier's mal so:

Code:

if Range("C4")...

[painkiller]

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

[schauan]

Hallöchen,

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.