Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Problem 2
13.02.2019 13:52:20 Emre
NotSolved
13.02.2019 14:01:08 Ulrich
NotSolved
13.02.2019 14:19:26 Emre
NotSolved
13.02.2019 15:41:47 Ulrich
NotSolved
14.02.2019 07:28:53 Emre
Solved

Ansicht des Beitrags:
Von:
Emre
Datum:
13.02.2019 13:52:20
Views:
190
Rating: Antwort:
  Ja
Thema:
VBA Problem 2

Hallo Leute,

 

ich habe das gelöst Häckchen zwar wieder weggemacht, jedoch sieht man in der Übersicht immernoch das Häckchen. Deshalb wusste ich nicht ob Ihr nochmal da reinschaut. Aus diesem grund habe ich diesen neuen Beitrag eröffnet.

Es geht um folgendes Problem:

Das Makro tut was er soll, jedoch wenn er zum Suchbegriff nichts findet übernimmt er das Ergebnis vom letzten Suchbegriff.
Wenn das Makro nichts findet soll er auch eine 0 als Ergebnis ausgeben.

Makro:

Sub ScannzahlenGutware()
Dim z As Long
Dim lz As Long
Dim s As Integer
 
lz = Cells(Rows.Count, 2).End(xlUp).Row
If Cells(Rows.Count, 2) <> "" Then lz = Rows.Count
 
On Error Resume Next
For z = 7 To lz
    For s = 4 To 4
        result = WorksheetFunction.VLookup(Cells(z, 2).Value, Range("GUT!A:H"), s, False)
        Cells(z, 32).Value = IIf(IsError(result), 0, result)
    Next s
Next z
 
End Sub

Beispiel Bild:

Bitte um Verzeihung für das neue Thema. Danke Gruß Emre.

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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 markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Problem 2
13.02.2019 13:52:20 Emre
NotSolved
13.02.2019 14:01:08 Ulrich
NotSolved
13.02.2019 14:19:26 Emre
NotSolved
13.02.2019 15:41:47 Ulrich
NotSolved
14.02.2019 07:28:53 Emre
Solved