Office: (Office 2010) VBA: Wenn Zelle nicht leer dann Formel

Hallo Ihr Lieben,

Ich habe folgendes Problem: Wenn in Spalte B ein Text steht, möchte ich in Spalte AI eine Formel eintragen.
Ich hab schon mal ein Makro entworfen:

Sub Makro()
Dim Zelle As Range

For Each Zelle In Sheets("Tabelle1").Range("B6:B999")
If Zelle.Value <> "" Then
Sheets("Tabelle1").Range("AI6:AI999").FormulaR1C1 = "=VLOOKUP(C[-33],Tabelle2!C[-34]:C[-25],10,0)"
End If
Next

End Sub

Das Ergebnis des Makros liefert allerdings Bezug-Fehler, also Zellinhalt "#NV" für die Zellen die nicht von dem SVerweis aufgefangen werden. Das möchte ich aber eigentlich mit dem If-Befehl verhindern.

Danach hab ich ein anderes Makro erstellt, funktioniert aber auch nicht wie ich will:

Sheets("Tabelle1").Select
lngLetzteZeile = Range("B65536").End(xlUp).Row

Range("AI6").FormulaR1C1 = "=IF(COUNTIF(C[-33],R[-1]C[-33]),0,VLOOKUP(C[-33],Tabelle2!C[-34]:C[-25],10,0))"
Range("AI6").AutoFill Destination:=Range("AI6:AI" & lngLetzteZeile)

Weiß jemand eine Lösung?


Vielen Dank im Vorraus!

 

Hallo Lindaa,

1. Frage: In welchem Modul steht Dein Code, und wie wird er ausgelöst?
2. Frage: Wäre es nicht auch eine Möglichkeit auf das Makro zu verzichten, und statt dessen in Spallte AI in allen Zellen die Formel zu haben, aber gekapselt in einer Wenn-Formel mit der Bedingung, dass in Spalte B ein Wert eingetragen ist?

 

Hi Linda,

wie soll denn deine Formel heißen und was soll sie machen? Mit deinem ersten Code wird sie so eingetragen: =SVERWEIS(B:B;Tabelle2!A:J;10;0) - soll das korrekt sein?

Bis später,
Karin

 

danke erstmal für eure Antworten!

Ich hab meine Frage echt blöd formuliert, deswegen versuche ich es nochmal ;)

Der Tipp mit der Wenn-Formel hat mich auf eine Idee gebracht, das ist zur Zeit mein aktueller Code:

Sub Test()

Dim rngZelle As Range

Application.ScreenUpdating = False

Sheets("Tabelle1").Select
lngLetzteZeile = Range("B65536").End(xlUp).Row

Range("AI6").FormulaR1C1 = "=IF(RC[-33]="""","""",VLOOKUP(C[-33],Tabelle2!C[-34]:C[-25],10,0))"
Range("AI6").AutoFill Destination:=Range("AI6:AI" & lngLetzteZeile)


For Each rngZelle In Cells.SpecialCells(xlCellTypeFormulas, xlErrors)
If rngZelle.Text = "#NV" Then rngZelle.ClearContents
Next

Application.ScreenUpdating = True

End Sub



Die Sverweis-Formel stimmt! Der code funktionierte auch ganz gut. Mich nervt nur eins: Eigentlich wäre es gut wenn das Makro, falls die Zelle in Spalte B leer ist, garnichts macht. Denn zur Zeit ist es so, dass dann auch die bestehenden Zellfarben oder bestehende Formeln gelöscht werden.

Liebe Grüße