Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1332to1336
1332to1336
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Quellcode

Forumthread: Quellcode

Quellcode
19.10.2013 16:19:18
Dieter_B
Hallo zusammen
Kann mir jemad den Quellcode mitteilen.
Ich habe in einer Textbox den Wert A2 stehen, welcher Variabel ist.
Dieser Wert soll abgelichen werden mit der Spalte B und D, im Beispiel C4.
Wenn die Position gefunden ist, soll der Inhalt von Spalte E4 (Beispiel) in einem Label angezeigt werden.
A B C D E
1 . . . . .
2 763,75 300,00 . 400,00 250x250x150 cm
3 . 401,00 . 600,00 350x250x150 cm
4 . 601,00 763,75 800,00 400x400x250 cm
5 . 801,00 . 1100,00 500x500x310 cm
6 . 1101,00 . 1500,00 750x750x310 cm
Dieter_B

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Quellcode
19.10.2013 20:53:15
Beverly
Hi Dieter,
Private Sub CommandButton1_Click()
Dim rngZelle As Range
Dim strStart As String
Set rngZelle = Columns("A:D").Find(CDbl(TextBox1), LookAt:=xlWhole)
If Not rngZelle Is Nothing Then
strStart = rngZelle.Address
Set rngZelle = Columns("A:D").FindNext(rngZelle)
End If
If Not rngZelle Is Nothing And rngZelle.Address  strStart Then Label1.Caption = Cells( _
rngZelle.Row, 5)
Set rngZelle = Nothing
End Sub

Anzeige
AW: Hallo Karin
20.10.2013 14:28:09
Dieter_B
Leider funktioniert der Code nicht
Dieter_B

AW: Hallo Karin
20.10.2013 14:55:48
Beverly
Hi Dieter,
kann ich nicht nachvollziehen - in meiner Datei funktioniert er.

AW: Hallo Karin
20.10.2013 19:17:15
Dieter_B
Hi Karin
Ich habe bei mir einen kleinen Fehler gefunden und behoben.
Leider stelle ich noch fest, dass der Code nicht den Variablen Wert (A2) nimmt sonder den Genauen Wert der in der Spalte B steht. Vielleicht kannst Du da bitte nochmal drauf schauen. Danke
Dieter_B

Anzeige
AW: Hallo Karin
20.10.2013 19:26:02
Beverly
Hi Dieter,
der Code nimmt den Inhalt der TextBox für die Suche, denn du hattest ja geschrieben, dass du den Wert aus A2 in der TextBox zu stehen hast. Ansonsten verstehe ich dein Problem leider nicht.

Anzeige
AW: Hallo Karin
22.10.2013 13:37:53
Dieter_B
Hallo Karin
Es ist Richtig, der Wert in A2 wird ermittelt und kommt von einer TextBox, dieser Wert ist immer unterschiedlich also VARIABEL, und nicht genau der Wert, der in der Spate B steht. Treffe ich den Wert genau (z.B.401) dann funktioniert auch Dein Code.
Ich möchte den Wert aus A2 vergleichen:
Ist der Wert größer als der Wert in Spalte B, und kleiner als in Spalte D.
Befindet sich der Wert in A2 zwischen den Werten in Spalte B und Spalte D, dann soll der Eintrag aud Spalte E in das Label eingetragen werden.
Was Dein Code auch tut, aber leider nur mit genau den Werten die in Spalte B stehen.
Treffe ich z.B. den Wert 401,00 ist es in Ordnung, habe ich den Wert 401,01 funktioniert der eintrag in das Label nicht.
Vielleicht war meine Vorstellung am Anfang nicht Richtig rübergebracht was ich möchte.
Kannst Du das Bitte noch einmal prüfen?

Anzeige
AW: Hallo Karin
22.10.2013 15:25:53
Beverly
Hi Dieter,
das ist eine andere Aufgabenstellung - in deinem Eröffnungsbeitrag musste man annehmen, dass beide Werte identisch sind.
Was mir gerade außerdem aufgefallen ist: in A2 steht 2 - also ein Wert, der weit ab von 763,75 ist. Vielleicht solltest du mal einen der Aufgabenstellsung tatsächlich angepassten Tabellenausschnitt posten. Es gibt genügend Tools, mit denen man einen Tabellenausschnitt in einem Forum posten kann - eins davon findest du auf meiner HP, Seite Komplettlösungen: Tabellendarstellung in Foren

Anzeige
AW: Hallo Karin
23.10.2013 16:46:31
Dieter_B
Hallo Karin
Erstmal danke für den Hinweis auf die Funktion eine Tabelle einzulesen.
Hier noch einmal meine Vorstellung:
Der Wert in Zelle A2 wird ermittel und ist immer Unterschiedlich.
Dieser Wert soll zwischen Spalte B und Spalte D abgelichen werden, und wo der Wert dazwischen ist (hier z.B. in der Zeile 4), soll der Eintrag in Spalte E (Beispiel E4)in einem Label angezeigt werden.
Ich hoffe Du hilfst mir hier noch einmal.
Besten Dank in Voraus.



Tabelle1
 ABCDE
1         
2763,75300  400'250x250x150 cm
3  401  600'350x250x150 cm
4  601763,75800'400x400x250 cm
5  801  1100'500x500x310 cm
6  1101  1500'750x750x310 cm
7         

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip
http://hajo-excel.de/tools.htm
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 12.03 einschl 64 Bit

Dieter_B

Anzeige
AW: Hallo Karin
23.10.2013 18:00:01
Beverly
Hi Dieter,
jetzt wird mir erst klar, was du erreichen willst. Das sollte mit folgendem Code funktionieren:
Private Sub CommandButton1_Click()
Dim varZeile As Variant
varZeile = Application.Match(Range("A2"), Columns(4), 0)
If Not IsError(Application.Match(Range("A2"), Columns(4), 0)) Then
MsgBox Cells(varZeile, 5)
Else
varZeile = Application.Match(Range("A2"), Columns(4), 1)
If Not IsError(Application.Match(Range("A2"), Columns(4), 1)) Then
MsgBox Cells(varZeile + 1, 5)
Else
MsgBox "Nicht gefunden"
End If
End If
End Sub
Beachte bitte dabei folgende Bedingung: beide Spalten sind aufsteigend sortiert. Andernfalls musst du in einer Schleife übr alle Einträge laufen unf vergleichen, ob der Wert in Spalte A &gt dem Suchwert und Spalte D &lt dem Suchwert ist - wenn das zutrifft, hast du die richtige Zeile gefunden.

Anzeige
AW: Hallo Karin
23.10.2013 20:19:54
Dieter_B
Hallo Karin
Aller Liebsten Dank, das ist genau dass was ich erzielen wollte.
Dieter_B
;

Beliebteste Forumthreads (12 Monate)

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