Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1192to1196
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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige