Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1656to1660
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
1656to1660
1656to1660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Matrix per Makro Wert suchen

Matrix per Makro Wert suchen
14.11.2018 15:29:24
philipp
Hallo allerseits,
ich habe eine Matrix, hier soll der Wert der in der "Start" Tabelle
in "E27" und "E28" steht, gesucht werden.
Es können auch Werte z.b. 4323 stehen, soll natürlich bzw. abgerundet werden.
Zur besseren Übersicht habe eine Muster erstellt.
https://www.herber.de/bbs/user/125384.xlsx
gruß
philipp

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Matrix per Makro Wert suchen
14.11.2018 16:05:46
Hajo_Zi
Hallo Philipp,
das geht nicht, da eine XLSX Datei kein Makro enthalten kann.
Ich sehe keinen Grund eine Datei 2x zu speichern. Ich führe keine Liste unter welchem Dateinamen ich die Datei gespeichert habe.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
AW: OK Hajo, hier kommt Datei mit Makro
14.11.2018 16:53:32
Hajo_Zi
Hallo Philipp,
Option Explicit
Sub Suchen()
Dim RaFound As Range
With Worksheets("Matrix-Auswahl")
Set RaFound = .Range("C6:M15").Find(Worksheets("Start").Range("H26"), , xlFormulas, _
xlWhole, , xlNext)
If Not RaFound Is Nothing Then
MsgBox RaFound.Address
End If
End With
End Sub
Gruß Hajo
Anzeige
AW: OK Hajo, hier kommt Datei mit Makro
14.11.2018 17:09:14
philipp
Hallo Hajo,
es wird immer M16 angezeigt, es sollte jedoch der Wert in die "start" H26 reingesetzt werden.
In der Start E27 steht der Wert z.b. hier 4000 von links nach rechts in der Zeile 5 und in
E28 steht 3000 hier sollte der Wert aus B5-B16 Bezug sein.
gruß
philipp
Ist nich schlimm aber ich würde gern...
14.11.2018 17:34:17
Philipp
Hallo Hajo,
Danke für die Info aber ich würde gern per Makro die Auswertung
durchführen, da ich die Tabelle auch Kollegen gebe.
Gruß
Philipp
Anzeige
Ist nich schlimm aber ich würde gern...
14.11.2018 17:34:18
Philipp
Hallo Hajo,
Danke für die Info aber ich würde gern per Makro die Auswertung
durchführen, da ich die Tabelle auch Kollegen gebe.
Gruß
Philipp
AW: Ist nich schlimm aber ich würde gern...
14.11.2018 17:36:15
Werner
Hallo Philipp,
so: 
Private Sub CommandButton1_Click()
Dim loVertikal As Long, loHorizontal As Long
Dim raVertikal As Range, raHorizontal As Range
With Worksheets("Start")
loVertikal = .Range("E28")
loHorizontal = .Range("E27")
With Worksheets("Matrix-Auswahl")
Set raVertikal = .Columns(2).Find(what:=loVertikal, LookIn:=xlValues, lookat:=xlWhole)
Set raHorizontal = .Rows(5).Find(what:=loHorizontal, LookIn:=xlValues, lookat:=xlWhole)
End With
If Not raVertikal Is Nothing And Not raHorizontal Is Nothing Then
.Range("H26") = Worksheets("Matrix-Auswahl").Cells(raVertikal.Row, raHorizontal.Column)
End If
End With
Set raVertikal = Nothing: Set raHorizontal = Nothing
End Sub
Gruß Werner
Anzeige
Werner, danke ...aber
14.11.2018 17:48:25
philipp
Hallo Werner,
danke ! Du bist ja ein Makro Spezialist (gestern schon), ich würde gern eine Info einbauen,
wenn die Maße nicht vorhanden oder kleiner sind als in der Matrix.
würde mich freuen wenn es geht,
gruß
philipp
AW: Werner, danke ...aber
14.11.2018 17:57:06
Werner
Hallo Philipp,
mit dem Makro bekommst du nur einen Treffer, bei genauer Übereinstimmung der Maße.
Kann es auch sein, dass du z.B statt 3000 2800 eingibst? Soll dann einfach nur eine Meldung ausgegeben werden, dass diese Maß in der Matrix nicht vorhanden ist?
Gruß Werner
Ja hast RECHT...
14.11.2018 18:10:28
philipp
Hallo Werner,
genau das genügt.
Die Zeile ist "Breite" und Spalte ist "Ausfall", würde ja Sinn machen wenn es eine
Info gibt die Breite ist nicht vorhanden oder auch die Ausfall-Angabe gibt es nicht.
Ist mir gerade eingefallen, wenn ich 3333 eingebe müsste aufrunden auf 3500
oder 3679 abrunden auf 3500, geht das ?
In der Matrix werden die Zahlen immer in 500 Schritten angezeigt.
gruß
philipp
Anzeige
AW: Ja hast RECHT...
14.11.2018 18:32:39
Werner
Hallo Philipp,
ist mir noch nicht wirklich klar, wann aufrunden und wann abrunden.
Nehmen wir ein Brett:
Ich gebe ein: Länge 2350
Ich geb ein: Breite 3580
Da müssen doch beide Werte aufgerundet werden auf das nächste 500er Maß.
Gruß Werner
AW: Ja hast RECHT...
14.11.2018 19:24:32
Philipp
Hallo Werner,
Ja stimmt. Wenn aber ein Maß
3490 ist 3500
Ab 3750 ist 4000
Bis 3749 ist 3500
Gruß
Philipp
AW: Ja hast RECHT...
14.11.2018 19:47:14
Philipp
Hallo Werner,
Alles Falsch, habe Kollegen gefragt.
Es wird immer aufgerundet auf 500 Schritte.
Also 3123 ist 3500
3010 ist 3500
Gruß
Walter
Werner mal wieder Perfekt !!! Danke -)
14.11.2018 20:56:21
philipp
Gerne u. Danke für die Rückmeldung. o.w.T.
15.11.2018 08:49:55
Werner

301 Forumthreads zu ähnlichen Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Datensätze aus Blatt auslesen
bully

Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss...
02.09.2008 15:55:27
Thread-ID: 1006842
6 Beiträge
Anzeige
Werte aus Matrix auslesen j. mit richtiger Bsp.
trebor-robert

Hallo,
wie kann ich aus einer Matrix, die in einer separaten Arbeitsmappe (im Beispiel der Bereich Arbeitsmappe "B") liegt, den entsprechenden EUR Betrag auslesen, wenn in der Spalte "C" untereinander in den einzelnen Zeilen die Bemessungsgrösse 1 steht (in diesem Fall qm) und in den Spalt...
05.09.2008 13:33:00
Thread-ID: 1007667
5 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Werte aus anderem Blatt für ComboBox auslesen
mtremer

Hallo Excel-Freunde,
ich glaub ich werde verrückt.
Meine ComboBox füllt sich nicht mehr. Ich versuche den Code so zu ändern, dass die Quelle für die ComboBox wo anders stehen kann. Im folgenden Code müssen die Werte in der Spalte A der Tabelle1 stehen.
Private Sub Worksheet_Change...
17.09.2008 13:17:34
Thread-ID: 1010349
11 Beiträge
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
1
8
2
5
3
4
7
10
2
4
2
4
4
3
6
1
3
3
6
6
1
4
2
2
4