VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

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

Ansicht des Beitrags:

Von:
Dude

Datum:
12.01.2017 12:57:19

Views:
642

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

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