Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
996to1000
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
996to1000
996to1000
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Dann, Sonst - Ich kriegs nicht gebacken :(

Wenn Dann, Sonst - Ich kriegs nicht gebacken :(
23.07.2008 14:30:00
cNuuuuuu
Hallo miteinander,
ich hab jetzt schon den ganzen Vormittag versucht eine Lösung für folgenden Fall zu basteln, allerdings ohne Erfolg :(
Mein Makro kopiert ein paar Zeilen aus dem Internet auf ein Worksheet "Cache". (klappt schon einwandfrei)
Jetzt soll via VBA die Spalte A nach dem Wort "letzter Kurs" durchsucht werden (gibt es nur einmal in A, aber an unterschiedlichen Zellen) und wenn die Bedingung erfüllt ist die Zeile rechts davon (Bx) kopiert werden.
Bsp: "letzter Kurs" steht in A4 dann soll nur Zelle B4 in das Worksheet "Input" kopiert werden.
Wenn das Wort nicht gefunden wird, dann soll nach einem anderem Wort in Spalte A gesucht werden "nicht vorhanden" und das Wort in Worksheet "Input" kopiert werden.
Sollte keines der beiden Wörter gefunden werden, dann soll er gar nichts machen.
Wäre nett, wenn mir jemand bei der Lösung des Problems helfen könnte!
Vielen Dank schonmal im Vorraus, wer bis hierhin gelesen hat :)

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Dann, Sonst - Ich kriegs nicht gebacken :(
23.07.2008 14:41:00
Andi
Hi,
an sich kein Problem, ich hab aber noch 2 Fragen:
1.
Wenn der Begriff letzter Kurs nicht gefunden wird, dann soll nach dem Begriff nicht vorhanden gesucht werden, oder? Soll dann auch die Zelle in der entsprechenden Zeile aus Spalte B kopiert werden?
2.
Wo soll der Wert aus Spalte B hinkopiert werden? Blatt Input ist klar, aber in welche Zelle?
Schönen Gruß,
Andi

AW: Wenn Dann, Sonst - Ich kriegs nicht gebacken :
23.07.2008 15:12:28
cNuuuuuu
Hi Andi!
Danke schonmal für deine schnelle Antwort! Ich weiß, dass es ansich nicht schwer ist, aber irgendwie bin ich heute Matsch in der Birne :(
Zu 1:
Wenn der Begriff "letzter Kurs" nicht gefunden wird, dann soll nach dem Begriff "nicht vorhanden" gesucht werden, oder?
Richtig!
Zu 2:
Wo soll der Wert aus Spalte B hinkopiert werden? Blatt Input ist klar, aber in welche Zelle?
Ich arbeite u.a. auch mit einer Schleife, aber folgender Befehl für die Zelle in Worksheet "Input" klappt auch schon soweit:

Worksheets("Input").Cells(Zelle, Spalte + 4).Select
ActiveSheet.Paste


Danke schön!

Anzeige
AW: Wenn Dann, Sonst - Ich kriegs nicht gebacken :
23.07.2008 17:40:00
Andi
Hi,
sorry, ich bin heute nicht mehr dazu gekommen, mich mit Deiner Frage weiter zu beschäftigen; ich werd morgen nochmal drüber schauen. Inzwischen stelle ich die Frage mal auf offen, vielleicht findet sich ja heute noch jemand...
Schönen Gruß,
Andi

AW: If - Then - Else
23.07.2008 20:30:00
Erich
Hallo Vorname(?),
probier mal das: 

Sub Makro1()
Dim wksI As Worksheet, wksC As Worksheet, varZ 'As Variant
Dim zelle As Long, spalte As Long
zelle = 7
spalte = 1
Set wksC = Worksheets("Cache")
Set wksI = Worksheets("Input")
varZ = Application.Match("letzter Kurs", wksC.Columns(1), 0)
If IsNumeric(varZ) Then
wksI.Cells(zelle, spalte + 4) = wksC.Cells(varZ, 2).Value
Else
varZ = Application.Match("nicht vorhanden", wksC.Columns(1), 0)
If IsNumeric(varZ) Then _
wksI.Cells(zelle, spalte + 4) = wksC.Cells(varZ, 1).Value
End If
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
P.S.: Schau mal in https://www.herber.de/forum/faq.htm
(Dein Benutzername ist sicher ok (und einzigartig), aber vermutlich hast du auch einen Vornamen.)

Anzeige
AW: If - Then - Else
24.07.2008 16:40:00
cNuuuuuu
Hallo Erich!
Klar hab ich auch nen Vornamen. Da es aber ansonsten ja eher in Foren üblich ist unter seinem Nickname zu posten, bin ich davon ausgegangen, dass es hier ähnlich läuft. Jetzt weiß ich bescheid und werd zukünftig mit echtem Namen posten. ;)
Danke für den Code, mein Makro klappt jetzt nach paar Änderungen wie gewünscht! Das hät ich allein bestimmt nicht so gut hinbekommen!
Einen schönen sonnigen Tag wünsch ich euch!
Gruß Pascal

309 Forumthreads zu ähnlichen Themen

MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Anzeige
Leere Zellen Überspringen
Michael

Moin zusammen,
habe ja gestern durch euch einige Probleme lösen können:-) Danke nochmal.
Ich habe einen einfachen Makro erstellt, um den gesamten Inhalt eine Arbeitsmappe zu markieren, um die Werte dann in eine andere zu kopieren.
Range("A2:AD2").Select
Range(Selection, Selectio...
11.09.2008 10:06:00
Thread-ID: 1008990
5 Beiträge
"wenn, dann, sonst" - Frage
Oliver

Hallo,
kleines Problem,
=WENN($I$4=4;4;0) liefert mir den Wert "0"
Jetzt habe ich diese Formel folgendermaßen abgeändert:
=Wenn((Istfehler(A1);"";Wenn($I$=4;4;0))
... dies liefert mir wieder den Wert "0", obwohl Istfehler(A1) erfüllt wird -confused-
Nun meine Frage,...
11.09.2008 10:23:00
Thread-ID: 1008998
16 Beiträge
Anzeige
Warum leere Zelle "" >0 ???
Simon

Hallo,
ich verstehe das Ergebnis meiner Formel nicht ganz:
ich habe eine wenn Funkion nach folgendem Schema gemacht:
wenn(A1=5;"ok";"")
Das Ergbnis ist also entweder 5 oder eine leere Zelle. Wenn ich nun mit dieser "leeren Zelle" weiter arbeite, behandelt Excel die "" Zelle imme...
15.09.2008 10:08:00
Thread-ID: 1009683
13 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
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 Beiträge

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
5
6
4
15
5
12
2
9
2
9
4
3
10
4
2
5
5
4
2
7
7
1
5
9
1