Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1912to1916
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
1912to1916
1912to1916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spaltenwerte in Zeile suchen per VBA

Spaltenwerte in Zeile suchen per VBA
12.01.2023 08:26:53
Josef
Hallo Community,
ich habe folgendes Problem und ich hoffe ihr könnte mir wieder helfen. Das Problem dabei ist, dass es per VBA passieren muss.
Folgendes muss passieren:
Suche die Spaltenwerte in R3:R15 in der Zeile B2:N2. Wenn Werte gefunden wurde, dann trage überall "vorhanden" ein, wenn die Zelle nicht bereits befüllt ist und wenn Zelle in Spalte A nicht leer ist.
In der angehängten Datei ist ein Bsp. mit Ergebnis
https://www.herber.de/bbs/user/157222.xlsx
Vielen Dank für eure Hilfe

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spaltenwerte in Zeile suchen per VBA
12.01.2023 08:59:49
Alwin
Hallo Josef,
vielleicht so:

Sub Uebertragen()
Dim Suchwert As Range, i&, j&
With Tabelle1
.Range("A3:N17").Copy
.Range("A21").PasteSpecial xlPasteValues
For i = 2 To 14
Set Suchwert = .Rows(2).Find(.Cells(i, 18))
If Not Suchwert Is Nothing Then
For j = 3 To 14
If .Cells(j, 1)  "" And Not .Cells(j, Suchwert.Column)  "" Then
.Cells(j + 18, Suchwert.Column) = "vorhanden"
End If
Next j
End If
Next i
End With
End Sub
Ich hoffe ich habe es richtig verstanden.
Gruß Uwe
AW: Spaltenwerte in Zeile suchen per VBA
12.01.2023 09:23:31
Josef
Hallo Uwe,
das ist fast richtig.
Das Ergebnis soll in der oberen Hälfte eingefügt werden. Das in der unteren Hälfte war nur eine Info, damit ihr wisst wie ich mir das Ergebnis in der oberen Hälfte vorstelle. Könntest du den Code noch einmal überarbeiten? Außerdem erkennt dieser Code eine leere Zelle in Splate R als Wert an, weshalb es auch den Text in eine leere Spalte zurückschreibt (Spalte "O")
Anzeige
AW: Spaltenwerte in Zeile suchen per VBA
12.01.2023 10:02:27
Alwin
dann so:

Sub Uebertragen()
Dim Suchwert As Range, i&, j&
With Tabelle1
For i = 2 To 14
Set Suchwert = .Rows(2).Find(.Cells(i, 18))
If Not Suchwert Is Nothing Then
For j = 3 To 14
If .Cells(j, 1)  "" And Not .Cells(j, Suchwert.Column)  "" Then
If Suchwert  "" Then .Cells(j, Suchwert.Column) = "vorhanden"
End If
Next j
End If
Next i
End With
End Sub
Gruß Uwe
AW: Spaltenwerte in Zeile suchen per VBA
12.01.2023 10:14:10
Josef
Ist zwar etwas langsam bei einer größeren Datenbank, aber es funktioniert.
Vielen Dank
AW: Spaltenwerte in Zeile suchen per VBA
12.01.2023 10:29:36
Alwin
Mit der selben Vorgehensweise kann man das über Array erledigen.
Tabelle von der 1 . bis zur letzten beschriebenen Zeile/Spalte in ein Array einlesen. Mit dieser Prozedur das Array bearbeiten und in einem Block alles wieder zurückschreiben.
Das geht dann schneller.
Gruß Uwe
Anzeige
AW: Spaltenwerte in Zeile suchen per VBA
12.01.2023 10:42:41
Josef
Habe leider keine Ahnung was du meinst 😬
AW: Spaltenwerte in Zeile suchen per VBA
12.01.2023 15:29:46
Herbert_Grom
Hallo Josef,
dann probiers mal damit. Aufgebaut auf Rudis Code, wird alles in ein Array eingelesen und am Ende in die Liste geschrieben. Du musst die #"Range"-Angaben an deine Originaldatei anpassen.
https://www.herber.de/bbs/user/157236.xlsm
Servus
AW: Spaltenwerte in Zeile suchen per VBA
13.01.2023 08:54:39
Alwin
@ Herbert_Grom
Bin aber nicht Rudi sondern ...
Gruß Uwe
AW: Spaltenwerte in Zeile suchen per VBA
16.01.2023 12:44:52
Josef
Hallo Herbert,
ich konnte deinen Code mittlerweile testen und will dich nur informieren, dass es geklappt hat und es nun viiiiiel schneller ist. Vielen Dank.
Anzeige
AW: Spaltenwerte in Zeile suchen per VBA
18.01.2023 11:53:56
Josef
Hallo Herbert,
ich muss dich deswegen leider noch einmal belästigen. Ich habe versucht deinen Code auf die Original Liste abzuändern, und bekomme ständig die Meldung, dass der Index außerhalb des Bereichts liegt. Dabei wird mir die Zeile 'arrDaten(j - 2, Suchwert.Column - 1) = "GZ" markiert.
Daher habe ich die Testdatei mal an meine Originaldatei angepasst und hoffe, dass du mir den Code umschreiben könntest.
Was hat sich geändert:
- Spalte A ist nun in Spalte D
- Datumszeile hat sich geändert
- Der Datensatz beginnt erst ab Zeile 25 statt Zeile 3
- Der Suchwert ist nun nicht auf dem selben Tabellenblatt, sondern in der Tabelle2
Danke schon mal vorab für deine Hilfe.
PS: Du könntest mir die Funktion der einzelnen Zeilen in deinem Code beschreiben, vlt. bekomme ich den Code dann selber umgeschrieben
Anzeige

312 Forumthreads zu ähnlichen Themen

Letzte beschriebene Zeile suchen
Thomas3

Guten Morgen zusammen,
ich muß aus über 1000 Listen Daten auslesen. Das ist kein Problem.
Jede Liste sollte so beschrieben werden, dass ab Zeile 13 bis je nach Eintragungen x-Zeile Spalte O gefüllt ist.
In der Spalte 1 ist in der Datenliste eine Formel hinterlegt, die sichtbar aut...
19.08.2008 08:29:00
Thread-ID: 1002780
10 Beiträge
Anzeige
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:17:00
Thread-ID: 1017692
4 Beiträge
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:28:24
Thread-ID: 1017698
2 Beiträge
Anzeige
VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
letzte benutzte Zeile eines Namens-Bereichs
Klaus

Hallo Forum,
wie bringe ich die letzte benutzte Zeile eines benannten Bereichs in eine Variable?
Beispiel:
Bereichsname = Testfeld
Name Testfeld besteht aus Text, Formeln und Datümern
Formeln dürfen NICHT gefunden werden
Mit
LAST = Cells.Find(What:="*", After:=[A1],...
23.11.2008 19:43:00
Thread-ID: 1027146
11 Beiträge
Letzte Zeile mit bestimmten Wert finden
Harald

Hallo und schönen Abend
Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
Sub Find_Last(FindString As String) Dim Rng A...
07.12.2008 19:37:02
Thread-ID: 1030899
3 Beiträge
Letzte Leere Zelle in Spalte C
Wacker

Ich habe eine Spalte "C" in der Zahlen fortlaufend erfasst werden.
Bin bereits hier bei Zelle C4500.
Ich müsste jetzt Wissen wie kann ich die Letzte Zelle in der Spalte "C" finden, in der noch keine Zahl Eingetragen ist.
Und dann benötige ich noch für diverse Berechnungen, die Forme...
07.12.2008 22:23:00
Thread-ID: 1030940
9 Beiträge
VBA letzte Zeile Ermitteln
Gerhard

Hallo!
Habe ein kleines Problem. Lasse über VBA die letztz Zeile ermitteln.
intPosAktionNummerEnde = Range("K65536").End(xlUp).Offset(0, 0).Row
Das funktioniert immer nur jetzt habe ich in den Zellen eine Formel stehen, die soll aber nicht gezählt werden nur wenn eine Zahl drinnen s...
14.01.2009 17:52:00
Thread-ID: 1039758
5 Beiträge
Anzeige

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