Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1712to1716
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
1712to1716
1712to1716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile nach Wert durchsuchen

Zeile nach Wert durchsuchen
01.10.2019 13:22:14
Pascal
Hallo zusammen
Mein erster Eintrag. Ich habe schon viel von diesem Forum profitiert, danke erstmal dafür.
Ich habe folgendes Problem: Ich habe eine Makro welches meine Daten wunderbar sortiert etc. Resultat ist das file im Anhang. Als letztes i-Tüpfelchen müsste ich nun (in diese file) alle Zeilen von K-AG nach p, sp, stp und gw durchsuchen. Wenn p, sp, stp und gw vorkommen, müsste in der Spalte H derselben Zeile der Tabellenheader (Zeile 2 ) der Spalte in welcher das p, sp, stp und gw vorkommt stehen. Bei mehrfachen p, sp, stp und gw am besten mit ; getrennt (muss aber nicht sein). Im Anhang 2 ein file wie das Endresultat optimalerweise ausschaut...
Wenn hier jemand Hilfestellung leisen könnte wäre das grossartig!
132308.xlsm
132309.xlsm
Liebe Grüsse, Pascal

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile nach Wert durchsuchen
01.10.2019 15:44:00
fcs
Hallo Pascal,
konnte deine Datei hier jetzt nicht hochladen - systembedingt.
Ein MAkro sieht etwa wie folgt aus.
LG
Franz 
Sub SpalteH_ausfuellen()
Dim Zeile_H As Long
Dim Zeile As Long
Dim strH As String
Dim Spalte As Long, Spa1 As Long, Spa2 As Long
Dim wks As Worksheet
Dim arrSuch, iSuch As Integer
Dim StatusCalc As Long
Set wks = ActiveSheet
arrSuch = Array("p", "sp", "stp", "gw") 'Array mit zu suchenden Werten
Zeile_H = 2 'Zeile mit Spalten-Header
Spa1 = 11 'Spalte K - 1. zu durchsuchende Spalte
Spa2 = 33 'Spalte AG - letzte zu durchsuchende Spalte
With Application
.ScreenUpdating = False
StatusCalc = .Calculation
.Calculation = xlCalculationManual
End With
With wks
For Zeile = Zeile_H + 1 To .UsedRange.Row + .UsedRange.Rows.Count - 1
strH = ""
For Spalte = Spa1 To Spa2
For iSuch = LBound(arrSuch) To UBound(arrSuch)
If .Cells(Zeile, Spalte).Value = arrSuch(iSuch) Then
If strH = "" Then
strH = .Cells(Zeile_H, Spalte).Value
Else
strH = strH & ";" & .Cells(Zeile_H, Spalte).Value
End If
End If
Next iSuch
Next Spalte
'Ergebnis in Spalte H eintragen
If strH = "" Then
.Cells(Zeile, 8).ClearContents
Else
.Cells(Zeile, 8).Value = strH
End If
Next Zeile
End With
With Application
.ScreenUpdating = True
.Calculation = StatusCalc
End With
End Sub

Anzeige
AW: Zeile nach Wert durchsuchen
02.10.2019 15:33:50
Pascal
Super! Vielen Dank, Franz

300 Forumthreads zu ähnlichen Themen

Array benennen nach Zellwerten
chris

Hallo VBA Experten,guten morgen.
habe eine frage und zwar wie ist es möglich ein Array zu benennen ?
Momentan habe ich es so...
Dim kriterien(20)
Dann wenn ich in den Debugger gehe steht dort
kriterien(0)
kriterien(1)
kriterien(2)
usw...
Wie erreiche ich es...
13.08.2008 06:52:02
Thread-ID: 1001351
5 Beiträge
Anzeige
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Anzeige
Wert suchen, eintragen, weitersuchen (VBA)
Nico

Moin
Nachdem ich Gestern mein Problem mit einem Sverweis über mehrere Zellen lösen wollte (Danke nochmal an Josef Ehrensberger) habe ich heute feststellen dürfen, dass es zwar funktioniert - aber die Verzögerung auf Grund der Masse an Daten doch zu hoch ist.
Hier also mein Problem zieml...
26.02.2009 09:19:15
Thread-ID: 1054225
11 Beiträge
suchen kopieren einfügen vba
Bea

Hallo zusammen
Ich hab folgendes Problem.
in der angehängten Beispielmappe möchte ich, das die in Arbeitsblatt "Nummern" hinterlegten Anfänge von Telefonnummern in Arbeitsblatt "evnachweis" gesucht die jeweiligen Zeilen kopiert und dann in Arbeitsblatt in dem Fall "Februar" (am besten...
10.03.2009 11:55:49
Thread-ID: 1058557
9 Beiträge
Spalte nach Wert >10 durchsuchen und Wert ausgeben
Ron

Hallo Leute,
ich benötige wieder mal Hilfe bei der Umsetzung einer Idee. Ich habe in einem Tabellenblatt in einer Spalte (A) 20 absteigende Werte in Prozent. In Spalte B habe ich in ganzen Zahlen die Treffer aus meiner Datenbank zugeordnet. Jetzt möchte ich Spalte B von oben nach dem ersten...
05.05.2009 14:44:46
Thread-ID: 1073093
9 Beiträge
String im Array suchen und Treffer anzeigen
Udo

Hallo,
ich bräuchte mal Eure fachmännische Hilfe.
Ich möchte einen Begriff aus einer TextBox in 12 verschiedenen Tabellenbättern suchen, und die gefundenen Einträge mit den entsprechenden Tabellenblatt-Namen anzeigen lassen.
Meine bisherigen "Versuche" lassen mich verzweifeln ...
29.11.2009 00:45:36
Thread-ID: 1120753
24 Beiträge
Listbox nach Wert durchsuchen
SteffenS

Hallo Zusammen,
ich habe in einer Listbox (Userform) ca. 60 Werte stehen.
Durch einen Aufruf möchte ich gern prüfen ob dieser Eintrag den übergebenen Wert enthält.
Bsp.:
Listbox:
Eintrag 4578 Adam
Eintrag 7895 Meier
Eintrag 8579 Müller
Per Makro möchte ich nun pr...
01.12.2009 22:46:00
Thread-ID: 1121305
3 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
4
2
12
1
5
10
8
8
23
2
3
9
4
1
3
4
3
1
6
6
4
12
3
4
2