Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2025 17:14:01
Sverweis auf Formelergebnis bringt #NV Fehler
24.04.2025 15:14:32
Automatische Aufteilung anteilige Umsätze nach Mitarbeitern
24.04.2025 14:42:47
nur bei Filter aufheben:gleiche Daten,unterschiedliche Dauer
24.04.2025 13:27:40
Wenn alle Monate ausgewählt, dann leer lassen statt 1 -
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrfache Abfrage

Forumthread: Mehrfache Abfrage

Mehrfache Abfrage
22.09.2003 16:30:33
Norb
Hallo Profis

Ich habe zwei Tabellen mit unterschiedlichen Daten. In einer dritten Tabelle sollen nur diese Daten eingetragen werden, die bestimmte Kriterien erfüllen.

In Worten soll es etwa so aussehen:
Wenn Zelle1 < Zelle2 und Zelle3 > Zelle4 und Zelle5=Zelle6, dann übertrage den Inhalt von Zelle7 in die nächste frei Zelle dieser (3.)Tabelle (Spalte)

Kann mir irgendjemand sagen, wie hierzu die Syntax aussehen soll?

Oder ist dies nur mit VBA zu lösen?

Vielen Dank mal, Jungs...

Gruß Norb
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Anwendung
Tags
#datanabfrage #datenübertragung #vba
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Mehrfache Abfrage
22.09.2003 16:44:44
Guido Palacios
In VBA würde das ungefäir wie folgt aussehen:

---------------------------------------------
private sub

if tabelle1.cells(1,1) < tabelle1.cells(2,1) AND tabelle1.cells(3,1) > tabelle1.cells(4,1) AND tabelle1.cells(5,1) = tabelle2.cells(6,1) then
"tabelle3.cells(1,1) = tabelle1.cells(7,1)" oder "Ergebnis = tabelle1.cells(7,1)
tabelle3.cells(1,1) = Ergebnis"
endif

end sub
---------------------------------------------
Auf Tabellenblatt1 befindet sich: Zelle 1,2,3,4,5,7
Auf Tabellenblatt2 befindet sich: Zelle 6
Auf Tabellenblatt2 befindet sich: Zelle Ergebniss

Hoffe ich konnte helfen!

Guido
Anzeige
AW: Mehrfache Abfrage
22.09.2003 17:10:09
Norb
Hallo Guido.

Mit Deinem VBA-Vorschlag könnte es wahrscheinlich hinhauen, aber ich hab grad festgestellt, das ich das Problem etwas anders darstellen muss. Es sollen nämlich nicht nur einzelne Zellen abgefragt werden sondern ganze Spalten bzw. Datenbereiche.

Also eher so...

Wenn du in Spalte 4 der Tabelle 2 einen Wert findest, der Kleiner ist als der Vergleichswert X in Tabelle 1, dann schreibe den Inhalt der Spalte 1 dieser zeile (von Tabelle 2) in die nächste freie Zeile der Ergebnistabelle.

Vielleicht kann mir ja irgendjemand folgen ?

Trotzdem mal Danke, Guido !!!

Gruß Norb.
Anzeige
AW: Mehrfache Abfrage
22.09.2003 17:30:19
Guido Palacios
Hoi!!

Aso!!
Dann wie folgt:

----------------------------------
private sub

dim i as integer
dim zeile as integer

zeile = 1

for i = 1 to 65536 '(letzte Zeile)
if tabelle2.cells(i, 4) < tabelle1.cells(1,1) then
if not isnull(tabelle3.cells(zeile, 1)) = true then
tabelle3.cells(zeile,1) = tabelle2.cells(i, 1)
zeile = zeile + 1
else

endif
else
exit sub
endif
next i

end sub
-------------------------------

Glaube so müsste es jetzt richtig sein!!!

CYA
Anzeige
AW: Mehrfache Abfrage
23.09.2003 12:19:03
Norb
Hi.

Also erstmal Dankeschön für deine Hilfe.
Ich hab nun im ersten Arbeitsblatt nen Command Button platziert, der diese Aktion auslösen soll und habe dort den Code ensprechend eingegeben. Allerdings regt sich leider noch gar nix...

Vielleicht hast Du ja ne Ahnung was ich falsch mach ?!

Gruß Norb
Anzeige
AW: Mehrfache Abfrage
23.09.2003 13:32:52
Guido Palacios
Ich bräuchte noch genaue Fehlermeldungen....
als ich es bei mir eingab kam eine Überlauf meldung (wegen falschen Datentyp long statt int) und bei mir auch nur 1 Tabellenblatt vorhanden...

Folgende Änderung:
-----------------------------------


Private Sub CommandButton1_Click()
Dim i As Long
Dim zeile As Integer
zeile = 1
For i = 1 To 100 '(65536 letzte Zeile)
If Tabelle2.Cells(i, 4) < Tabelle1.Cells(1, 1) Then
If Not IsNull(Tabelle3.Cells(zeile, 1)) = True Then
Tabelle3.Cells(zeile, 1) = Tabelle2.Cells(i, 1)
zeile = zeile + 1
Else
End If
Else
Exit Sub
End If
Next i
End Sub

-------------------------------

so...
stell sicher das du auch 3 Tabellenblätter hast.
Dann geb im Tabellenblatt1 von A1-A5 "1-5" ein und
im Tabellenblatt2 von A1-A5 "5-1" ein...
Dann Click Button Drücken und auf Tabellenblatt3 ergebnis ankucken...
Es wird dann im Tabellenblatt3 A1-A5 mit 1-5 belegt...
Anzeige
AW: Mehrfache Abfrage
23.09.2003 13:38:11
Norb
Danke, so funkts...

Gruß Norb

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige