Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: SVERWEIS nur wenn Zelle nicht gefüllt ist

SVERWEIS nur wenn Zelle nicht gefüllt ist
22.08.2013 09:12:19
Sascha
Hallo,
besteht die Möglichkeit das Makro so umzubauen, dass die Zellen in J nicht mit dem SVERWEIS gefüllt werden wenn Sie schon einen Inhalt haben?
Vorab vielen Dank.
LG
Sascha
Sub datum_prod()
' datum_prod Makro
Columns("J:J").Select
Selection.ClearContents
Range("J1").Select
ActiveCell.FormulaR1C1 = "in Produktion"
Range("J2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-9],prod!C[-9]:C[-8],2,FALSE)),"""",VLOOKUP(RC[-9],prod!C[-9]:C[ _
-8],2,FALSE))"
Range("J2").Select
Selection.AutoFill Destination:=Range("J2:J50000")
Range("J2:J50000").Select
Range("J2").Select
End Sub

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: SVERWEIS nur wenn Zelle nicht gefüllt ist
22.08.2013 09:28:35
JACKD
Hallo Sascha
Wenn du nur wissen willst, ob in J2 ne Formel ist, reicht es so
  ''Löschen
Columns("J:J").ClearContents
'' Überschrift
Range("J1").FormulaR1C1 = "in Produktion"
''Abfragen ob J2 Leer ist (Wenn ja , dann Formel rein)
If Range("J2") = "" Then
Range("J2").FormulaR1C1 = "=IF(ISERROR(VLOOKUP(RC[-9],prod!C[-9]:C[-8],2,FALSE)),"""", _
VLOOKUP(RC[-9],prod!C[-9]:C[-8],2,FALSE))"
End If
'' Formel nach unten Kopieren
Range("J2").AutoFill Destination:=Range("J2:J50000")
Grüße

Anzeige
AW: SVERWEIS nur wenn Zelle nicht gefüllt ist
22.08.2013 09:45:30
Sascha
Hallo,
nein, dass reicht leider nicht. Es müssen die Zellen J2 bis J50000 geprüft werden.
LG
Sascha Nolden

AW: SVERWEIS nur wenn Zelle nicht gefüllt ist
22.08.2013 09:51:21
JACKD
Hallo Sascha
dann so
 ''Löschen
Columns("J:J").ClearContents
'' Überschrift
Range("J1").FormulaR1C1 = "in Produktion"
''Abfragen ob Bereiche Leer sind (Wenn ja , dann Formel rein)
For Each Bereich In Range("J2:J50000")
If Bereich = "" Then
Bereich.FormulaR1C1 = "=IF(ISERROR(VLOOKUP(RC[-9],prod!C[-9]:C[-8],2,FALSE)),"""", _
VLOOKUP(RC[-9],prod!C[-9]:C[-8],2,FALSE))"
End If
Next
Grüße

Anzeige
AW: SVERWEIS nur wenn Zelle nicht gefüllt ist
22.08.2013 11:57:25
Sascha
Hallo JACKD,
hat wunderbar funktioniert.
Danke
LG
Sascha

Danke für die Rückmeldung owT
22.08.2013 12:01:07
JACKD
owT. ohne weiteren Text
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige