Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1432to1436
1432to1436
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

suchen und finden

Forumthread: suchen und finden

suchen und finden
20.06.2015 08:20:07
stef26
Hallo Zusammen,
hab da mal ne Frage...
Ich habe hier ein Macro, welches mir die Suchwerte aus Einstellungen im Tabellenblat Update sucht.
Dim vntRet As Variant
With Sheets("SAP-Update-FBG")
vntRet = Application.Match(Sheets("Einstellungen").Range("E22"), .Range(.Cells(1, 1), .Cells(1, 50)), 0)
If IsError(vntRet) Then vntRet = _
Application.Match(Sheets("Einstellungen").Range("F22"), .Range(.Cells(1, 1), .Cells(1, 50)), 0)
If IsNumeric(vntRet) Then
MsgBox vntRet
Else
MsgBox "NA#"
End If
End With
Wie muss ich es umschreiben, wenn die beiden Suchwerte öfters als einmal gefunden werden könnten?
LG
:-)
Stefan

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: suchen und finden
20.06.2015 08:28:10
Sepp
Hallo Stefan,
was soll den mit den Fundstellen geschehen, bzw. wie soll die Ausgabe aussehen?
Gruß Sepp

AW: suchen und finden
20.06.2015 19:33:37
stef26
Hallo Sepp,
ach ja ...
Es soll nur das aktuelle Datum eingetragen werden.
Gruß
Stefan

Anzeige
AW: suchen und finden
20.06.2015 19:40:53
Sepp
Hallo Stefan,
direkt in den Fundstellen? Oder darüber darunter oder wo?
Gruß Sepp

AW: suchen und finden
20.06.2015 20:42:38
stef26
Direkt an der Fundstelle.
Super dass du mir nun schon wieder hilfst.
Danke
Stefan

Anzeige
AW: suchen und finden
20.06.2015 21:55:43
Sepp
Hallo Stefan,
ungetestet!
' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub nn()
  Dim rng As Range, rngSearch As Range
  Dim strFirst As String
  
  With Sheets("SAP-Update-FBG").Range("A1:AX1")
    For Each rngSearch In Sheets("Einstellungen").Range("E22:F22")
      strFirst = ""
      Set rng = .Find(What:=rngSearch, LookAt:=xlWhole, LookIn:=xlValues, MatchCase:=False, SearchFormats:=False)
      If Not rng Is Nothing Then
        strFirst = rng.Address
        Do
          rng = Date
          Set rng = .FindNext(rng)
        Loop While Not rng Is Nothing And strFirst <> rng.Address
      End If
    Next
  End With
  
  Set rng = Nothing
  Set rngSearch = Nothing
End Sub

Gruß Sepp

Anzeige
AW: suchen und finden
21.06.2015 12:04:44
stef26
Hallo Sepp,
das Makro bleibt bei...
Set rng = .Find(What:=rngSearch, LookAt:=xlWhole, LookIn:=xlValues, MatchCase:=False, SearchFormats:=False)
stehen ?
Gruß
Stefan

AW: suchen und finden
21.06.2015 13:29:21
Sepp
Hallo Setfan,
da haben sich zwei kleine Fehler eingeschlichen.
Sub nn()
  Dim rng As Range, rngSearch As Range
  Dim strFirst As String
  
  With Sheets("SAP-Update-FBG").Range("A1:AX1")
    For Each rngSearch In Sheets("Einstellungen").Range("E22:F22")
      strFirst = ""
      Set rng = .Find(What:=rngSearch, LookAt:=xlWhole, LookIn:=xlValues, MatchCase:=False, SearchFormat:=False)
      If Not rng Is Nothing Then
        strFirst = rng.Address
        Do
          rng = Date
          Set rng = .FindNext(rng)
        Loop While Not rng Is Nothing
      End If
    Next
  End With
  
  Set rng = Nothing
  Set rngSearch = Nothing
End Sub

Gruß Sepp

Anzeige
AW: suchen und finden
21.06.2015 16:07:14
stef26
Hallo Sepp,
jetzt funktioniert es einwandfrei.
Vielen herzlichen dank
Liebe Grüße
Stefan
;

Forumthreads zu verwandten Themen

Suchen und finden
oscar

Hallo zusammen, über folgenden VBA-Code suche ich in einer Spalte.
Sub CSVAuslesen() Dim i As Integer Dim s As Variant auswahl = InputBox("Auswahl Spalte 2 = GCode") s = auswahl If auswahl = "" Then Exit Sub For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1 If Cells(i, 2).Value = s...
07.10.2008 09:46:29
Thread-ID: 1014618
3 Beiträge
mehreren Zellen in einer Zelle mit Absätzen
Christian

1. Ist es möglich, die markierten Zeilen von Screenshot 1 per Formel/Makro so zu übernehmen, das diese wie in Screenshot 2 übernommen werden? Solche Felder kommen aber öfters und auch mit einzelnen Zeilen dazwischen vor. Die Formatierung (bei Zahlen mit ,00 soll ein langer Strich stehen) sollte...
28.11.2008 15:53:49
Thread-ID: 1028725
3 Beiträge
mehrere Zellen in einer Zelle mit Absätzen II
Christian

Hi
Wir brauchen etwas ähnliches wie in diesem Script von Daniel (der uns schon sehr weitergeholfen hat!):
https://www.herber.de/bbs/user/57225.xls
Zeilen sollen zusammengefasst werden, wenn die Bezeichnung in Spalte A und B gleich sind (siehe Screenshots).
https://www.herber.de...
05.12.2008 15:47:00
Thread-ID: 1030485
7 Beiträge
Funktion SUCHEN o.ä. mit mehreren Suchbegriffen
Nico

Morjen,
sacht mal, was ist an der Syntax falsch? Ich will eine Zelle nach mehreren Begriffen durchsuchen und wenn einer dieser Begriffe enthalten ist, soll der Inhalt der Zelle ausgegeben werden.
Folgende Syntax verwende ich bisher für den Teil der Funktion SUCHEN:
=Wenn(Oder(Suchen...
19.05.2009 09:17:25
Thread-ID: 1076059
8 Beiträge
Marko zum Suchen und Ersetzen von Listenbegriffen
Listenbegriffen

Hallo Forum!
Ich verzweifele gerade (seit 2 Tagen) an einem Makro, das irgendwie nicht laufen will. Dabei klang es eigentlich relativ einfach.
Also, ich habe diverse Tabellenblätter, von denen das eine z.B. „BA2“ und ein anderes „Datenbank“ heißt. In „BA2“ stehen in Spalte A ab Zeile 5...
08.09.2009 11:56:07
Thread-ID: 1101193
7 Beiträge
Anzeige
Max.Wert mehrerer Werte in einer Zelle
Peter

Hallo Forum,
wer kann helfen?
In einer Zelle sind (5 numer. Werte) gespeichert und duch ein
Semikolon getrennt. Die Zelle kann auch Leerstrings enthalten.
z.B. 4;33;;52;12
Ich möchte den max. Wert an die Textbox 'TxtAltKWo1'
übergeben.
Danke Peter
'Zellinhalt (5...
07.11.2009 20:59:50
Thread-ID: 1115285
3 Beiträge
Inhalt von mehreren Textboxen in einer Zelle speic
mehreren

Hallo Forum,
ich möchte per VBA den Inhalt von mehreren Textboxen in einer Zelle speichern.
(mit Semikolon getrennt)
Da gibt es bestimmt eine bessere Lösung als:
Wer kann helfen?
Cells(1,1).value=TextBox1.text & „;“ & TextBox2.Text……….
Danke Peter
08.11.2009 19:48:16
Thread-ID: 1115412
2 Beiträge
Inhalt mehrerer Zellen in einer Zelle vereinen
flo

Hallo zusammen,
ich habe folgendes Problem:
Ich habe in einer Spalte viele Zellen mit Text. Die gesamten Zellen möchte ich nun in einer Zelle vereinen.
Weiß zufällig jemand wie ich das mache? Wenn ich die Zellen nur verbinde klappt das nicht, da die Inhalte dann gelöscht werden?!
01.02.2010 15:43:48
Thread-ID: 1134874
6 Beiträge
Anzeige
mehrere Werte suchen Match SCHWIERIG!!!
MarkusB.

Hallo allerseits!
Ich habe folgendes Problem:
Ich möchte das Workbook durchsuchen lassen. Die Werte die abgeglichen werden befinden sich auf dem ersten Sheets(1) in Spalte C. In diesem Fall 001 bis z.B. 321. Wenn eine Übereinstimmung auf den folgenden Sheets vorliegt (die Werte befinden...
02.02.2010 15:05:36
Thread-ID: 1134957
4 Beiträge
Anzeige
Mehrere kriterien in einer Zelle
Gallier1

Hallo
habe folgendes problem:
A1 =WENN(UND(A8=O$1;T8<=10000;U8<=10000;<b>C8="C"oder"B"oder"A</b>");O$3;"")
Der Fett dargestellte Bereich stimmt nicht in meiner Formel. Ohne diesem Bereich funktioniert sie problemlos (Dank des UMFANGREICHEN Forums) In C8 gibt es...
11.08.2010 16:15:53
Thread-ID: 1171752
11 Beiträge
TextBox Wert in Zellen suchen
urmila

Hallo zusammen,
ich habe zwar eine Lösung dafür aber es klappt nicht immer, hier die Beschilderung:
Ich habe ein USerform, da ist eine TextBox1 und einige Labels. Nun will ich wenn ich in der Textbox was eingebe, mir die Daten aus dem Tabellenblatt ausliest und die dazugehörige Daten in...
13.08.2010 08:49:26
Thread-ID: 1172069
4 Beiträge
mehrere werte in einer Zelle
knab

Hallo,
ich würde gerne in einer Zelle Ergebnisse aus mehreren zellen zusammenfassen.
Beispiel:
a1 = 30
a2= 40
a3 = 50
Ziel ist jetzt a4. Hier soll stehen 30,40,50
geht das und kann mir jemand die Formel hierfür geben.
Vielen Dank
16.09.2010 10:44:09
Thread-ID: 1178021
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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