Zelle mit bestimmten Text suchen und deren Nachbarzelle in eine andere Zelle kopieren

Computer: Software & Programmierung Office Software
#1

Hallo,

ich habe eine Spalte A, in der eine beliebige Zelle mit folgenden Text steht: „Datum der Auswertung“
Wenn diese Zelle gefunden ist, soll der Text der Nachbarzelle (also Spalte B, gleiche Zeile) in die Zelle F1 kopiert werden, auch wenn darin schon was stehen würde.
Mit Zahlen habe ich es fertiggebracht, aber mit dem Text will es nicht.
Wichtig ist zu wissen, das alle Zellen als Text formatiert sind, d.h. das Datum selbst ist nicht als Datum vorhanden, sondern als Text.
Kann mir bitte jemand helfen ?

LG Maaxl

#2

Mit Zahlen habe ich es fertiggebracht, aber mit dem Text will
es nicht.

Hallo Maaxl,

m.E. geht das nur mit Vba, zeige bitte deine Lösung wenn das ohne gehen sollte.

In ein Standardmodul:

Option Explicit

Sub Suche()
Const Such As String = "Datum der Auswertung"
Range("F1").Value = Application.VLookup(Such, Range("A:B"), 2, 0)
If Not IsError(Range("F1").Value) Then Exit Sub
MsgBox "Fehler trat auf"
End Sub

Gruß
Reinhard

#3

Hallo Reinhard,

ich habe in Spalte A die Texte und in B die Werte

Spalte A Spalte B
1 Apfel 85
2 Birne 78
3 Pflaume 36
4 Pfirsich 77
5 Datum der Auswertung 100077
6 Zwetschge 54

und in Zelle F1 folgende Formel:
=SUMME(SUMMEWENNS(B1:B10018;A1:A10018;„Datum der Auswertung“))

es wird dann wie gewollt die Zahl 100077 angezeigt
wenn ich aber statt der Zahl einen Text habe, wird der zugehörige Text nicht angezeigt, und das ist mein Problem

cu
maaxl

#4

Hallo Reinhard, hab´s nochmal reingestellt wegwn der Verschiebung Leerzeichen

ich habe in Spalte A die Texte und in B die Werte

Zeile _____ Spalte A ________________ Spalte B ___…__Spalte F __
1__________ Apfel ___________________ 85______…___100077__
2__________ Birne ___________________ 78
3__________ Pflaume _________________ 36
4__________ Pfirsich __________________ 77
5__________ Datum der Auswertung ____ 100077
6__________ Zwetschge _______________ 54

und in Zelle F1 folgende Formel:
=SUMME(SUMMEWENNS(B1:B10018;A1:A10018;„Datum der Auswertung“))

es wird dann wie gewollt die Zahl 100077 angezeigt
wenn ich aber statt der Zahl einen Text habe, wird der zugehörige Text nicht angezeigt, und das ist mein Problem

cu
maaxl

… mehr auf http://w-w-w.ms/a4d51q

#5

Grüezi maaxl

Hier mal zwei Möglichkeiten (F2 und F3)wie Du das per Formel sehr einfach und direkt lösen kannst:

Tabellenblatt: [Mappe1]!Tabelle1
 │ A │ B │ C │ D │ E │ F │ G │
──┼──────────────────────┼────────┼───┼───┼───┼────────┼───┤
1 │ Apfel │ 85 │ │ │ │ 0 │ │
──┼──────────────────────┼────────┼───┼───┼───┼────────┼───┤
2 │ Birne │ 78 │ │ │ │ 100077 │ │
──┼──────────────────────┼────────┼───┼───┼───┼────────┼───┤
3 │ Pflaume │ 36 │ │ │ │ 100077 │ │
──┼──────────────────────┼────────┼───┼───┼───┼────────┼───┤
4 │ Pfirsich │ 77 │ │ │ │ │ │
──┼──────────────────────┼────────┼───┼───┼───┼────────┼───┤
5 │ Datum der Auswertung │ 100077 │ │ │ │ │ │
──┼──────────────────────┼────────┼───┼───┼───┼────────┼───┤
6 │ Zwetschge │ 54 │ │ │ │ │ │
──┼──────────────────────┼────────┼───┼───┼───┼────────┼───┤
7 │ │ │ │ │ │ │ │
──┴──────────────────────┴────────┴───┴───┴───┴────────┴───┘
Benutzte Formeln:
F1: =SUMME(SUMMEWENNS(B1:B10018;A1:A10018;"Datum der Auswertung"))
F2: =SVERWEIS("Datum der Auswertung";A:B;2;0)
F3: =INDEX(B:B;VERGLEICH("Datum der Auswertung";A:A;0))

Tabellendarstellung erreicht mit dem Code in FAQ:2363

#6

und in Zelle F1 folgende Formel:
=SUMME(SUMMEWENNS(B1:B10018;A1:A10018;„Datum der Auswertung“))

es wird dann wie gewollt die Zahl 100077 angezeigt
wenn ich aber statt der Zahl einen Text habe, wird der
zugehörige Text nicht angezeigt, und das ist mein Problem

Hallo Maaxl

„… soll der Text der Nachbarzelle (also Spalte B, gleiche Zeile) in die Zelle F1 kopiert werden, auch wenn darin schon was stehen würde.“

dies Stelle in der Anfrage hat mich auf Vba gebracht.
Zwischenzeitlich hat dir Thomas ja schon drei Formeln gezeigt.

Gruß
Reinhard

#7

Grüezi Thomas und Hallo Reinhard,

ich habe beide Formeln von Thomas ausprobiert und …
juhu,es funktionieren beide !!!
Vielen vielen Dank für eure Hilfe, es klappt wunderbar :smile:

Schöne Grüße
maaxl