Suchergebnis aufteilen in Spalte C + E
09.10.2007 20:42:00
Wolfgang
beschäftige mich seit einiger Zeit mit folgenden Codes, die ich unter Rechereche entdeckte bzw. bei denen ich schon Hilfestellung aus dem Forum erhalten habe. In der Arbeitsmappe befinden sich unter Tabelle "Menü" Klappfenster -Alphabet-, denen ich Themen zuordnen kann (Stichwort und Text); Wenn ich nun in der jeweiligen Kategorie ein Stichwort anklicke, wird mir der dazugehörige Text in der Tabelle "Anzeige" Spalte C -C6 bis C25- eingefügt. Wie müßte der Code umgestellt werden, wenn ich z.B. alle Ergebnisse von 1, A, B in Spalte C der Tabelle "Anzeige" und aus C-F (gesteuert über die Klappfenster) in Spalte E -E6 bis E25- eingefügt haben möchte. Habe schon diverse Dinge verändert, allerdings wird mir immer wieder alles in C6-C25 hineinkopiert. In der Folge die auszugsweisen Codes. Danke schon jetzt allen wieder für die Rückmeldung.
Herzliche Grüße
Wolfgang
Sub Thema1_suchen()
Application.ScreenUpdating = False
Sheets("Steuerung").Select
Pos_Thema = Range("E1")
Range("B1:B5000") = 0
Thema_titel = Range("A" & Pos_Thema)
If Thema_titel = "" Then Call zurueck: Exit Sub
Cells.Find(What:=Thema_titel, after:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:= _
xlByRows, SearchDirection:=xlNext, MatchCase:=False). _
Activate
If Thema_titel = "" Then buchst_zeile = ActiveCell.Row: Sheets("neu"). _
Select: Range("C8:C9") = "": Range("C6") = Thema_titel: [C8].Select: Exit Sub
If Thema_titel = "" Then buchst_zeile = ActiveCell.Row: Sheets("neu"). _
Select: Range("C8:C9") = "": Range("C6") = Thema_titel: [C8].Select: Exit Sub
If Thema_titel = "" Then buchst_zeile = ActiveCell.Row: Sheets("neu"). _
Select: Range("C8:C9") = "": Range("C6") = Thema_titel: [C8].Select: Exit Sub
If Thema_titel = "" Then buchst_zeile = ActiveCell.Row: Sheets("neu"). _
Select: Range("C8:C9") = "": Range("C6") = Thema_titel: [C8].Select: Exit Sub
If Thema_titel = "" Then buchst_zeile = ActiveCell.Row: Sheets("neu").Select: _
Range("C8:C9") = "": Range("C6") = Thema_titel: [C8].Select: Exit Sub
If Thema_titel = "" Then buchst_zeile = ActiveCell.Row: Sheets("neu"). _
Select: Range("C8:C9") = "": Range("C6") = Thema_titel: [C8].Select: Exit Sub
If Thema_titel = "" Then buchst_zeile = ActiveCell.Row: Sheets("neu"). _
Select: Range("C8:C9") = "": Range("C6") = Thema_titel: [C8].Select: Exit Sub
Sheets("Inhalt").Select
Range("A1").Select
Cells.Find(What:=Thema_titel, after:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:= _
xlByRows, SearchDirection:=xlNext, MatchCase:=False). _
Activate
Call Ergebnis
Application.ScreenUpdating = True
End Sub
Sub Ergebnis()
Dim rngBereich As Range
Dim lngZeile As Long
Application.ScreenUpdating = False
Sheets("Inhalt").Select
Sheets("Anzeige").Unprotect ("a21")
Set rngBereich = Sheets("Anzeige").Range("C5:C25")
lngZeile = rngBereich.Row
Do
lngZeile = lngZeile + 1
Loop Until Sheets("Anzeige").Cells(lngZeile, rngBereich.Column) = "" Or _
lngZeile > rngBereich.Row + rngBereich.Rows.Count
If lngZeile