Private
Sub
cdb_BANF_erstellen_Click()
Dim
s_Text
As
String
Sheets(
"SAP-BANF-LISTE"
).Range(
"A12"
).Value =
Me
.cbb_Status.Value
Sheets(
"SAP-BANF-LISTE"
).Range(
"B12"
).Value =
Me
.cbb_Anforderer.Value
Sheets(
"SAP-BANF-LISTE"
).Range(
"C12"
).Value =
Me
.txb_Grund_der_Beschaffung.Value
Sheets(
"SAP-BANF-LISTE"
).Range(
"D12"
).Value =
Me
.cbb_Entwicklungsstand.Value
Sheets(
"SAP-BANF-LISTE"
).Range(
"E12"
).Value =
Me
.txb_Projektnummer.Value
Sheets(
"SAP-BANF-LISTE"
).Range(
"L12"
).Value =
Me
.DTPicker1.Value
Sheets(
"SAP-BANF-LISTE"
).Range(
"K12"
).Value =
Me
.txb_Wunschlieferant.Value
Sheets(
"SAP-BANF-LISTE"
).Range(
"M12"
).Value =
Me
.txb_Infotext.Value
Sheets(
"SAP-BANF-LISTE"
).Range(
"N12"
).Value =
Me
.txb_Anlieferaddresse.Value
If
txb_Positionsnummer_Zeile_1.Value =
"varPositionsnummer"
Then
s_Text = txb_Positionsnummer_Zeile_1.Value
ElseIf
txb_Positionsnummer_Zeile_1.Value =
""
Then
End
If
If
txb_Positionsnummer_Zeile_2.Value =
"varPositionsnummer"
Then
s_Text = txb_Positionsnummer_Zeile_2.Value
ElseIf
txb_Positionsnummer_Zeile_2.Value =
""
Then
End
If
If
txb_Positionsnummer_Zeile_3.Value =
"varPositionsnummer"
Then
s_Text = txb_Positionsnummer_Zeile_3.Value
ElseIf
txb_Positionsnummer_Zeile_3.Value =
""
Then
End
If
If
txb_Positionsnummer_Zeile_4.Value =
"varPositionsnummer"
Then
s_Text = txb_Positionsnummer_Zeile_4.Value
ElseIf
txb_Positionsnummer_Zeile_4.Value =
""
Then
End
If
If
txb_Positionsnummer_Zeile_5.Value =
"varPositionsnummer"
Then
s_Text = txb_Positionsnummer_Zeile_5.Value
ElseIf
txb_Positionsnummer_Zeile_5.Value =
""
Then
End
If
If
txb_Positionsnummer_Zeile_6.Value =
"varPositionsnummer"
Then
s_Text = txb_Positionsnummer_Zeile_6.Value
ElseIf
txb_Positionsnummer_Zeile_6.Value =
""
Then
End
If
If
txb_Positionsnummer_Zeile_7.Value =
"varPositionsnummer"
Then
s_Text = txb_Positionsnummer_Zeile_7.Value
ElseIf
txb_Positionsnummer_Zeile_7.Value =
""
Then
End
If
If
txb_Positionsnummer_Zeile_8.Value =
"varPositionsnummer"
Then
s_Text = txb_Positionsnummer_Zeile_8.Value
ElseIf
txb_Positionsnummer_Zeile_8.Value =
""
Then
End
If
If
txb_Positionsnummer_Zeile_9.Value =
"varPositionsnummer"
Then
s_Text = txb_Positionsnummer_Zeile_9.Value
ElseIf
txb_Positionsnummer_Zeile_9.Value =
""
Then
End
If
If
txb_Positionsnummer_Zeile_10.Value =
"varPositionsnummer"
Then
s_Text = txb_Positionsnummer_Zeile_10.Value
ElseIf
txb_Positionsnummer_Zeile_10.Value =
""
Then
End
If
If
txb_Positionsnummer_Zeile_11.Value =
"varPositionsnummer"
Then
s_Text = s_Text & vbLf &
Me
.txb_Positionsnummer_Zeile_11.Value
Sheets(
"SAP-BANF-LISTE"
).Range(
"F12"
).Value = s_Text
ElseIf
txb_Positionsnummer_Zeile_11.Value =
""
Then
End
If
If
txb_Kurztext_Zeile_1.Value =
"varKurztext"
Then
s_Text = txb_Kurztext_Zeile_1.Value
ElseIf
txb_Kurztext_Zeile_1.Value =
""
Then
End
If
If
txb_Kurztext_Zeile_2.Value =
"varKurztext"
Then
s_Text = txb_Kurztext_Zeile_2.Value
ElseIf
txb_Kurztext_Zeile_2.Value =
""
Then
End
If
If
txb_Kurztext_Zeile_3.Value =
"varKurztext"
Then
s_Text = txb_Kurztext_Zeile_3.Value
ElseIf
txb_Kurztext_Zeile_3.Value =
""
Then
End
If
If
txb_Kurztext_Zeile_4.Value =
"varKurztext"
Then
s_Text = txb_Kurztext_Zeile_4.Value
ElseIf
txb_Kurztext_Zeile_4.Value =
""
Then
End
If
If
txb_Kurztext_Zeile_5.Value =
"varKurztext"
Then
s_Text = txb_Kurztext_Zeile_5.Value
ElseIf
txb_Kurztext_Zeile_5.Value =
""
Then
End
If
If
txb_Kurztext_Zeile_6.Value =
"varKurztext"
Then
s_Text = txb_Kurztext_Zeile_6.Value
ElseIf
txb_Kurztext_Zeile_6.Value =
""
Then
End
If
If
txb_Kurztext_Zeile_7.Value =
"varKurztext"
Then
s_Text = txb_Kurztext_Zeile_7.Value
ElseIf
txb_Kurztext_Zeile_7.Value =
""
Then
End
If
If
txb_Kurztext_Zeile_8.Value =
"varKurztext"
Then
s_Text = txb_Kurztext_Zeile_8.Value
ElseIf
txb_Kurztext_Zeile_8.Value =
""
Then
End
If
If
txb_Kurztext_Zeile_9.Value =
"varKurztext"
Then
s_Text = txb_Kurztext_Zeile_9.Value
ElseIf
txb_Kurztext_Zeile_9.Value =
""
Then
End
If
If
txb_Kurztext_Zeile_10.Value =
"varKurztext"
Then
s_Text = txb_Kurztext_Zeile_10.Value
ElseIf
txb_Kurztext_Zeile_10.Value =
""
Then
End
If
If
txb_Kurztext_Zeile_11.Value =
"varKurztext"
Then
s_Text = s_Text & vbLf &
Me
.txb_Kurztext_Zeile_11.Value
Sheets(
"SAP-BANF-LISTE"
).Range(
"G12"
).Value = s_Text
ElseIf
txb_Kurztext_Zeile_11.Value =
""
Then
End
If
If
txb_Menge_Zeile_1.Value =
"varMenge"
Then
s_Text = txb_Menge_Zeile_1.Value
ElseIf
txb_Menge_Zeile_1.Value =
""
Then
End
If
If
txb_Menge_Zeile_2.Value =
"varMenge"
Then
s_Text = txb_Menge_Zeile_2.Value
ElseIf
txb_Menge_Zeile_2.Value =
""
Then
End
If
If
txb_Menge_Zeile_3.Value =
"varMenge"
Then
s_Text = txb_Menge_Zeile_3.Value
ElseIf
txb_Menge_Zeile_3.Value =
""
Then
End
If
If
txb_Menge_Zeile_4.Value =
"varMenge"
Then
s_Text = txb_Menge_Zeile_4.Value
ElseIf
txb_Menge_Zeile_4.Value =
""
Then
End
If
If
txb_Menge_Zeile_5.Value =
"varMenge"
Then
s_Text = txb_Menge_Zeile_5.Value
ElseIf
txb_Menge_Zeile_5.Value =
""
Then
End
If
If
txb_Menge_Zeile_6.Value =
"varMenge"
Then
s_Text = txb_Menge_Zeile_6.Value
ElseIf
txb_Menge_Zeile_6.Value =
""
Then
End
If
If
txb_Menge_Zeile_7.Value =
"varMenge"
Then
s_Text = txb_Menge_Zeile_7.Value
ElseIf
txb_Menge_Zeile_7.Value =
""
Then
End
If
If
txb_Menge_Zeile_8.Value =
"varMenge"
Then
s_Text = txb_Menge_Zeile_8.Value
ElseIf
txb_Menge_Zeile_8.Value =
""
Then
End
If
If
txb_Menge_Zeile_9.Value =
"varMenge"
Then
s_Text = txb_Menge_Zeile_9.Value
ElseIf
txb_Menge_Zeile_9.Value =
""
Then
End
If
If
txb_Menge_Zeile_10.Value =
"varMenge"
Then
s_Text = txb_Menge_Zeile_10.Value
ElseIf
txb_Menge_Zeile_10.Value =
""
Then
End
If
If
txb_Menge_Zeile_11.Value =
"varMenge"
Then
s_Text = s_Text & vbLf &
Me
.txb_Menge_Zeile_11.Value
Sheets(
"SAP-BANF-LISTE"
).Range(
"H12"
).Value = s_Text
ElseIf
txb_Menge_Zeile_11.Value =
""
Then
End
If
If
cbb_Mengeneinheit_Zeile_1.Value =
"varMengeneinheit"
Then
s_Text = cbb_Mengeneinheit_Zeile_1.Value
ElseIf
cbb_Mengeneinheit_Zeile_1.Value =
""
Then
End
If
If
cbb_Mengeneinheit_Zeile_2.Value =
"varMengeneinheit"
Then
s_Text = cbb_Mengeneinheit_Zeile_2.Value
ElseIf
cbb_Mengeneinheit_Zeile_2.Value =
""
Then
End
If
If
cbb_Mengeneinheit_Zeile_3.Value =
"varMengeneinheit"
Then
s_Text = cbb_Mengeneinheit_Zeile_3.Value
ElseIf
cbb_Mengeneinheit_Zeile_3.Value =
""
Then
End
If
If
cbb_Mengeneinheit_Zeile_4.Value =
"varMengeneinheit"
Then
s_Text = cbb_Mengeneinheit_Zeile_4.Value
ElseIf
cbb_Mengeneinheit_Zeile_4.Value =
""
Then
End
If
If
cbb_Mengeneinheit_Zeile_5.Value =
"varMengeneinheit"
Then
s_Text = cbb_Mengeneinheit_Zeile_5.Value
ElseIf
cbb_Mengeneinheit_Zeile_5.Value =
""
Then
End
If
If
cbb_Mengeneinheit_Zeile_6.Value =
"varMengeneinheit"
Then
s_Text = cbb_Mengeneinheit_Zeile_6.Value
ElseIf
cbb_Mengeneinheit_Zeile_6.Value =
""
Then
End
If
If
cbb_Mengeneinheit_Zeile_7.Value =
"varMengeneinheit"
Then
s_Text = cbb_Mengeneinheit_Zeile_7.Value
ElseIf
cbb_Mengeneinheit_Zeile_7.Value =
""
Then
End
If
If
cbb_Mengeneinheit_Zeile_8.Value =
"varMengeneinheit"
Then
s_Text = cbb_Mengeneinheit_Zeile_8.Value
ElseIf
cbb_Mengeneinheit_Zeile_8.Value =
""
Then
End
If
If
cbb_Mengeneinheit_Zeile_9.Value =
"varMengeneinheit"
Then
s_Text = cbb_Mengeneinheit_Zeile_9.Value
ElseIf
cbb_Mengeneinheit_Zeile_9.Value =
""
Then
End
If
If
cbb_Mengeneinheit_Zeile_10.Value =
"varMengeneinheit"
Then
s_Text = cbb_Mengeneinheit_Zeile_10.Value
ElseIf
cbb_Mengeneinheit_Zeile_10.Value =
""
Then
End
If
If
cbb_Mengeneinheit_Zeile_11.Value =
"varMengeneinheit"
Then
s_Text = s_Text & vbLf &
Me
.cbb_Mengeneinheit_Zeile_11.Value
Sheets(
"SAP-BANF-LISTE"
).Range(
"I12"
).Value = s_Text
ElseIf
cbb_Mengeneinheit_Zeile_11.Value =
""
Then
End
If
If
txb_Preis_Zeile_1.Value =
"varPreis"
Then
s_Text = txb_Preis_Zeile_1.Value
ElseIf
txb_Preis_Zeile_1.Value =
""
Then
End
If
If
txb_Preis_Zeile_2.Value =
"varPreis"
Then
s_Text = txb_Preis_Zeile_2.Value
ElseIf
txb_Preis_Zeile_2.Value =
""
Then
End
If
If
txb_Preis_Zeile_3.Value =
"varPreis"
Then
s_Text = txb_Preis_Zeile_3.Value
ElseIf
txb_Preis_Zeile_3.Value =
""
Then
End
If
If
txb_Preis_Zeile_4.Value =
"varPreis"
Then
s_Text = txb_Preis_Zeile_4.Value
ElseIf
txb_Preis_Zeile_4.Value =
""
Then
End
If
If
txb_Preis_Zeile_5.Value =
"varPreis"
Then
s_Text = txb_Preis_Zeile_5.Value
ElseIf
txb_Preis_Zeile_5.Value =
""
Then
End
If
If
txb_Preis_Zeile_6.Value =
"varPreis"
Then
s_Text = txb_Preis_Zeile_6.Value
ElseIf
txb_Preis_Zeile_6.Value =
""
Then
End
If
If
txb_Preis_Zeile_7.Value =
"varPreis"
Then
s_Text = txb_Preis_Zeile_7.Value
ElseIf
txb_Preis_Zeile_7.Value =
""
Then
End
If
If
txb_Preis_Zeile_8.Value =
"varPreis"
Then
s_Text = txb_Preis_Zeile_8.Value
ElseIf
txb_Preis_Zeile_8.Value =
""
Then
End
If
If
txb_Preis_Zeile_9.Value =
"varPreis"
Then
s_Text = txb_Preis_Zeile_9.Value
ElseIf
txb_Preis_Zeile_9.Value =
""
Then
End
If
If
txb_Preis_Zeile_10.Value =
"varPreis"
Then
s_Text = txb_Preis_Zeile_10.Value
ElseIf
txb_Preis_Zeile_10.Value =
""
Then
End
If
If
txb_Preis_Zeile_11.Value =
"varPreis"
Then
s_Text = s_Text & vbLf &
Me
.txb_Preis_Zeile_11.Value
Sheets(
"SAP-BANF-LISTE"
).Range(
"J12"
).Value = s_Text
ElseIf
txb_Preis_Zeile_11.Value =
""
Then
End
If
Unload
Me
End
Sub
Bei Fragen, einfach nochmal melden^^.
Danke für die Hilfe
PS: Das Problem mit dem Hyperlink konnte ich lösen.