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, 12: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:

24 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 16.07.2008, 13: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
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 16.07.2008, 13: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

Michael_Haase
Newbie
Newbie

Anmeldedatum: 16.07.2008
Beiträge: 4

Verfasst am: 16.07.2008, 13: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
	Eine Auswahlliste mit Verknüpfung zu ...	anscfz06	Microsoft Excel Hilfe	4	19.11.2008, 22:36
	Tabellen vergleich	crudi	Microsoft Access Hilfe	0	17.11.2008, 10:59
	Sehr komplexes Thema!! Verknüpfung d...	wowa	Microsoft Excel Hilfe	1	14.11.2008, 10:12
	Serienbrief Verknüpfung zu Excel prüfen	KP	Microsoft Word Hilfe	2	07.11.2008, 14:28
	Maximale Anzahl der Zeilen bei Pivot ...	McPilsbier	Microsoft Excel Hilfe	1	05.11.2008, 13:55

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