Thema Datum  Von Nutzer Rating
Antwort
12.01.2017 12:12:27 Dude
NotSolved
12.01.2017 12:35:03 Gast64745
NotSolved
Rot MsgBox innerhalb If-Bedingung
12.01.2017 12:57:19 Dude
NotSolved
12.01.2017 13:15:24 Gast70608
NotSolved
12.01.2017 13:28:35 Dude
NotSolved

Ansicht des Beitrags:
Von:
Dude
Datum:
12.01.2017 12:57:19
Views:
746
Rating: Antwort:
  Ja
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.

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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


Ihre Antwort
  • 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: Name: Email:



  • 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
NotSolved
12.01.2017 12:35:03 Gast64745
NotSolved
Rot MsgBox innerhalb If-Bedingung
12.01.2017 12:57:19 Dude
NotSolved
12.01.2017 13:15:24 Gast70608
NotSolved
12.01.2017 13:28:35 Dude
NotSolved