Wert suchen und weiterrechnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

dim SuchErg as rang set SuchErg = Range("A:A").find(what:=dein Suchwert, lookin:=xlvalues, lookat:=xlwhole) if not SuchErg is nothing then Msgbox cells(sucherg.row, 2).value 'hier wird der Zahlenwert aus Spalte B ausgegeben end if

hallo Karin, hallo Daniel
Besten Dank für eure nette Hilfe!
Ich habe nun beides versucht und bin wohl immernoch zu dof dazu.
@Karin: Ich verstehe nicht ganz. Ich möchte ja (vielleicht habe ich das auch nicht klar geschrieben) dass die Werte in einer anderen Datei gesucht werden. So wie ich den Code verstehe passiert da aber nix dergleichen, oder?
Und dann ist mir noch etwas unklar. Wo kann ich definieren in welcher Spalte der Endwert ausgegeben werden soll?
@Daniel: Die Anwendung hört sich gut an, ich brauch aber noch eine kurze Nachhilfe wie ich das mache. Was meinst du mit: "4. du wechselst in den den VBA-Edior direkt-Fenster und gibst dort ein: " einfach alt + F11 und eine neue Porzedur öffnen?
und dann war mir auch noch nicht ganz klar wie ich die Zelle die Formel schreiben kann. Ich habe ja den Wert (sagen wir es wird die Zahl 100 gefunden) noch gar nicht. Somit kann ich ja auch nicht 100/5 teilen. (angenommen dies wäre meine anschliessende Rechenoperation.
bezüglich Lösung mit find: ich habe keinen Wert in Spalte B erhalten. hast du die Prozedur so programmiert, dass falls nichts gefunden wird einfach nichts passiert? und dann hab ich mich wirklich nicht sauber ausgedrückt. Die Datei mit den Suchwerten in Spalte A und den Ergebnissen in Spalte B ist nicht die selbe Datei wie da wo der Endwert nach der Rechenoperation reingeschrieben werden soll.
Nun ist mir noch folgender Gedanke durch den Kopf: Könnte es ein Problem geben, im Fall dass keine Übereinstimmung gefunden wird. Denn falls ich ja danach eine Division durchführe mag Excel das ja wohl nicht wenn es "nichts" durch 5 (Annahme) teilen müsste.
Danke für eure Hilfe und vorallem Geduld mit meinem begrenzten Wissen.
Gruss
Rainer

Sub test() Range("S2:S10").FormulaLocal = "SVERWEIS([Kundenklassifikation.xls]Stammdaten!$C$5;[07_01_CC. _ xls]Tabelle1!$A:$N;5;FALSCH)/SUMMEWENN(E:E;[Kundenklassifikation.xls]Stammdaten!$C$4;K:K)" Range("S2:S10").Formula = Range("S2:S10").Value End Sub

Hallo Karin
ja allerdings, die hätte ich jetzt also ruhig selbst noch ausfindig machen können ;-)
Jetzt hab ich noch etwas weitergetüftelt, da ich keine statischen Dateinamen und Pfade im Code möchte, sondern diese aus einem Tabellenblatt ziehen möchte.
Ich kann die entsprechenden Dateien wo der Sverweis geschieht und reingeschrieben wird problemlos öffnen. Ich schaffte es aber nicht, die formel so anzupassen, dass ich dort auch die Variable drin habe. Ich habe versucht den Dateinamen "SVERWEIS([Kundenklassifikation.xls]Stammdaten!" durch "SVERWEIS([wbkQuelle]Stammdaten!" zu ändern. Das gefällt ihm aber nicht.
ich habe den folgenden code:


Sub test()
Public wbkQuelle As Workbook
Public wbkZiel As Workbook
'On Error GoTo FehlerTest
' Prüfung, ob files schon geöffnet ist
For Each wbkQuelle In Application.Workbooks
If LCase(wbkQuelle.Name) = LCase(Range("D10")) Then Exit For
Next
If wbkQuelle Is Nothing Then
Set wbkQuelle = Workbooks.Open(Worksheets("Pfade Originaldateien").Range("D10"))
End If
Workbooks("Tool_Master.xls").Activate
Sheets("Pfade Originaldateien").Select
For Each wbkZiel In Application.Workbooks
If LCase(wbkZiel.Name) = LCase(Range("D12")) Then Exit For
Next
If wbkZiel Is Nothing Then
Set wbkZiel = Workbooks.Open(Worksheets("Pfade Originaldateien").Range("D12"))
End If
Range("S2:S10").FormulaLocal = "=SVERWEIS([07_01_BD.xls]Stammdaten!$C$5;[07_01_CC.xls]Tabelle1!$ _
A:$N;5;FALSCH)/SUMMEWENN(E:E;[07_01_BD.xls]Stammdaten!$C$4;K:K)"
Range("S2:S10").Formula = Range("S2:S10").Value
End Sub

kannst du mir weiterhelfen?
sorry für die vielen Fragen, ich bin mir erst all die sachen am Aneignen und komme leider nur schrittweise weiter.
Viele Grüsse
Rainer

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wert suchen und weiterrechnen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread