|
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
|