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
If-Funktion mit Vergleichsoperator gibt immer Null aus	13.05.2018 21:19:47	Felix Excel
If-Funktion mit Vergleichsoperator gibt immer Null aus	13.05.2018 22:43:31	Mackie
If-Funktion mit Vergleichsoperator gibt immer Null aus	13.05.2018 23:48:55	Felix Excel
If-Funktion mit Vergleichsoperator gibt immer Null aus	13.05.2018 23:51:12	Mackie
If-Funktion mit Vergleichsoperator gibt immer Null aus	13.05.2018 23:54:23	Mackie
If-Funktion mit Vergleichsoperator gibt immer Null aus	13.05.2018 23:57:55	Gast30276
If-Funktion mit Vergleichsoperator gibt immer Null aus	14.05.2018 00:10:51	Gast43667

Ansicht des Beitrags:

Von:
Felix Excel

Datum:
13.05.2018 21:19:47

Views:
804

Rating:

Antwort:

Thema:
If-Funktion mit Vergleichsoperator gibt immer Null aus

Hallo zusammen,

ich habe einen kleinen Code geschrieben, der aus zwei Tabellenblättern, aus den jeweils ersten Spalten die höchste Zahl heraussucht und dann im ersten Blatt ganz unten in der Spalte den aktuell höchsten Wert der Blätter + 1 einträgt. So soll eine fortlaufende Nummerierung umgesetzt werden.

lastrow = sht.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row 'Letzte Reihe finden
writerow = lastrow + 1 'writerow

Nr1 = Application.WorksheetFunction.Max(sht.Range("A5:A500")) 'höchste Zahl finden
Nr2 = Application.WorksheetFunction.Max(ws.Range("A2:A500")) 'höchste Zahl finden
If Nr1 > Nr2 Then Nr1 = Nr Else Nr2 = Nr
Nr = Nr + 1
sht.Cells(writerow, 1) = Nr 'Nummerierung eintragen

Das Makro funktioniert komplett bis auf die Zeile, welche die beiden höchsten Zahlen vergleicht. Die Variable "Nr" beträgt nach der If-Funktion immer "0". Ich kann mir einfach nicht erklären wieso. Hat jemand von euch vielleicht einen Tipp für mich?

If Nr1 > Nr2 Then Nr1 = Nr Else Nr2 = Nr

Vielen Dank!

Felix

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
If-Funktion mit Vergleichsoperator gibt immer Null aus	13.05.2018 21:19:47	Felix Excel
If-Funktion mit Vergleichsoperator gibt immer Null aus	13.05.2018 22:43:31	Mackie
If-Funktion mit Vergleichsoperator gibt immer Null aus	13.05.2018 23:48:55	Felix Excel
If-Funktion mit Vergleichsoperator gibt immer Null aus	13.05.2018 23:51:12	Mackie
If-Funktion mit Vergleichsoperator gibt immer Null aus	13.05.2018 23:54:23	Mackie
If-Funktion mit Vergleichsoperator gibt immer Null aus	13.05.2018 23:57:55	Gast30276
If-Funktion mit Vergleichsoperator gibt immer Null aus	14.05.2018 00:10:51	Gast43667