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

Brauche Hilfe - evtl. SVERWEIS

Forumthread: Brauche Hilfe - evtl. SVERWEIS

Brauche Hilfe - evtl. SVERWEIS
Mister
Hallo,
ich zerbreche mir den Kopf mit folgendem Problem:
in meiner Tabelle (Beispiel beigefügt) in der Spalte S soll ein X stehen wenn an der entsprenchenden Stellen in den Bereichen F6-F36 usw. etwas steht. Schaut euch bitte die Beispieldatei an. Da ist mein Problem hoffentlich verständlicher.
https://www.herber.de/bbs/user/73101.xls
Gruß
Martin
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Tabellenblatt ist leer owT.
17.01.2011 11:35:22
Rainer

AW: Tabellenblatt ist leer owT.
17.01.2011 11:55:20
Mister
Oh wie peinlich! Habe aus Versehen die falsche Datei hochgeladen!!!
hier die richtige:
https://www.herber.de/bbs/user/73102.xls
Gruß
Martin
AW: Tabellenblatt ist leer owT.
17.01.2011 12:06:11
Rainer
Hi Mister B,
in T6: =WENN(ODER(F6"";K6"");"X";"")
VG Rainer
Anzeige
AW: Tabellenblatt ist leer owT.
17.01.2011 12:17:52
Mister
Hallo Rainer,
das Problem ist, dass die Zellen F u. K sortiert werden und schon passt die Formel nicht mehr. In Spalte S in der Zelle neben z. B. 246 soll X stehen wenn in Spalten F oder K neben 246 was steht, egal wo 246 in der Spalte 246 steht.
Hoffe ich habe mich verständlcih gemacht.
Gruß
Martin
Anzeige
IMHO, geht dann nur mit VBA owT.
17.01.2011 12:38:49
Rainer

AW: Tabellenblatt ist leer owT.
17.01.2011 12:46:17
Eugen
Hi Rainer
hier der code
Public Sub find_nr()
Dim i As Integer, x As Integer
Dim nI As Integer
For i = 6 To 49
Sheets(1).Cells(i, 20).Value = ""
nI = Sheets(1).Cells(i, 19).Value
For x = 6 To 36
If Sheets(1).Cells(x, 4).Value = nI And _
Sheets(1).Cells(x, 6).Value  "" Then
Sheets(1).Cells(i, 20).Value = "X"
End If
If Sheets(1).Cells(x, 9).Value = nI And _
Sheets(1).Cells(x, 11).Value  "" Then
Sheets(1).Cells(i, 20).Value = "X"
End If
Next x
Next i
End Sub

gruss
Eugen
Anzeige
Super, danke wieder was gelernt :-) owT
17.01.2011 12:58:55
Rainer

Ich auch :-)
17.01.2011 13:01:49
Mister
Hallo Eugen,
das klappt hervorragend. Mein Nachmittag ist gerettet !
Danke und Gruß
Martin
;

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