Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1408to1412
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
1408to1412
1408to1412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Findnext Methoden in einer Routine Hilfe

Mehrere Findnext Methoden in einer Routine Hilfe
20.02.2015 20:02:31
Daniel
Hallo liebe Leute,
ich habe folgendes Problem:
Ich suche in einer ersten Tabelle nach dem Auftragnehmer.
Ist dieser gefunden soll der Wert 4 Spalten weiter neben der gefunden Zelle
gespeichert werden. Dies ist die Netzplannummer
Anschließend soll Tabelle2 durchsucht werden nach dieser Netzplannummer.
Wird der Wert gefunden so soll der Auftragnehmer in einer Spalte eingetragen werden.
Kann mir jemand helfen ich kriegs nich hin.
Dim breite As String
Dim zahl As String
Dim marke As String
Dim tabellenblatt As String
Dim counter As Integer
Dim A As Range
Dim AnzahlZeilen As Integer
Dim counter_suchobjekt As Integer
Dim AnzahlSuchbegriff_Doku As Integer
Dim netzplandummy As String
Dim rng As Range
Dim rng1 As Range
Dim anzahlnetzplannr As Integer
counter_suchobjekt = "1"
Sheets("Suchobjekte").Select
AnzahlSuchbegriff_Doku = Range("A1").End(xlDown).Row
Sheets("Projektauswertung").Select
AnzahlZeilen = Range("B1").End(xlDown).Row
Sheets("Suchobjekte").Cells(1, 18).Value = "AnzahlZeilen"
Sheets("Suchobjekte").Cells(2, 18).Value = AnzahlZeilen
Sheets("Suchobjekte").Cells(1, 19).Value = "AnzahlSuchbegriff_Doku"
Sheets("Suchobjekte").Cells(2, 19).Value = AnzahlSuchbegriff_Doku
Sheets("Suchobjekte").Cells(1, 20) = "Suchobjekt"
Sheets("Suchobjekte").Cells(2, 20) = Sheets("Suchobjekte").Cells(counter_suchobjekt + 1, 1).Value
counter = "1"
zahl = "0"
'marke = AnzahlZeilen - 1
'marke = "10000"
Sheets("Projektauswertung").Select
'counter+suchobjekt +1 sollte stehen , da der erste Suchwert im Sheet Suchobjekte in Zeile 2 steht
marke = Application.WorksheetFunction.CountIf(Columns(3), Sheets("Suchobjekte").Cells(counter_suchobjekt + 1, 1).Value)
'Sheets("Suchobjekte").Cells(1, 12).Value = "marke"
'Sheets("Suchobjekte").Cells(2 + counter, 12).Value = marke
While counter_suchobjekt AnzahlSuchbegriff_Doku 'es wird solange gesucht solange counter_suchobjekt ungleich Anzahl an Suchbegriffen im Sheet Zahlungsziele ist
'Sheets("Suchobjekte").Cells(1 + counter + 1, 8).Value = marke
'Sheets("Suchobjekte").Cells(1 + counter_suchobjekt, 7).Value = Sheets("Suchobjekte").Cells(counter_suchobjekt, 1).Value
tabellenblatt = Sheets("Suchobjekte").Cells(counter_suchobjekt + 1, 1).Value ' es wird mit einem dynamischen Tabellenblatt welches die Namen der PMs enthält gearbeitet
If marke = "0" Then GoTo Line14 'Wenn es keine Suchbegriffe gibt wird abgebrochen
'Hier werden die Spaltenköpfe eingetragen, welche Werte aufgeführt werden
'Sheets("semard").Cells(zeilenanz_projektleitung + counter, 1).Value = Sheets("Suchobjekte").Cells(counter_suchobjekt, 1).Value
'Das nächste Suchobjekt wird markiert, gesucht wird in von Spalte 1 bis Anzahlzeilen in Spalte 21
Sheets("Projektauswertung").Select 'Sheet Zahlungsziele wird markiert
'counter+suchobjekt +1 sollte stehen , da der erste Suchwert im Sheet Suchobjekte in Zeile 2 steht
'Gesucht wird im Sheet Projektauswertung in Spalte 3 nach dem Beriff Suchobjekt (Projektmanager)
'Sheets("Suchobjekte").Cells(1, 9).Value = Rng
zahl = "0"
Set rng = ActiveSheet.Range(Cells(1, 3), Cells(AnzahlZeilen, 3)).Find(What:=Sheets("Suchobjekte").Cells(counter_suchobjekt + 1, 1).Value, SearchDirection:=xlNext)
While zahl marke
Sheets("Projektauswertung").Select
Set rng = ActiveSheet.Range(Cells(1, 3), Cells(AnzahlZeilen, 3)).FindNext(rng)
'netzplandummy = Sheets("Projektauswertung").Cells(rng.Row, rng.Column + 6).Value
'Sheets(tabellenblatt).Cells(1 + zahl, 1).Value = netzplandummy
Sheets(tabellenblatt).Cells(1 + zahl, 12).Value = rng.Row
Sheets(tabellenblatt).Cells(1 + zahl, 13).Value = rng.Column
zahl = zahl + 1
counter = counter + 1
'
Sheets("ZIBAHUH61_Zahlungsziele").Select
Dim marke1 As String
Dim zahl1 As Integer
Dim AnzahlZeilen1 As Integer
AnzahlZeilen1 = Range("B1").End(xlDown).Row
marke1 = Range("A1").End(xlDown).Row
Set rng1 = ActiveSheet.Range(Cells(1, 5), Cells(AnzahlZeilen1, 5)).Find(What:=Sheets("Projektauswertung").Cells(rng.Row, rng.Column + 6).Value, SearchDirection:=xlNext)
zahl1 = "0"
'Suche nach dem nächsten Suchbegriff in Spalte 5
While zahl1 marke1
Set rng1 = ActiveSheet.Range(Cells(1, 5), Cells(AnzahlZeilen1, 5)).FindNext(rng1)
Sheets("ZIBAHUH61_Zahlungsziele").Cells(rng1.Row, rng1.Column + 26).Value = "semard"
zahl1 = zahl1 + 1
Wend
Wend
Line14:
'***************************************************************************************************************
'Zeigt den aktuellen Suchnamen an
Sheets("Suchobjekte").Cells(1 + counter, 6).Value = counter_suchobjekt
'Suchobjekt in diesem Fall der Projektmanager wird um 1 erhöht bzw. nach dem nächsten Namen wird gesucht
counter_suchobjekt = counter_suchobjekt + 1
counter = "0"
'Set Rng = ActiveSheet.Range(Cells(1, 21), Cells(AnzahlZeilen, 21)).FindPrevious(Rng)
Wend

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Findnext Methoden in einer Routine Hilfe
20.02.2015 20:12:27
Daniel
Hi
dein Code ist ziemlich unübersichtlich und wirkt umständlich.
Wahrscheinlich ist es besser, wenn man das komplett neu schreibt.
Dazu solltest du etwas detaillierter beschreibst, was du machen willst, (welche Spalten sollen durchsuch werden, in welche Spalte muss was eingetragen werden) und ggf auch eine kleine Beispieldatei hochladen)
Gruß Daniel

AW: Mehrere Findnext Methoden in einer Routine Hilfe
20.02.2015 20:53:05
Luschi
Hallo Daniel,
das ist nicht nur unübersichtlich, sondern auch syntaktisch falsch. In der Vba-Hilfe
gibt es folgendes Beispiel: 

With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address  firstAddress
End If
End With
Der Suchbereich von 'Find' & 'FindNext' ist immer der gleiche: Worksheets(1).Range("a1:a500")
Da kann und darf es sowas wie bei Dir:
Set rng = ActiveSheet.Range(Cells(1, 3), Cells(AnzahlZeilen, 3)).FindNext(rng)
nicht geben.
Mache ein kleines Beispiel und beschreibe, was Du vorhast.
Gruß von Luschi
aus klein-Paris

Anzeige
AW: Mehrere Findnext Methoden in einer Routine Hilfe
20.02.2015 23:26:32
Daniel
Hallo
Also folgendes ich versuch es grob zu beschreiben
Gesucht wird in Spalte 3 nach "semard" im Tabellensheet "Projektauswertung"
Sheets("Projektauswertung").Select
Set rng = ActiveSheet.Range(Cells(1, 3), Cells(AnzahlZeilen, 3)).Find(What:="semard", SearchDirection:=xlNext)
Nun startet eine neue while Schleife 100 Durchläufe.
While zahl 100
Mit diesem Befehl wird immer zu nächsten Ergebniswert "semard" gesprungen.
Anzahlzeilen habe ich verwendet um das ganze dynamisch zu gestalten abhängig von der Zeilenzahl im
Tabellenblatt.
Set rng = ActiveSheet.Range(Cells(1, 3), Cells(AnzahlZeilen, 3)).FindNext(rng)
Wird der nächste Wert gefunden, so soll vom gefundenen Wert aus 6 Spalten nach rechts gegangen werden+
und dieser Wert in netzplandummy geschrieben. Darin ist nun eine Netzplannummer gespeichert.
'netzplandummy = Sheets("Projektauswertung").Cells(rng.Row, rng.Column + 6).Value
zahl = zahl + 1
counter = counter + 1
'
Nun wechseln wir in das Sheet Zahlungsziele
Sheets("ZIBAHUH61_Zahlungsziele").Select
Dort soll nun nach dem dummywert, der "netzplannummer" gesucht werden:
Set rng1 = ActiveSheet.Range(Cells(1, 5), Cells(AnzahlZeilen1, 5)).Find(What:=netzplandummy, SearchDirection:=xlNext)
zahl1 = "0"
Auch hier gibt es wieder eine while schleife die durchfahren wird bis der Wert 300 erreicht wird.
While zahl1 300
Auch hier soll jeder Wert der die Netzplannummer enthält abgeklappert werden.
Set rng1 = ActiveSheet.Range(Cells(1, 5), Cells(AnzahlZeilen1, 5)).FindNext(rng1)
Anschließend soll in der gefunden Zelle 26 Spalten nach rechtsverschoben der Wert "semard" eingetragen
werden.
Sheets("ZIBAHUH61_Zahlungsziele").Cells(rng1.Row, rng1.Column + 26).Value = "semard"
zahl1 = zahl1 + 1
Wend
Wend
Wenn aber die 2. while schleife durch ist und er zurück in die erste While schleife geht bekomme ich immer eine Fehlermeldung.

Anzeige
AW: Mehrere Findnext Methoden in einer Routine Hilfe
20.02.2015 23:51:56
Daniel
Hi
ist es richtig, dass zu "semard" mehrere verschiedene Netzplannummern gehören können?
und wenn eine dieser Nummern in der andern Datei auftaucht, soll in dieser Zeile der Text "semard" eingetragen werden?
ich würde hier statt der Suchschleifen den Autofilter nutzen.
Du kannsst ja auch nach meheren Werten gleichzeitig filtern:
Sub test()
Dim SuchWerte As String
Dim Zelle As Range
'--- Projektnummern in Textstring sammeln
With Sheets("Projektauswertung").UsedRange
.AutoFilter Field:=3, Criteria1:="semard"
For Each Zelle In .Columns(9).SpecialCells(xlCellTypeVisible)
If Zelle.Row > 1 Then SuchWerte = SuchWerte & ";" & Zelle.Value
Next
.AutoFilter
End With
If Len(SuchWerte) = 0 Then Exit Sub
SuchWerte = Mid(SuchWerte, 2)
'--- im Zielsheet filtern und Wert einfügen
With Sheets("ZIBAHUH61_Zahlungsziele").UsedRange
.AutoFilter Field:=5, Criteria1:=Split(SuchWerte, ";"), Operator:=xlFilterValues
Intersect(.Columns(31), .Offset(1, 0)).Value = "semard"
.AutoFilter
End With
End Sub
Gruß Daniel

Anzeige
AW: Mehrere Findnext Methoden in einer Routine Hilfe
22.02.2015 01:32:48
Daniel
Hallo,
Vielen Dank bis hier für die super Tipps :), klasse danke,
ich hab mir gerade die Lösung von dir Daniel angeschaut. Super.
Eine Frage
Im Zielsheet steht nun zur Netzplannummer noch ein wenig Text dazu.
Das heisst er kann nicht eindeutig nun die Netzplannummer ausfindig machen.
Ist es möglich den Autofilter im Zielsheet nur auf die ersten 8 Zeichen zu setzen?
'--- im Zielsheet filtern und Wert einfügen
With Sheets("ZIBAHUH61_Zahlungsziele").UsedRange
.AutoFilter Field:=5, Criteria1:=Split(SuchWerte, ";"), Operator:=xlFilterValues
Intersect(.Columns(31), .Offset(1, 0)).Value = "semard"
.AutoFilter
End With
End Sub

Anzeige
AW: Mehrere Findnext Methoden in einer Routine Hilfe
22.02.2015 01:56:32
Daniel
Klappt bisher alles super,
nur im Zielsheet steht zur Netzplannummer noch ein wenig Text dazu
Sodass nicht eindeutig zugewiesen werden kann.
Ist es möglich den Autofilter auf einzelene Zeichen zu setzen?
Ansonsten bereite ich das Zielsheet mit dem Code vor und schneide bis auf 10 Zeichen alles ab.
Das Programm wird dadurch natürlich langsamer.
Klappt bisher alles super,
nur im Zielsheet steht zur Netzplannummer noch ein wenig Text dazu
Sodass nicht eindeutig zugewiesen werden kann.
Ist es möglich den Autofilter auf einzelene Zeichen zu setzen?
Ansonsten bereite ich das Zielsheet mit dem Code vor und schneide bis auf 10 Zeichen alles ab.
Das Programm wird dadurch natürlich langsamer.
Sheets("ZIBAHUH61_Zahlungsziele").Select
Dim c As Variant
For Each c In Range("E:E")
If Len(c.Value) > 0 Then
Cells(c.Row, 24).Value = Left(c.Value, 10)
End If

Anzeige
AW: Mehrere Findnext Methoden in einer Routine Hilfe
22.02.2015 20:29:33
Daniel
Hi
prinzipell kannst du mit dem Autofilter auch nach beginnt mit oder enthält suchen.
Ob das jetzt in Verbindung mit dem Sucharray für mehere Werte funktioniert, weiss ich nicht.
Statt deinem Zusatzmakro kannsst du auch einfach in Spalte 24 die Formel einfügen:
=Links(E1;5)
und dort dann den Autofilter anwenden.
mit der Formel geht das viel schneller als mit dem Makro.
bei bedarf kann man die Formel auch per Marko einfügen:
Sheets("ZIBAHUH61_Zahlungsziele").UsedRange.Columns(24).FormulaR1C1 = "=Left(RC5,10)"
Gruß Daniel
Gruß Daniel
Anzeige

299 Forumthreads zu ähnlichen Themen

mehrere Zellen markieren verhindern
Dirk

Hallo miteinander,
brauche nochmals von Euch Hilfe, bitte.
Habe bei einer meiner Dateien eine Gültigkeitsprüfung (nur X zulassen) und vba trägt in einen Bereich beim reinklicken ein X ein, wenns schon drin ist wirds gelöscht, soweit kein Problem.
Problem: wenn man nun aus Versehen o...
03.09.2008 22:12:34
Thread-ID: 1007244
3 Beiträge
Anzeige
Mehrere Dateien in eine Tabelle zusammenfassen
Reptil

Guten Morgen zusammen.
ich weiß, ähnliche fragen waren schon häufiger hier, aber genau das was ich suche habe ich nicht gefunden.
ich habe mehrere Exceltabellen, in zwei ordnern, aus denen ich bestimmte daten in eine andere auslesen möchte. dabei sollen erstens nicht alle daten gelesen...
12.09.2008 09:46:00
Thread-ID: 1009283
6 Beiträge
Nicht leere Zellen in einer Zeile finden
Andreas

Hallo Zusammen,
Bisher kam ich ohne VBA zurecht, aber ich denke nun ...
Ich habe eine Tabelle mit folgendem Aufbau
Tabelle1:
ABCDEFG
115789
2__z_z
3zz___
4z__z_
Zeile 1: enthält eine Bezeichnung (hier als Zahl dargestellt)
z=Zahl
_=leer
in einem n...
29.09.2008 14:20:42
Thread-ID: 1013111
5 Beiträge
Anzeige
Zellen mit gleicherm Inhalt verbinden
marcl

Hallo Froumsgemeinde,
ich bin auf der Suche nach einer aus meiner Sicht komplizierten Schleife.
Ich möchte ab einer gewissen Zellen alle darunter befindlichen, welche den gleichen Inhalt oder keine Inhalt haben und links oder rechts daneben belegt sind, zusammen fassen. Das so lange, bi...
17.11.2008 13:37:00
Thread-ID: 1025198
5 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
mehrere Wenn abfragen in einer Formel
skippy

Hallo stehe im mom auf den schlauch
möchte gern folgende Abfrage machen krieg aber die Formel nicht hin
Wenn e7-d7>=10;2;0 wenn e7-d7>8;1,5;0 wenn e7-d7>6;1;0 wenn e7-d7>4;0,5;0
Wie muss ich die Formel schreiben, bekomme immer einen Syntaxfehler wenn ich daraus eine Fo...
01.01.2009 21:42:55
Thread-ID: 1036302
4 Beiträge
mehrere Befehle in einen Blatt
Werner

Hallo zusammen,
ich habe folgendes Problem. In einen Tabellenblatt habe ich sehr viele Makros, bei Befehlschaltflächen ist das kein Problem, jedeoch habe ich mehrere(über 100) Private Sub Worksheet_Calculate() es kommt eine Fehlermeldung Mehrdeutiger Name. Wie könnte man das Problem Lösen?...
08.01.2009 22:18:00
Thread-ID: 1038059
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
2
1
5
4
3
4
2
6
3
2
4
1
2
4
4
8
3
2
2
3
8
10
7
4
8