AW: Hilfe bei VBA Suche
29.01.2018 15:09:56
Christian
Danke dir für den Tipp.
Das geht aber nicht. Nur_beim_start_ausführen ist eine Anweisung, die weiter unten erklärt ist, siehe hier:
Private Sub Nur_beim_start_ausführen()
Dim wkbMappe As Workbook
' Schauen ob noch ein Blatt Artikelmerkmale von vorher vorhanden ist, wenn ja dann löschen
If BlattExistiert(Artikelmerkmale_blatt) = True Then
Application.DisplayAlerts = False
ThisWorkbook.Sheets(Artikelmerkmale_blatt).Delete
Application.DisplayAlerts = True
End If
' Schauen ob Datei Existiert
If Datei_vorhanden(gstrOrdnerpfad_Artikelmerkmale & gDATEINAME_ARTIKELMERKMALE) = False _
Then
MsgBox "Die Datei" & Chr(10) & Chr(10) & gstrOrdnerpfad_Artikelmerkmale & _
gDATEINAME_ARTIKELMERKMALE & Chr(10) & Chr(10) & "wurde nicht gefunden." & Chr(10) & Chr(10) & "Bitte starten Sie diese Datei neu.", vbInformation, "Datei nicht vorhanden"
Unload Me
Exit Sub
End If
' Tabellenblatt 'Aritkelmerkmale' aus Datei kopieren
If Datei_geöffnet(gstrOrdnerpfad_Artikelmerkmale & gDATEINAME_ARTIKELMERKMALE) = False Then
Set wkbMappe = Workbooks.Open(gstrOrdnerpfad_Artikelmerkmale & _
gDATEINAME_ARTIKELMERKMALE)
wkbMappe.Worksheets(Artikelmerkmale_blatt).Copy Before:=ThisWorkbook.Sheets(1)
wkbMappe.Close savechanges:=False
Else
Set wkbMappe = Workbooks(gDATEINAME_ARTIKELMERKMALE)
wkbMappe.Worksheets(Artikelmerkmale_blatt).Copy Before:=ThisWorkbook.Sheets(1)
End If
Set wkbMappe = Nothing
ThisWorkbook.Sheets(Artikelmerkmale_blatt).Visible = False
Aus = True
'Kundennr füllen
Call CB_füllen(Me.CB_Kundennummer, 2, "@", "Kundenummer*", Me.Label27)
'Kunden füllen
Call CB_füllen(Me.CB_Kunde, 3, "@", "Kunde*", Me.Label28)
Aus = False
With Me.ListBox1
.AddItem
.List(.ListCount - 1, 0) = "Pos.-Nr."
.List(.ListCount - 1, 1) = "Art.-Nr."
.List(.ListCount - 1, 2) = "Kd.-Art.-Nr."
.List(.ListCount - 1, 3) = "Bezeichnung"
End With
End Sub
Wenn ich das Apostroph, wei von dir geschrieben, setze dann funktioniert nichts.
Hast du ober jm noch einen anderen Tipp`