Excel VBA – Endloses Suchen eines Eintrages in einer Spalte abbrechen und Prozedur für die andern Ei

Diskutiere Excel VBA – Endloses Suchen eines Eintrages in einer Spalte abbrechen und Prozedur für die andern Ei im Office Forum im Bereich Microsoft Community Fragen; In einem Excel-Arbeitsblatt habe ich In der Spalte B ab Zeile 6 Zeilen mit AAAA und CCCC. Die Anzahl der Zeilen sind unterschiedlich. AAAA AAAA...
M

MSCom

Neuer Benutzer
Threadstarter
Mitglied seit
20.09.2016
Beiträge
1
In einem Excel-Arbeitsblatt habe ich In der Spalte B ab Zeile 6 Zeilen mit AAAA und CCCC. Die Anzahl der Zeilen sind unterschiedlich.
AAAA
AAAA
AAAA
CCCC
CCCC
CCCC
CCCC
CCCC

Mit dem nachstehenden Markro soll für AAAA, BBBB, CCCC eine Prozedur durchgeführt werden. BBBB ist vorläufig in der Spalte B noch nicht aufgeführt. Wenn ich das Makro ausführe, so sucht es BBBB endlos und macht keine Rückmeldung, d.h. ich muss das Excel im Task-Manager beenden. Wie kann ich machen, dass wenn BBBB in der Spalte B nicht vorhanden ist, die Prozedur nicht endlos nach BBBB sucht sondern zur nächsten Prozedur für CCCC geht und das Makro bis zu End Sub durchläuft und durchführt.

Private Sub Tabelle1_Click()
Sheets("Tabelle1").Select
Application.Goto Reference:="R1C2"
Do Until ActiveCell.Text = "AAAA"
ActiveCell.Offset(1, 0).Range("A1").Select
Loop
ActiveCell.Rows("1:2").EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(2, 1).Range("A1").Select
Selection.Copy
ActiveCell.Offset(-1, 1).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, -1).Range("A1").Select
Sheets("Tabelle1").Select
Application.Goto Reference:="R1C2"
Do Until ActiveCell.Text = "BBBB"
ActiveCell.Offset(1, 0).Range("A1").Select
Loop
ActiveCell.Rows("1:2").EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(2, 1).Range("A1").Select
Selection.Copy
ActiveCell.Offset(-1, 1).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, -1).Range("A1").Select
Sheets("Tabelle1").Select
Application.Goto Reference:="R1C2"
Do Until ActiveCell.Text = "CCCC"
ActiveCell.Offset(1, 0).Range("A1").Select
Loop
ActiveCell.Rows("1:2").EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(2, 1).Range("A1").Select
Selection.Copy
ActiveCell.Offset(-1, 1).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub
 
#
Schau dir mal diesen Ratgeber an. Dort wird jeder fündig!
Registrieren bzw. einloggen, um diese und auch andere Anzeigen zu deaktivieren
Thema:

Excel VBA – Endloses Suchen eines Eintrages in einer Spalte abbrechen und Prozedur für die andern Ei

Excel VBA – Endloses Suchen eines Eintrages in einer Spalte abbrechen und Prozedur für die andern Ei - Ähnliche Themen

  • Excel 365 VBA Code

    Excel 365 VBA Code: Hallo Zusammen, ich bitte um Eure Hilfe. Ich habe einen älteren VBA Code für den Füllstand von Kugelbehältern, siehe unten, der unter Excel 2013...
  • Sharepoint und Excel - VBA Projekt verschwindet

    Sharepoint und Excel - VBA Projekt verschwindet: Hallo Community, Gruppenraum wurde erstellt durch Anlegen in der Teams App und Konfiguration als öffentliche Gruppe. In der Dokumentenbibliothek...
  • Sharepoint und Excel - VBA Projekt verschindet

    Sharepoint und Excel - VBA Projekt verschindet: Hallo Community, in der Dokumentenbibliothek liegen Exceldateien, welche Makros und Formulare enthalten. Das VBA Projekt ist passwortgeschützt...
  • Excel VBA

    Excel VBA: Liebe Community! Ich habe Office 365. Ich habe eine Excel Vorlage mit VBA Codes. Diese Vorlage hat jetzt 3 Jahre perfekt funktioniert. Vor 1...
  • Excel 2016 VBA.

    Excel 2016 VBA.: Hallo! Folgendes Problem: Ich hab ein kleines Makro geschrieben welches die Anzahl zweier Tabellenblätter auslest und die Zeilen Anzahl in Tab1...
  • Ähnliche Themen

    • Excel 365 VBA Code

      Excel 365 VBA Code: Hallo Zusammen, ich bitte um Eure Hilfe. Ich habe einen älteren VBA Code für den Füllstand von Kugelbehältern, siehe unten, der unter Excel 2013...
    • Sharepoint und Excel - VBA Projekt verschwindet

      Sharepoint und Excel - VBA Projekt verschwindet: Hallo Community, Gruppenraum wurde erstellt durch Anlegen in der Teams App und Konfiguration als öffentliche Gruppe. In der Dokumentenbibliothek...
    • Sharepoint und Excel - VBA Projekt verschindet

      Sharepoint und Excel - VBA Projekt verschindet: Hallo Community, in der Dokumentenbibliothek liegen Exceldateien, welche Makros und Formulare enthalten. Das VBA Projekt ist passwortgeschützt...
    • Excel VBA

      Excel VBA: Liebe Community! Ich habe Office 365. Ich habe eine Excel Vorlage mit VBA Codes. Diese Vorlage hat jetzt 3 Jahre perfekt funktioniert. Vor 1...
    • Excel 2016 VBA.

      Excel 2016 VBA.: Hallo! Folgendes Problem: Ich hab ein kleines Makro geschrieben welches die Anzahl zweier Tabellenblätter auslest und die Zeilen Anzahl in Tab1...
    Oben