Logische Verknüpfung zwischen 2 Tabellen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2000] Logische Verknüpfung zwischen 2 Tabellen

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

Michael_Haase
Newbie
Newbie

Anmeldedatum: 16.07.2008
Beiträge: 4

Verfasst am: 16.07.2008, 13:49

Hallo zusammen,

ich brauche Hilfe bei folgender Aufgabenstellung:

In dem "Muster" soll automatisch der Name des Teilnehmers in Tabellenblatt 1 unter "Teilnehmer" erscheinen, wenn bei benötigte Qualifikationen ein "Ja" oder ein "Nein" eingetragen wird. Es soll möglich sein, verschiedene Qualifikationen mit "Ja" zu belegen.

Meine Versuche mit Sverweis, Wenn-Funktion etc sind bisher alle kläglich gescheitert...

Wer kann mir helfen?

Vielen Dank!

Michael

Muster.xls

Beschreibung:

Download

Dateiname:

Muster.xls

Dateigröße:

13.5 KB

Heruntergeladen:

18 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5509

Verfasst am: 16.07.2008, 14:29

Hallo!

Au weia... Das dürfte mit Formeln aber schwer werden!
Versuch's mal lieber mit einem Makro dieser Art:

Code:

Sub test()
Const ErsteZeile = 3
Const LetzteZeile = 6
Dim i%, j%, x%, Zelle As Range, sZelle$, Bereich As Range
Range("G3:K100").ClearContents
Set Bereich = Sheets("Namen").Range("B2:C100")
With Sheets("Namen")
For i = ErsteZeile To LetzteZeile
x = 7
For j = 2 To 6
If Cells(i, j) = "Ja" Then
Set Zelle = Bereich.Find(Cells(2, j))
If Not Zelle Is Nothing Then
sZelle = Zelle.Address
Cells(i, x) = .Cells(Zelle.Row, 1)
Do
Set Zelle = Bereich.FindNext(After:=Zelle)
On Error Resume Next
If Zelle.Address = sZelle Then Exit Do
x = x + 1
Cells(i, x) = .Cells(Zelle.Row, 1)
Loop
End If
End If
Next j
Next i
End With
End Sub

_________________

Viele Grüße vom Schatzi
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5509

Verfasst am: 16.07.2008, 14:32

Da war noch ein Fehler drin...

Code:

Sub test()
Const ErsteZeile = 3
Const LetzteZeile = 6
Dim i%, j%, x%, Zelle As Range, sZelle$, Bereich As Range
Range("G3:K100").ClearContents
Set Bereich = Sheets("Namen").Range("B2:C100")
With Sheets("Namen")
For i = ErsteZeile To LetzteZeile
x = 6
For j = 2 To 6
If Cells(i, j) = "Ja" Then
Set Zelle = Bereich.Find(Cells(2, j))
If Not Zelle Is Nothing Then
sZelle = Zelle.Address
x = x + 1
Cells(i, x) = .Cells(Zelle.Row, 1)
Do
Set Zelle = Bereich.FindNext(After:=Zelle)
On Error Resume Next
If Zelle.Address = sZelle Then Exit Do
x = x + 1
Cells(i, x) = .Cells(Zelle.Row, 1)
Loop
End If
End If
Next j
Next i
End With
End Sub

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

Michael_Haase
Newbie
Newbie

Anmeldedatum: 16.07.2008
Beiträge: 4

Verfasst am: 16.07.2008, 14:33

Vielen Dank für deine schnelle Hilfe, nur leider habe ich von Makros überhaupt keine Ahnung, bisher kein einziges erstellt...

Aber dankeschön!

Vielleicht versuch ich das mal in nem ruhigen Moment...

Michael

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Zwischen Quer- und Hochformat wechsel...	Hechemer	Microsoft PowerPoint Hilfe	0	20.08.2008, 16:50
	Zwischen Querformat und Hochformat we...	Hechemer	Microsoft Outlook Hilfe	1	20.08.2008, 16:44
	Etiketten Seriendruck: Problem bei se...	aimz	Microsoft Word Hilfe	0	12.08.2008, 19:14
	Tabellen in Word einfügen	Til	Microsoft Word Hilfe	0	09.08.2008, 21:32
	Tabellen mit Filter kopieren in neue ...	Ahasihe	Microsoft Excel Hilfe	4	08.08.2008, 10:22

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de