Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.03.2020 09:19:30 |
Sascha Nollenberger |
|
|
|
23.03.2020 11:39:39 |
UweD |
|
|
Musterdatei hochladen |
23.03.2020 12:01:18 |
Sascha Nollenberger |
|
|
|
23.03.2020 13:40:13 |
UweD |
|
|
|
23.03.2020 19:48:46 |
Sascha Nollenberger |
|
|
|
23.03.2020 12:29:36 |
Sascha Nollenberger |
|
|
Von:
Sascha Nollenberger |
Datum:
23.03.2020 12:01:18 |
Views:
595 |
Rating:
|
Antwort:
|
Thema:
Musterdatei hochladen |
Hier so sieht es aus:
Private Sub cdb_BANF_erstellen_Click()
Dim s_Text As String
'---Eintrag--Status--------------------------------------------------------------------------------------------------------
Sheets("SAP-BANF-LISTE").Range("A12").Value = Me.cbb_Status.Value
'---Eintrag--Anforderer----------------------------------------------------------------------------------------------------
Sheets("SAP-BANF-LISTE").Range("B12").Value = Me.cbb_Anforderer.Value
'---Eintrag--Grund-der-Beschaffung-----------------------------------------------------------------------------------------
Sheets("SAP-BANF-LISTE").Range("C12").Value = Me.txb_Grund_der_Beschaffung.Value
'---Eintrag--Entwicklungsstand---------------------------------------------------------------------------------------------
Sheets("SAP-BANF-LISTE").Range("D12").Value = Me.cbb_Entwicklungsstand.Value
'---Eintrag--Projektnummer-------------------------------------------------------------------------------------------------
Sheets("SAP-BANF-LISTE").Range("E12").Value = Me.txb_Projektnummer.Value
'---Eintrag--Lieferdatum---------------------------------------------------------------------------------------------------
Sheets("SAP-BANF-LISTE").Range("L12").Value = Me.DTPicker1.Value
'---Eintrag--Wunschlieferant-----------------------------------------------------------------------------------------------
Sheets("SAP-BANF-LISTE").Range("K12").Value = Me.txb_Wunschlieferant.Value
'---Eintrag--Infotext------------------------------------------------------------------------------------------------------
Sheets("SAP-BANF-LISTE").Range("M12").Value = Me.txb_Infotext.Value
'---Eintrag--Anlieferadresse-----------------------------------------------------------------------------------------------
Sheets("SAP-BANF-LISTE").Range("N12").Value = Me.txb_Anlieferaddresse.Value
'---Eintrag--Positionsnummer-----------------------------------------------------------------------------------------------
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
'---Eintrag--Kurztext------------------------------------------------------------------------------------------------------
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
'---Eintrag--Menge---------------------------------------------------------------------------------------------------------
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
'---Eintrag--Mengeneinheit-------------------------------------------------------------------------------------------------
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
'---Eintrag--Preis---------------------------------------------------------------------------------------------------------
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.
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.03.2020 09:19:30 |
Sascha Nollenberger |
|
|
|
23.03.2020 11:39:39 |
UweD |
|
|
Musterdatei hochladen |
23.03.2020 12:01:18 |
Sascha Nollenberger |
|
|
|
23.03.2020 13:40:13 |
UweD |
|
|
|
23.03.2020 19:48:46 |
Sascha Nollenberger |
|
|
|
23.03.2020 12:29:36 |
Sascha Nollenberger |
|
|