bestimmte Werte aus einer Liste | Herbers Excel-Forum


Betrifft: bestimmte Werte aus einer Liste
von: Ludicla
Geschrieben am: 10.11.2009 13:24:50

Hallo Profis,
heute stehe ich wieder mal total auf dem Schlauch - hab nicht mal einen Ansatz:
https://www.herber.de/bbs/user/65728.xls
in der Preis Tabelle sollen die Bäder und die Tarife unsortiert bearbeitet werden können.
Auf den Folgeblättern sollen nur die gesuchten Werte aus dem Suchkriterium im
2. Blatte Zelle A3 erscheinen.
Vorher schon herzlichen Dank.
Gruss Ludicla.

Betrifft: AW: bestimmte Werte aus einer Liste
von: Petra
Geschrieben am: 10.11.2009 13:48:00
Hallo Ingolstädter
suchst Du das Summenprodukt?
=SUMMENPRODUKT((Preisblatt!$B$2:$B$72='Hallenbad Süd-West'!$A8) *(Preisblatt!$D$2:$D$72='Hallenbad Süd-West'!$B8)*Preisblatt!$E$2:$E$72)
Liebe Grüße von der Schanz

Betrifft: AW: bestimmte Werte aus einer Liste
von: Ludicla
Geschrieben am: 10.11.2009 13:54:42
Hallo Petra,
man soll halt aufpassen wenn man Hallenbad-Südwest schreibt -
Das mit dem Summenprodukt hilft mir schon weiter - aber ich will auch noch
den Text der Bäder rüberkriegen.
Kanns Du mir nochmal raten.
Ludicla mit vielen Grüßen aus der Schanz

Betrifft: AW: bestimmte Werte aus einer Liste
von: Petra
Geschrieben am: 10.11.2009 13:58:46
Hi Ludicla,
welchen Text? von wo nach wo? was ist das Suchkriterium?
Gruß Petra

Betrifft: AW: bestimmte Werte aus einer Liste
von: Ludicla
Geschrieben am: 10.11.2009 14:03:16
Hey Petra,
ich will vor den Preisen noch das dazugehörige Bad.
Aber Chris hat mir scheon ein Makro geschickt, das perfekt schlumpft.
Danke an alle Helfer.
Gruss Ludicla.

Betrifft: AW: bestimmte Werte aus einer Liste
von: Petra
Geschrieben am: 10.11.2009 14:05:50
Hi Ludicla
dann ist ja alles paletti. Das Ganze wäre natürlich mit einem Filter auch gegangen.
Wir sehen uns dann in der Saturn Arena.
Grüße

Betrifft: AW: bestimmte Werte aus einer Liste
von: Ludicla
Geschrieben am: 10.11.2009 14:08:54
Hey Petra,
das mit Filter oder Pivot ist mir schon klar.
Aber die Erfassung muss einfach und schnell sein und doch viele Zwecke
für Auswertungen erfüllen.
Ich muss gestehen ich war noch nie in der Saturn-Arena.
Gruss Ludicla.

Betrifft: AW: bestimmte Werte aus einer Liste
von: Chris
Geschrieben am: 10.11.2009 13:57:21
Servus Ludicla,
als Makro:

Sub tt()
Dim lngLetzte As Long
Dim rSuche As Range, rFinde As Range, strErste As String, datenArray(), lngZähler As Long,  _
ZeilenArray() As Long, x As Long, i As Long, k As Long, lngLauf As Long
lngLetzte = Sheets("Preisblatt").Cells(65536, 2).End(xlUp).Row
Set rFinde = Sheets("Preisblatt").Range("B2:B" & lngLetzte)
Set rSuche = rFinde.Find(what:=ActiveSheet.Cells(3, 1), Lookat:=xlWhole, LookIn:=xlValues)
If Not rSuche Is Nothing Then
   strErste = rSuche.Address
   Do
     ReDim Preserve ZeilenArray(x)
     ZeilenArray(x) = rSuche.Row
     x = x + 1
     zähler = zähler + 1
     Set rSuche = rFinde.FindNext(rSuche)
   Loop While Not rSuche Is Nothing And rSuche.Address <> strErste
Else
   Exit Sub
End If
ReDim datenArray(1 To zähler, 1 To 12)
For i = LBound(ZeilenArray()) To UBound(ZeilenArray())
    lngLauf = ZeilenArray(i)
    datenArray(i + 1, 1) = Sheets("Preisblatt").Cells(lngLauf, 2)
    datenArray(i + 1, 2) = Sheets("Preisblatt").Cells(lngLauf, 4)
    datenArray(i + 1, 3) = Sheets("Preisblatt").Cells(lngLauf, 5)
    datenArray(i + 1, 4) = Sheets("Preisblatt").Cells(lngLauf, 6)
    datenArray(i + 1, 5) = Sheets("Preisblatt").Cells(lngLauf, 7)
    datenArray(i + 1, 6) = Sheets("Preisblatt").Cells(lngLauf, 8)
    datenArray(i + 1, 7) = Sheets("Preisblatt").Cells(lngLauf, 9)
    datenArray(i + 1, 8) = Sheets("Preisblatt").Cells(lngLauf, 10)
    datenArray(i + 1, 9) = Sheets("Preisblatt").Cells(lngLauf, 11)
    datenArray(i + 1, 10) = Sheets("Preisblatt").Cells(lngLauf, 12)
    datenArray(i + 1, 11) = Sheets("Preisblatt").Cells(lngLauf, 13)
    datenArray(i + 1, 12) = Sheets("Preisblatt").Cells(lngLauf, 14)
Next i
For i = 1 To UBound(datenArray(), 1)
    For k = 1 To UBound(datenArray(), 2)
        ActiveSheet.Cells(i + 6, k) = datenArray(i, k)
    Next k
Next i
End Sub

Das Makro mommt in ein Modul und wird entweder über Alt+F8 und oder über extras Makros aufgerufen. Ich habe dir das in der Beispieldatei schon erledigt.
Gewünschtes Sheet aktivieren, Den Suchbegriff im aktiven Sheet (hier HallenBad Süd-West) in A3 eintragen und Makro starten.
https://www.herber.de/bbs/user/65730.xls
Gruß
Chris

Beiträge aus den Excel-Beispielen zum Thema "bestimmte Werte aus einer Liste"