VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von:
ralf_b

Datum:
10.08.2020 20:34:12

Views:
874

Rating:

Antwort:

Thema:
Leere Zeile, Wert einfügen

sind deine kostenstellen Texte oder Zahlen? das sollte in deiner If abfrage berücksichtigt werden.

Wenn du mal nur Cells nutzt und dann plötzlich Activesheet.Cells hat das einen Grund?

aufgrund deiner Schilderung würde ich Folgendes vorschlagen. ungetestet.

If Cells(s, "N").Value = 11200 and isempty(Cells(s, 1)) Then  
     Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, "A").Value = "Maxi"
End If

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