Thema Datum  Von Nutzer Rating
Antwort
Rot Suchen und ersetzen / NICHT leer
10.02.2019 10:04:34 Daniel
NotSolved
10.02.2019 11:15:48 Werner
NotSolved

Ansicht des Beitrags:
Von:
Daniel
Datum:
10.02.2019 10:04:34
Views:
53
Rating: Antwort:
  Ja
Thema:
Suchen und ersetzen / NICHT leer
Hallo,
bei dem Makro beiße ich mir grad die Zähne aus. 
Würde gern die makro beendung so gestallten, dass Zellen in denen eine Formel ist als leer definiert sind und das das makro endet.
Das makro sollte nur durchlaufebn wenn die Zellen in den eine Formel ist einen Wert ausgeben.
Desweiteren sollte ein Maximale Zeilen Anzahl von 1100 eingebracht werden die das makro durchläuft.
Jetzt habe ich so viel gelesen das es bei Excel viele verschiedene Definitionen von leeren Zellen gibt, bin ratlos was hier benutzt werden soll.
Habe probiert dies:
 
For x = 1 To 1100
If Cells(x, 1).Value <> "" Then
 
in die unten genannte Formel zu bringen leider ohne Erfolg.
(Weiß auch nich ob dies unbedingt richtig ist).
 
-------------------------------------------------------
 
 
Option Explicit
Option Compare Text

Const Sheet1 = "Tabelle1"
Const Sheet2 = "Tabelle2"

Sub START1()
    Dim Wks1 As Worksheet, Wks2 As Worksheet, c As Range, d As Range
    
    Set Wks1 = Sheets(Sheet1):  Set Wks2 = Sheets(Sheet2)
    
    For Each c In Wks2.Range("B2:B" & Wks2.Cells(Wks2.Rows.Count, "B").End(xlUp).Row)
        If Not IsEmpty(c) Then
            Set d = Wks1.Columns("B").Find(c, LookIn:=xlValues, LookAt:=xlPart)
            If d Is Nothing Then
                c.Offset(0, 1) = "Nein"
            Else
                d.Value = Replace(d, c, c.Offset(0, -1)):  c.Offset(0, 1) = "Ja"
            End If
        End If
    Next
End Sub
 

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 Suchen und ersetzen / NICHT leer
10.02.2019 10:04:34 Daniel
NotSolved
10.02.2019 11:15:48 Werner
NotSolved