Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1492to1496
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
1492to1496
1492to1496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Suchschleife optimieren (.find ?)

VBA - Suchschleife optimieren (.find ?)
30.05.2016 11:59:42
René
Hallo zusammen,
gibt es einen kürzeren und vlt. schnelleren code für folgende Suchschleife
(im Netz bin ich bisher nicht so richtig fündig geworden)? 
Sub suchen()
Dim ws As Worksheet
Dim col As Integer, i As Integer
Set ws = ThisWorkbook.Worksheets("Sheet1")
col = 5
With ws
For i = 7 To .Cells(Rows.Count, col).End(xlUp).Row
If .Cells(i, col) = .Cells(7, 1).Value Then
.Cells(i, col + 1).Value = "Found"
End If
Next i
End With
End Sub

Beste Grüße
René

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Suchschleife optimieren (.find ?)
30.05.2016 12:36:05
Nepumuk
Hallo,
teste mal:
Option Explicit

Public Sub suchen()
    Dim objCell As Range
    Dim strFirstAddress As String
    With ThisWorkbook.Worksheets("Sheet1").Columns(5)
        Set objCell = .Find(What:=.Cells(7, 1).Value, _
            LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
        If Not objCell Is Nothing Then
            strFirstAddress = objCell.Address
            Do
                objCell.Offset(0, 1).Value = "Found"
                Set objCell = .FindNext(After:=objCell)
            Loop Until objCell.Address = strFirstAddress
            Set objCell = Nothing
        End If
    End With
End Sub

Gruß
Nepumuk

Anzeige
AW: VBA - Suchschleife optimieren (.find ?)
30.05.2016 12:48:37
René
Hey Nepumuk,
danke für die Programmzeilen.
Es läuft genau einmal durch und liefert mir beim ersten Eintrag in der betr. Spalte (=.cells(7,1)) ein Ergebnis/den Eintrag "Found".
Der Suchbegriff wird also nicht verglichen bzw. danach gesucht und an allen Stellen in der betr. Spalte mit "Found" markier.

AW: VBA - Suchschleife optimieren (.find ?)
30.05.2016 12:57:05
Nepumuk
Hallo,
mein Fehler. So geht's:
Option Explicit

Public Sub suchen()
    Dim objCell As Range
    Dim strFirstAddress As String
    With ThisWorkbook.Worksheets("Sheet1")
        Set objCell = .Columns(5).Find(What:=.Cells(7, 1).Value, _
            LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
        If Not objCell Is Nothing Then
            strFirstAddress = objCell.Address
            Do
                objCell.Offset(0, 1).Value = "Found"
                Set objCell = .Columns(5).FindNext(After:=objCell)
            Loop Until objCell.Address = strFirstAddress
            Set objCell = Nothing
        End If
    End With
End Sub


Gruß
Nepumuk

Anzeige
AW: VBA - Suchschleife optimieren (.find ?)
30.05.2016 13:08:34
René
vielen Dank Nepumuk. der code funktioniert jetzt.

AW: VBA - Suchschleife optimieren (.find ?)
30.05.2016 12:46:41
Daniel
Hi
warum nicht eine Formel einsetzen?
folgende Formel in F7 bis Datenende:
=Wenn(E7=$A$7;"Found";"")
geht natürlich auch als Makro:
Sub suchen()
Dim ws As Worksheet
Dim col As Integer
Col = 5
With ws
With .Range(.Cells(7, col + 1), .Cells(.Rows.count, col).end(xlup).Offset(0, 1))
.FormulaR1C1 = "=IF(RC" & col & "=R7C1,""Found"","""")"
.Formula = .Value
End with
end with
End Sub
Gruß Daniel

AW: VBA - Suchschleife optimieren (.find ?)
30.05.2016 12:51:33
René
Danke Daniel für den Hinweis.
Die Idee mit der Formel hatte ich auch schon. Allerdings habe ich die Befürchtung, dass die Tabelle ziemlich langsam wird, wenn vlt. viele Formeln eingetragen werden.
Oder wie verhält sich die Performance in den beiden Fällen?

Anzeige
AW: VBA - Suchschleife optimieren (.find ?)
30.05.2016 12:57:10
René
...richtig schnell scheint es auf alle Fälle zu sein. sieht nicht schlecht aus. Danke Daniel!

AW: VBA - Suchschleife optimieren (.find ?)
30.05.2016 13:03:49
Daniel
Hi
das ist verdammt schnell, denn.
1. werden in jeder Formel nur zwei einfache Zellwerte mit einander verglichen, das geht ratzfatz.
im Prinzip wäre es daher auch nicht notwendig, die Formeln durch die Werte zu ersetzen.
2. beschreibst du alle Zellen gleichzeitig (einmal mit der Formel, einmal mit dem Ergebniswert), dh die Aktionen, die Excel ausführen muss wenn sich ein Zellwert ändert (Bildschirm ändern, überprüfen ob irgendwo in einer geöffneten Excelmappe Formeln vorhanden sind, die sich auf diese Zellen beziehen und neu berechnet werden müssen) können für alle Zellen "in einem Aufwasch" abgearbeitet werden und nicht für jede Zelle einzeln.
ist im Prinzip so wie wenn du in deinem Haus die Fenster renovieren lässt.
Wenn du jedes Fenster einzeln nach einander beauftragst, dann fallen für jedes Fenster die Fahrt- und Bürokostenpauschale an.
Wenn du alle Fenster zu einem Auftrag zusammenfasst, dann gibst nur einmal Fahrt- und Bürokosten.
Gruß Daniel

Anzeige
AW: VBA - Suchschleife optimieren (.find ?)
30.05.2016 13:09:13
René
Sehr anschaulich erklärt. Vielen Dank.
Ich würde sagen, für meine Module habe ich endlich die perfekte Methode gefunden.
Traumhaft!

AW: VBA - Suchschleife optimieren (.find ?)
31.05.2016 14:20:14
René
Servus,
aufbauend auf meiner Frage gestern und den super Rückmeldungen hier muss ich leider nochmal _ fragen, warum im folgenden Code im unteren 

Set objcell = Columns(ProtocolHeadlineColResponsible).FindNext(After:=objcell)
als Resultat nach dem ersten richtigen Ergebnis u. zugehöriger Aktion ein nothing entsteht und die Schleife nicht weiter ausgeführt wird.
Hat jemand eine Idee?
Irgendwie spielt es wohl eine Rolle, dass ich in die Spalten weiter rechts Werte zum ersten Ergebnis eintrage.
        Set objcell = .Columns(ProtocolHeadlineColResponsible).Find(What:= _
TextBoxEmployeeAbbreviation.Value, _
LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
If Not objcell Is Nothing Then
strFirstAddress = objcell.Address
Do
'currentAddress = objcell.Address
v = Range(objcell.Address).Row
With .Range(.Cells(v, ProtocolHeadlineColResponsible + 7), .Cells(v,  _
ProtocolHeadlineColResponsible + 12)) '.Select
.FormulaR1C1 = "=1+1"
.Formula = .Value
End With
'.Range(currentAddress).Activate
Set objcell = .Columns(ProtocolHeadlineColResponsible).FindNext(After:=objcell)
On Error Resume Next
Loop Until objcell.Address = strFirstAddress
Set objcell = Nothing
End If

Anzeige
AW: VBA - Suchschleife optimieren (.find ?)
31.05.2016 17:14:07
Nepumuk
Hallo,
solange du die Zellen in der Suchspalte nicht änderst nicht nachvollziehbar. Kannst du mal eine Mustermappe mit ein paar Spieldaten hochladen in der ich das testen kann.
Gruß
Nepumuk

AW: VBA - Suchschleife optimieren (.find ?)
01.06.2016 08:55:54
René
Guten Morgen Nepumuk,
es ist wie verhext. Ich habe aus meiner Struktur und den zusammenhängenden Programmteilen den _ betr. code extrahiert. Nur "leider" kommt es hier nicht zum Fehler. Ich lasse nämlich das Blatt in welchem gesucht und dann etwas geschrieben wir noch via 

Worksheet_Change
kontrollieren. Hier kommt es aktuell zum Fehler.
Daher bin ich noch auf der Suche, woran des liegt. Wenn ich etwas gefunden habe und es inkl. Fehler extrahieren kann lade ich es hier noch hoch oder ich konnte den Fehler dann hoffentlich allg. lösen.
Gruß
René

Anzeige
AW: VBA - Suchschleife optimieren (.find ?)
01.06.2016 11:13:38
René
also Problem gelöst. im Teil der das Blatt kontrolliert wurden zwei weitere Makros aufgerufen die zwar keinen direkten Einfluss auf den Inhalt des Blatts haben aber dennoch die Schleife unterbrochen haben. jetzt habe ich einen anderen Weg gefunden u. Bug gelöst.
danke dennoch Nepumuk für die angebotene Hilfe!

301 Forumthreads zu ähnlichen Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 Beiträge
VBA code für automatischen Rechts-Shift
Markus

Hallo Zusammen,
hat jemand eine Idee für einen VBA code zu folgendem Problem
(siehe https://www.herber.de/bbs/user/61304.xls)
:
In Spalte S finden sich verschiedene Werte. Die Spalte S soll nun durchsucht werden. Wenn in der Zelle EUR steht, dann soll dann soll wenn dies z.B. Z...
20.04.2009 11:05:39
Thread-ID: 1069746
3 Beiträge
Anzeige
Range Bezüge in VBA von fix auf relativ umstellen
fix

Hallo Herber Fans,
ich ermittle einen Range:
Set rgGPTMember_Source = Intersect(rgGPTMemberAugmentation.Rows(1).Find("GPT Member", LookIn:=xlValues, LookAt:=xlWhole).EntireColumn, rgGPTMemberAugmentation)
Dessen Adresse lautet dann: $G$5:$G$34
Dieser Range wird nun in eine Namen...
07.01.2010 21:06:12
Thread-ID: 1128031
7 Beiträge
VBA Schleife mit Bedingung
Benjamino

Hallo zusammen,
bin ein blutiger VBA-Neuling und versuche bislang erfolglos mein Problem zu lösen. Wäre unendlich dankbar, wenn mir jemand weiterhelfen könnte.
Das unten stehende Makro "Makro2" soll solange durchlaufen werden, bis in der Spalte A im Sheet "Readme" keine befüllte Zellen...
20.03.2010 23:25:52
Thread-ID: 1147311
5 Beiträge
VBA If-Fkt mit Teilstring
Jonathan

Hallo liebe Experten,
ich bekomme es einfach nicht hin...
Ausgangssituation:
2 Dateien mit Adressdaten (1 Zeile A-H) enstpricht einer Adresse.
Jede Adresse hat in Spalte A eine Adressnummer, quasi als Primärschlüssel
Folgender Code vergleicht die Datei "Freizeitliste_XY500.x...
13.05.2010 14:52:18
Thread-ID: 1156910
7 Beiträge
Mit VBA Zugriff auf ein pdf-Dokument
Gregor

Hallo zusammen
Ich möchte in einer Excel Tabelle aus einem pdf Vornamen und Namen kopieren. Dabei muss ich in einem e-Book (pdf) nach dem Begriff "Erstellerautor" suchen, und dann die jeweiligen Namen NACH diesem Suchgegriff kopieren und in einer Excel-Tabelle einfügen. Das e-Book ist alpha...
18.08.2010 16:48:01
Thread-ID: 1172920
3 Beiträge
VBA: If-Fkt mit Teilstring - Daten aktualisieren
Joe

Hallo liebe Experten,
ich stehe mal wieder vor einer Hürde, bei der ich eure Hilfe bräuchte.
Folgender Code sucht in einer Adressdatei (adressen.xls) nach einer Nummer (Spalte Q). Diese Nummer steht in einer Zelle in welcher noch weitere, durch Komme getrennte, Nummern stehen können.
24.08.2010 13:10:36
Thread-ID: 1173865
2 Beiträge

Links zu Excel-Dialogen

TextBox

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
3
3
2
2
2
6
4
6
2
1
3
5
13
2
8
6
3
12
1
3
4
5
2
2
4