Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1324to1328
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

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

Anzeige
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

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

330 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige