Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
632to636
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
632to636
632to636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn bestimmter Text dann

Wenn bestimmter Text dann
11.07.2005 12:22:25
Franz
Hallo,
wäre nett, wenn mir mal wieder jemand helfen könnte.
Ich habe im Feld A1 einen Text, der aus einer anderen Tabelle übernommen wird.
Der Text kann lauten:
Hof, Laden, Internet
Wenn in A1 Hof steht, soll in die aktuelle Zelle B1 eingefügt werden.
Wenn in A1 Laden steht, soll in die aktuelle Zelle B2 eingefügt werden.
Wenn in A1 Internet steht, soll in die aktuelle Zelle B2 eingefügt werden.
Wer kann mir helfen ? :-)
Viele Grüße
Franz Philipp

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn bestimmter Text dann
11.07.2005 12:27:38
DMoser
Ok,probiers mal damit wenn was nicht geht oder ich es falsch verstanden habe schreib zurück.

Sub ersetzen()
ende = Cells(Rows.Count, 9).End(xlUp).Row
For i = ende To 2 Step -1
If Cells(i, 1) = "Hof" Then
Range("b1") = "Hof"
End If
If Cells(i, 1) = "Laden" Then
Range("b2") = "Laden"
End If
If Cells(i, 1) = "Internet" Then
Range("b3") = "Internet"
End If
Next i
End Sub

AW: Wenn bestimmter Text dann
11.07.2005 12:32:31
Franz
Hallo,
kannst du mir das auch als Funktion basteln ? Mit den Makros hab ichs erstens überhaupt nicht (Makrosdiletant) und zweitens will ich das ganze dann als Liste machen, wo ich die Zeilen kopiere (Rechnungsformular aus einem Lieferschein.)
Im Lieferschein steht der Abgabeort und dementsprechend wird der Preis geholt.
Viele Grüße
Franz Philipp
Anzeige
AW: Wenn bestimmter Text dann
11.07.2005 12:34:16
DMoser
Kennst du dich etwas mit VBA aus?
AW: Wenn bestimmter Text dann
11.07.2005 12:49:28
Franz
Nö, ich bin komplett Unterbelichtet.
Ich versuchs aber noch mal zu erklären
Ich habe in A1 stehen über wen der Artikel vertrieben wurde (das wird per SVERWEIS aus dem Lieferschein, über die Kundennummer weiter unten, übergeben).
Dann habe ich neben dem Rechnungsformular an hand der Artikelnummer 3 Preise stehen (die werden ebenfalls per SVERWEIS aus einem Tabellenblatt anhand der Artikelnummer übergeben.).
Steht in A1 Hof, soll er den ersten Preis von rechts übernehmen
Steht in A1 Laden, soll er den Preis aus der nächsten Spalte übernehmen
Steht in A1 Internet, soll er den Preis aus der 3. Spalte einsetzen.
In der nächsten Rechnungszeile steht dann wieder eine andere Artikelnummer, die die zugehörigen Preise holt. Jetzt soll er wieder den entsprechenden Wert einsetzen.
Ich weiß, mit Erklären hab ichs nicht wirklich, aber ich krieg mit WENN und ISTTEXT(A1="Hof) immer 0 raus
Ach so, das hab ich bisheWENN(ISTTEXT(A1="Hof");B1;WENN(ISTTEXT(A1="Laden");B1;WENN(ISTTEXT(A1="Internet");C1;0)))
Kann man vieleicht daraus ablesen was ich will ?
Viele Grüße
Franz Philipp
Anzeige
AW: Wenn bestimmter Text dann
11.07.2005 12:57:57
DMoser
Ich vertshe es zum Grossteil aber lade mal etwas hoch dann kann ich die Formel oder wenn du doch noch ein Macro willst,schreiben,OK
AW: Wenn bestimmter Text dann
11.07.2005 12:58:40
Uduuh
Hallo,
da bist du auf dem falschen Dampfer! A1 ist immer ein Text und was anderes sagt dir ISTTEXT nicht.
=wenn(A1="Hof";B1;wenn(A1="Laden";C1;Wenn("A1="Internet";D1)))
Gruß aus’m Pott
Udo

AW: Wenn bestimmter Text dann
11.07.2005 13:05:34
Franz
Hallo.
Erstens bin ich blind, so wie es Udo geschrieben hat, hatte ich es vorhin, es ging aber nicht, weil ich mich in der Zahl vertippt hatte - also anstatt A1 - A10
und zweitens DANKE .... das wars was ich gesucht hatte.
Viele Grüße
Franz Philipp
Anzeige
AW: Verbesserung
11.07.2005 12:33:07
DMoser 

Sub ersetzen()
ende = Cells(Rows.Count, 1).End(xlUp).Row
For i = ende To 1 Step -1
If Cells(i, 1) = "Hof" Then
Range("b1") = "Hof"
End If
If Cells(i, 1) = "Laden" Then
Range("c2") = "Laden"
End If
If Cells(i, 1) = "Internet" Then
Range("d3") = "Internet"
End If
Next i
End Sub

300 Forumthreads zu ähnlichen Themen

Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Anzeige
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Anzeige
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Wenn feste Zeichenfolge in Textbox, dann...
Lenni

Moin Excellianer!
Im Archiv finde ich leider nichts Vergleichbares und mit der InStr-Funktion setze ich mich auch schon bezüglich meiner Fragestellung auseinander. Komme aber leider zu keinen Ergebnissen.
In einem UserForm1 steht in der Textbox1 ein beliebiger Text von beliebiger Länge....
27.04.2009 22:31:44
Thread-ID: 1071497
3 Beiträge
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Wenn Zelle enthält, dann
Rudolph

Hallo,
ich möchte mit .xls meine Kontodaten auswerten. Die Kontoauszugsdaten stehen in Spalte "D" auf dem Sheet "Kontodaten" Im selben Sheet Spalte "E" steht der Betrag. Das Sheet "Bezüge" enthält Namensfelder (z.B. "Auto" mit einer Auflistung der Tankstellen, KFZ-Versicherung o.ä.; "Lebens...
23.05.2009 14:30:40
Thread-ID: 1076853
5 Beiträge
Eintrag aus Textfeld in zelle übernehmen wenn leer
Benni

hallo,
kann mir jemand helfen, ich kenne mich mit VBA nicht wirklich gut aus.
ich möchte die Eingabe in einem Textfeld auf einer UserForm in eine Zelle auf dem Worksheets "Werte" übertragen. Problem bei der Sache ist, dass z.B. ich bei der Zelle A1 Anfange und wenn dort schon ein „Inhal...
24.06.2009 09:05:21
Thread-ID: 1083991
14 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
15
5
2
2
7
2
3
4
13
2
8
2
6
9
5
10
2
3
5
2
3
3
1
3