Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
720to724
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
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auswahl aus zwei Ranges

Auswahl aus zwei Ranges
24.01.2006 17:39:00
Wiegel
Hallo, ich habe zwei Tabellen mit folgenden Spaltenüberschriften
Tabelle 1
Beginn Range A - Ende Range A - Beginn Range B - Ende Range B - Text
100 110 1023 1025 Antwort 1
200 205 1045 1067 Antwort 2
.
.
.
Tabelle 2
Wert A - Wert B - Ausgabe aus Tab 1
107 1024 Antwort 1
125 1070 -
204 1080 -
200 1046 Antwort 2
.
.
.
In der dritten Spalte der Tab 2 soll, wenn der Wert laut Spalte A in einer Range in den Spalten A/B der Tab 1 und der Wert laut Spalte B in der danebenliegenden Range in den Spalten C/D liegt (beide Bedingungen müssen in einer Zeile gegeben sein), der Wert lt. Spalte E ausgegeben werden.
Wer hat eine Idee ?
Marcus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auswahl aus zwei Ranges
25.01.2006 10:31:19
Eugen
hi
Public 

Sub t()
For i = 2 To 65536
If Sheets(2).Cells(i, 1).Value = "" Then Exit For
szA = Sheets(2).Cells(i, 1).Value
szB = Sheets(2).Cells(i, 2).Value
For x = 2 To 65536
If Sheets(1).Cells(x, 1).Value = "" Then Exit For
If szA >= Sheets(1).Cells(x, 1).Value And szA <= Sheets(1).Cells(x, 2).Value And _
szB >= Sheets(1).Cells(x, 3).Value And szB <= Sheets(1).Cells(x, 4).Value Then
Sheets(2).Cells(i, 3).Value = Sheets(1).Cells(x, 5).Value
End If
Next x
Next i
End Sub

mfg
AW: Auswahl aus zwei Ranges
25.01.2006 17:48:28
Ferdinand
hi marcus,
mit den excel-funktionen SUMMENPRODUKT und SVERWEIS klappt das ganze gänzlich ohne VB-programmierung.
siehe dazu dein beispiel: https://www.herber.de/bbs/user/30386.xls
gruss Ferri
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige