Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
12.01.2017 12:12:27 |
Dude |
|
|
|
12.01.2017 12:35:03 |
Gast64745 |
|
|
MsgBox innerhalb If-Bedingung |
12.01.2017 12:57:19 |
Dude |
|
|
|
12.01.2017 13:15:24 |
Gast70608 |
|
|
|
12.01.2017 13:28:35 |
Dude |
|
|
Von:
Dude |
Datum:
12.01.2017 12:57:19 |
Views:
645 |
Rating:
|
Antwort:
|
Thema:
MsgBox innerhalb If-Bedingung |
Wow super Danke! So einfach und doch so elegant! =) Bekomme zwar die Meldung "Ok" jetzt mehrmals, aber da kommt ja noch der Kopier Code hin anstatt der MsgBox :D
Würde meine Frage aber jetzt etwas erweitern. Habe in den unteren Teil des Codes (Teil mit "Auftragsnummer nicht vorhanden") angefangen einen KopierCode zu schreiben.
Dim fund As string, fund1 As string
Dim zähler as Long
'...
Else
If result = 0 Then
result = MsgBox("Auftragsnummer nicht vorhanden. Neu anlegen?", vbYesNo)
End If
If result = vbNo Then
Exit Sub
Else
fund = .Cells(i, 1).End(xlUp).Row
fund1 = .Cells(i, 11).End(xlUp).Row
fund = Infos(CStr("Anlagennummer" & zähler))
fund1 = Infos(CStr("Hersteller" & zähler))
zähler = zähler + 1
End If
End If
'...
Mit diesem Code passiert leider gar nichts...
Ich möchte erreichen, dass die Werte der Textboxen Anlagennummer0-19 und die der Comboboxen Hersteller0-19 ins Worksheet in die Spalten 1 und 11 in die nächste komplett freie Reihe eingetragen werden. Dabei sollen beispielsweise der Wert Anlagennummer1 und Hersteller1 in die gleiche Reihe.
Ist das verständlich?
Danke schonmal!
Grüße
|
- 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
|
|
12.01.2017 12:12:27 |
Dude |
|
|
|
12.01.2017 12:35:03 |
Gast64745 |
|
|
MsgBox innerhalb If-Bedingung |
12.01.2017 12:57:19 |
Dude |
|
|
|
12.01.2017 13:15:24 |
Gast70608 |
|
|
|
12.01.2017 13:28:35 |
Dude |
|
|