"Summieren" von Textinhalten für mehrere Zeilen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] "Summieren" von Textinhalten für mehrere Zeilen

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

Autor

Nachricht

owulsch
Newbie
Newbie

Anmeldedatum: 28.04.2008
Beiträge: 5

Verfasst am: 28.04.2008, 17:03

Hallo ich habe ein Problem mit dem summieren von Textinhalten.

Ich habe eine Tabelle (siehe Angang mit 76 Zeilen). In dieser möchte ich Spalte C und D auslesen und je nach Ergebnis den Text aus Spalte A hintereinander aufreihen

z.b. Wenn für die erste Zeile in Spalte C ein "C1" steht und in Spalte D ein "x" ist, dann soll er den Text aus Spalte A nehmen und dann weiter runter gehen. Wenn das nicht übereinstimmt soll er eine Zeile weiter runter gehen. Ich habe das auch schon mal mit einer einfachen wenn-Funktion versucht. Wenn ich dies jedoch für alle 76 Zeilen machen will, muss ich 76 mal die Funktion ändern. Darum meine Frage geht es auch leichter? Besten Dank Odine

test.xls

Beschreibung:

Download

Dateiname:

test.xls

Dateigröße:

14 KB

Heruntergeladen:

22 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5564

Verfasst am: 28.04.2008, 17:48

Hallo!

Von Hause aus kann Excel sowas nicht; dazu brauchst du VBA.
Hier wäre eine Möglichkeit mit einer benutzerdefinierten Funktion:
Kopiere diesen Code in ein allgemeines Modul (Alt+F11 > Einfügen > Modul):

Code:

Function Spezial(Ausgabe As Range, Such1 As Range, Krit1 As String, Such2 As Range, Krit2 As String)
Dim i As Long
For i = 1 To Ausgabe.Count
If Such1(i) = Krit1 And Such2(i) = Krit2 Then Spezial = Spezial & Ausgabe(i) & ","
Next i
Spezial = Left(Spezial, Len(Spezial) - 1)
End Function

Nun steht dir in der Tabelle die Funktion "Spezial" zur Verfügung, die du folgendermaßen ausführen kannst:

=spezial(A2:A100;C2:C100;"C1";D2:D100;"x")

sucht nach "C1" in Spalte C, nach "x" in Spalte D und verkettet die entsprechenden Einträge aus Spalte A.

_________________

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

owulsch
Newbie
Newbie

Anmeldedatum: 28.04.2008
Beiträge: 5

Verfasst am: 29.04.2008, 10:32

Vielen Dank für die schnelle Antwort. Leider bekomme ich eine Fehlermeldung für die Formel ("Name"). Hast Du eine Idee woran das liegen kann? Viele Grüße Odine

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5564

Verfasst am: 29.04.2008, 10:45

Hallo!

Da kann ich nur raten:
Entweder hast du den Code an eine falsche Stelle kopiert und die Funktion wird daher nicht erkannt, oder es liegt an einem simplen Tippfehler.
Bei mir läuft's...

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

owulsch
Newbie
Newbie

Anmeldedatum: 28.04.2008
Beiträge: 5

Verfasst am: 29.04.2008, 11:02

Sorry habe den Code ins falsche Tabellenblatt kopiert - noch mal vielen Dank!!!

owulsch
Newbie
Newbie

Anmeldedatum: 28.04.2008
Beiträge: 5

Verfasst am: 29.04.2008, 11:32

Habe da noch eine kleine Frage Wink

Wie kann ich noch den Zusatz einbetten, dass wenn keine A,B ... gefunden werden die den Kriterien entsprechen die Ausagen kommt "keine Kriterien vorhanden"? Vielen Dank Odine

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5564

Verfasst am: 29.04.2008, 11:45

Hallo!

Teste mal dies:

Code:

Function Spezial(Ausgabe As Range, Such1 As Range, Krit1 As String, Such2 As Range, Krit2 As String)
Dim i As Long
For i = 1 To Ausgabe.Count
If Such1(i) = Krit1 And Such2(i) = Krit2 Then Spezial = Spezial & Ausgabe(i) & ","
Next i
If Spezial = "" Then
Spezial = "Keine Kriterien vorhanden"
Else
Spezial = Left(Spezial, Len(Spezial) - 1)
End If
End Function

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

owulsch
Newbie
Newbie

Anmeldedatum: 28.04.2008
Beiträge: 5

Verfasst am: 29.04.2008, 12:03

Funktioniert super danke für die schnelle Antwort...

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
	Datenreihen "per Knopfdruck"...	jdbug1	Microsoft Excel Hilfe	0	06.09.2008, 23:46
	Menü "Seitenzahlen einfügen"...	Adrienne77	Microsoft Word Hilfe	4	03.09.2008, 16:42
	Zeilen einfärben	Metzei	Microsoft Excel Hilfe	2	03.09.2008, 16:40
	zeilen/spalten mit +/- ein und ausble...	tanzschaf1000	Microsoft Excel Hilfe	2	01.09.2008, 12:23
	Excel wandelt "FRA" automat...	lydi1981	Microsoft Excel Hilfe	2	31.08.2008, 19:16

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