Soweit hinbekommen .. Nur noch 3 Probleme
04.08.2018 20:06:31
Sabrina
Hallo Leute brauche dringend eure Hilfe,
bin etwas weiter gekommen. Hänge aber 3 Problemen
1) Model = Range("Model") .. ich möchte das "Model_ohne_Leerstellen" Range("Model") ohne Leerstellen ausgibt. Im Beispiel statt iPhone 6 soll Model_ohne_Leerstellen = iPhone6 sein.
2) Bei der Auswahl eines Rabattes kommt eine Fehlermeldung.
3) kann mir jemand bei der Ausgabe der ermittelten Werte in die Eingabe weiterhelfen?
Also die Werte in den Sheet "Eingabe" untereinander ab D12 schreiben
Anbei nochmal die aktuelle Datei : https://www.herber.de/bbs/user/123136.zip
LG Sabbel
Private Sub CommandButton1_Click()
Dim Komp1 As String, Komp2 As String, Komp3 As String, Komp4 As String, Rabatt2 As String, _
Rabatt3 As String, Rabatt4 As String
Dim Rabatt2_Nr As Integer
Dim Model As String
Set wksErfassung = Workbooks("Erfassung.xls").Worksheets("Eingabe Endkunde")
Model = Range("Model")
Komp1 = Komponente1.Text
If Not Komp1 = "" Then
Komp1_Nr = Application.WorksheetFunction.VLookup(Komp1, Worksheets("Tabelle1").Range(" _
Komponenten_Liste"), 2, False)
End If
Komp2 = Komponente2.Text
If Not Komp2 = "" Then
Komp2_Nr = Application.WorksheetFunction.VLookup(Komp2, Worksheets("Tabelle1").Range(" _
Komponenten_Liste"), 2, False)
End If
Komp3 = Komponente3.Text
If Not Komp3 = "" Then
Komp3_Nr = Application.WorksheetFunction.VLookup(Komp3, Worksheets("Tabelle1").Range(" _
Komponenten_Liste"), 2, False)
End If
Komp4 = Komponente4.Text
If Not Komp4 = "" Then
Komp4_Nr = Application.WorksheetFunction.VLookup(Komp4, Worksheets("Tabelle1").Range(" _
Komponenten_Liste"), 2, False)
End If
' Rabatt2 = Rabatt_Komponente2.Value
' Rabatt2_Nr = Application.WorksheetFunction.VLookup(Rabatt2, Worksheets("Tabelle1").Range(" _
Rabatt_Liste"), 3, False)
' Rabatt3 = Rabatt_Komponente3.Text
' Rabatt3_Nr = Application.WorksheetFunction.VLookup(Rabatt3, Worksheets("Tabelle1").Range(" _
Rabatt_Liste"), 2, False)
' Rabatt4 = Rabatt_Komponente4.Text
' Rabatt4_Nr = Application.WorksheetFunction.VLookup(Rabatt4, Worksheets("Tabelle1").Range(" _
Rabatt_Liste"), 2, False)
Akku1 = Akku.Text
If Not Akku1 = "" Then
Akku1_Nr = Application.WorksheetFunction.VLookup(Akku1, Worksheets("Tabelle1").Range("Akku") _
, 2, False)
End If
With wksErfassung
.Range("ETeil2") = Komp1_Nr
End With
End Sub