Frage zu Wenn Dann Funktion

Hallo alle zusammen!
Ich habe folgenden Code versucht so zu gestalten, dass alle 5 folgenden Bedingungen bearbeitet werden:
"A" steht in Spalte 2 -> dann soll der Text links daneben kopiert und in wksI.Cells(zelle, spalte + 13) eingefügt werden
"B" steht in Spalte 2 -> dann soll der Text links daneben kopiert und in wksI.Cells(zelle, spalte + 14) eingefügt werden
"C" steht in Spalte 2 -> dann soll der Text links daneben kopiert und in wksI.Cells(zelle, spalte + 15) eingefügt werden
"D" steht in Spalte 2 -> dann soll der Text links daneben kopiert und in wksI.Cells(zelle, spalte + 16) eingefügt werden
"E" steht in Spalte 2 -> dann soll der Text links daneben kopiert und in wksI.Cells(zelle, spalte + 17) eingefügt werden
Wenn dort anstatt dieser Begriffe ("A", "B", usw.) in Spalte 1 "Symbol not found" gefunden wird, dann soll er in alle 5 Zellen "k.A." schreiben.


zelle = 7
spalte = 1
Set wksC = Worksheets("Cache")
Set wksI = Worksheets("Input")
varZ = Application.Match("A", wksC.Columns(2), 0)
If IsNumeric(varZ) Then
wksI.Cells(zelle, spalte + 13) = wksC.Cells(varZ, 1).Value
varZ = Application.Match("B", wksC.Columns(2), 0)
If IsNumeric(varZ) Then
wksI.Cells(zelle, spalte + 14) = wksC.Cells(varZ, 1).Value
varZ = Application.Match("C", wksC.Columns(2), 0)
If IsNumeric(varZ) Then
wksI.Cells(zelle, spalte + 15) = wksC.Cells(varZ, 1).Value
varZ = Application.Match("D", wksC.Columns(2), 0)
If IsNumeric(varZ) Then
wksI.Cells(zelle, spalte + 16) = wksC.Cells(varZ, 1).Value
varZ = Application.Match("E", wksC.Columns(2), 0)
If IsNumeric(varZ) Then
wksI.Cells(zelle, spalte + 17) = wksC.Cells(varZ, 1).Value
varZ = Application.Match("Symbol not found.", wksC.Columns(1), 0)
If IsNumeric(varZ) Then
wksI.Cells(zelle, spalte + 13) = "k.A."
wksI.Cells(zelle, spalte + 14) = "k.A."
wksI.Cells(zelle, spalte + 15) = "k.A."
wksI.Cells(zelle, spalte + 16) = "k.A."
wksI.Cells(zelle, spalte + 17) = "k.A."
End If
End If
End If
End If
End If
End If

Ich vermute, dass das irgendwie mit "else" gelöst werden muss, aber dann ergab sich bei mir immer ne Endlosschleife oder es wurden die anderen Bedingungen nicht mehr bearbeitet :(
Wäre nett wenn ihr mir weiterhelfen könntet!
Einen schönen Sonntagabend noch!
Gruß Pascal

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub tt() Dim rngc As Range Dim wksC As Worksheet, wksL As Worksheet Dim Spalte As Long, Zeile As Long Set wksC = Worksheets("Cache") Set wksL = Worksheets("Input") For Each rngc In wksC.Columns(1) Select Case rngc Case "A" To "E": wksL.Cells(Zeile, Asc(rngc) - Spalte - 50) = rnkc.Offset(0, -1) Case Else If rngc.Offset(0, -1) = "Symbol not found" Then With wksL .Range(.Cells(Zeile, Spalte + 12), .Cells(Zeile, Spalte + 17)) = "k.A" End With End If End Select Next rngc End Sub

Hallo Udo!
Ich glaube, dass ich meinen Fall zu undeutlich beschrieben habe, oder du ihn anders interpretiert hast.
Ich versuch es daher nochmal zu beschreiben:
Also es ist so, dass in Spalte 2 folgende Worte in unterschiedlichen Zeilen stehen:
"Apfel", "Birne", "Clementine", "Dattel" und "Erdbeer"
Wenn da nun "Apfel" in Zeile X steht dann soll die Zelle links daneben kopiert und in wksI.Cells(zelle, spalte + 13) eingefügt werden.
Dann soll anschließend überprüft werden, wo "Birne" in der Spalte 2 steht (z.B. in Zelle Y) und auch die Zelle links daneben soll kopiert und in wksI.Cells(zelle, spalte + 14) eingefügt werden.
Dasselbe Spiel mit "Clementine", "Dattel" und "Erdbeer" :)
Wenn nun nichts davon zutrifft dann steht da wahrscheinlich "Symbol not found" in Spalte 1, aber er kann auch generell einfach in alle 5 Zellen "k.A." schreiben. Es stehen nämlich immer alle 5 Obstsorten in Spalte 2 oder keines, nur die Zelle variiert halt...
Hoffe die Beschreibung war jetzt verständlicher... Oder muss ich die Begriffe dann nur noch irgendwo definieren? Nehme mal an, dass Case "Apfel" To "Erdbeer": nicht so funktionieren wird :)
Danke vorab für eure Hilfe!
Gruß Pascal

Sub tt() Dim rngC As Range Dim wksC As Worksheet, wksL As Worksheet Dim Spalte As Long, Zeile As Long Set wksC = Worksheets("Cache") Set wksL = Worksheets("Input") Spalte = 1 Zeile = 7 For Each rngC In wksC.Columns(1).SpecialCells(xlCellTypeConstants) Select Case rngC Case "Apfel": wksL.Cells(Zeile, Spalte + 13) = rngC.Offset(0, -1) Case "Birne": wksL.Cells(Zeile, Spalte + 14) = rngC.Offset(0, -1) Case "Clementine": wksL.Cells(Zeile, Spalte + 15) = rngC.Offset(0, -1) Case "Dattel": wksL.Cells(Zeile, Spalte + 16) = rngC.Offset(0, -1) Case "Erdbeere": wksL.Cells(Zeile, Spalte + 17) = rngC.Offset(0, -1) Case Else With wksL .Range(.Cells(Zeile, Spalte + 13), .Cells(Zeile, Spalte + 17)) = "k.A" End With End Select Zeile = Zeile + 1 Next rngC End Sub

316 Forumthreads zu ähnlichen Themen

"Wenn Zeit > 17.30 Uhr dann"

Susanne99

Hallo,
wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
Gruß
Susanne

14.09.2008 23:24:58

Thread-ID: 1009640

6 Beiträge

Vergleichen mit Funktion WENN

Uwe

Hallo liebe Forummitglieder,
ich habe ein Problem mit vergleichen von Zahlen.
Ich habe schon selbst probiert, aber das haut hinten und vorne nicht hin.
=WENN(ODER(B10=1;"100")WENN(B10=2;"200")WENN(B10=3;"300")WENN(B10=4;"400"))
Ich möchte wenn in B10 1 steht 100, bei 2 200, bei...

01.10.2008 08:25:00

Thread-ID: 1013514

9 Beiträge

Wenn Formel mit Spalte

Maris

Hi zusammen,
ist das möglich, dass ich eine Wenn-Formel auf eine Spalte und eine Zelle in der Zeile beziehe? Bsp.:
Tabelle A B C Ergebnis ERM VOLL OHNE 1 x ERM 2 x...

05.11.2008 16:30:00

Thread-ID: 1021984

6 Beiträge

Wenn Funktion mit *

Stan

Hallo,
Ich habe eine WENN Funktion eingebaut die prüft Inhalt G2 und dann multipliziert andere Zellen.
Beispiel ==WENN(G2="A12";M2*4;WENN(G2="B12";M2*2;"Fehler")). Es kommen verschiedene Werte nach A und B vor (A12, A22, A27 usw.)
Kann ich nur erste Stelle Abfragen und die nächsten...

21.11.2008 13:27:00

Thread-ID: 1026711

3 Beiträge

Wenn-Dann-Funktion als Makro

Sulley

Hallo zusammen,
ich hänge an einem Makro fest.
Matthias L und fcs (Vielen dank noch mal an dieser Stelle) haben mir mal jeder ein super makro gebaut, mit welchem ich Daten von einer Tabelle ans Ende einer anderen Tabelle schicken kann. Hat auch super geklappt.
Hier nochmal das Makro...

24.11.2008 16:47:36

Thread-ID: 1027372

11 Beiträge

Wenn-Formel mit 12 Bedingugen

Lars

Hallo.
Ich habe eine Frage zur Wenn-Formel. Ich möchte in Zelle A3 einen Wert ausgelesen bekommen.
Wenn A1 = D1 dann Wert aus D3
Wenn A1 = F1 dann Wert aus F3
usw.
Insgesamt sind es 12 bedingungen. Die Spalten liegen nicht nebeneinander.

10.12.2008 12:51:00

Thread-ID: 1031660

4 Beiträge

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Frage zu Wenn Dann Funktion

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

Links zu Excel-Beispielen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread