Hallo zusammen,



ich habe eine Tabelle von der ich eine makierte Spalte (mit x in die zweite Zeile) in eine andere kopieren möchte. Das klappt soweit ganz gut.

Nun habe ich das Problem, dass manchmal der Benutzer dieses Programmes vielleicht kein x eingibt oder in zwei Spalten eines.

Meine Idee war sowas in die Richtung



Nur, dass das dann eben die komplette Range (B2:Z2) durchsucht und da natürlich freie Zellen findet.



Hat jemand eine Idee? Ich wäre für jede Hilfe sehr dankbar

Ahoi,

wenn er die gesamte Range durchsucht, dann setze doch ein boolschen Wert, der auf 1 gesetzt wird, wenn ein x vorhanden ist.
Sobald das x dann gefunden wurde, brichst du die Schleife ab und fragst ab ob der Wert 1 ist.

Super das hilft mir schonmal.

Jetzt habe ich allerdings das Problem, dass falls kein x eingegeben wird mir 20 mal die Massagebox aufploppt. Ich habe hier mal den Code eingefügt. Dort steht auch noch das weitere Problem, dass es nicht erst ab Zeile drei einfügt. Ist wsl total banal aber ich komme gerade nicht drauf.





Liebe Grüße und vielen Dank

Ist doch klar, dass die Msg-Box ständig kommt wenn du das alles mit in der schleife hast.
die Schleife ist erstmal nur dafür Zuständig zu schauen ob und wo ein x steht.
Die Prüfung Problem true / false ist kommt nach der Schleife, genauso wie die restliche Verarbeitung.
Hatte ich aber geschrieben.

Deine Struktur ist auch schon völlig konfus.
Es ist ziemlich sinnfrei innerhalb einer If einen Wert zu setzten der im zugehörigen ElseIf - Zweig abgefragt wird.
Ich verstehe auch gerade den gesamten sinn nicht dahinter.
Wenn irgendeine Zelle in Zeile 2 von C - Z ein x Eingetragen hat
dann kopiere die Zellen A3 bis A400 ind Tabelle 2 ...
Entweder ich steh gerade ganz auf dem Schlauch oder ich versteh dein Problem nicht.

Zumal wenn du sagst der User soll ein x eingeben, ist doch völlig egal wo ein x steht er soll doch eh alles kopieren

Es soll nur die Zeile kopiert werden, die dieses x enthält. Das funktioniert so auch.

Ja das mit der Schleife habe ich übersehen...

Hast du eine Idee, wie man es abfangen kann, falls der Bediener zwei x eingegeben hat? Also die Überprüfung.

Manü schrieb:

Sobald das x dann gefunden wurde, brichst du die Schleife ab...

So wird aber nur das 1. x geholt ... Du könntest nun einen weiteren boolschen wert nehmen
in der Schleife abfragen ist problem == 1 und enthält die zelle ein x dann setze die neue 1
oder du nimmst eine int-variable und setzt die +1 somit weißt du sogar wieviele x überflüssig vergeben wurden
dabei darfst du dann natürlich die schleife nicht abbrechen.
nach der Schleife wertest du die beiden Variablen aus und gibts eine dementsprechende Meldung

Könntest du mir evtl in dem Code helfen?? Ich steh gerade richtig auf dem Schlauch. Das mit dem zweiten Boolean würde reichen.

Danke

Was hast du denn bisher ?

Da ich, wie gesagt auf dem Schlauch stehe, habe ich nichts.

Ich muss dir sagen, VBA ist bei mir schon eine ganze weile her.
Und Zeit ist bei mir gerade etwas mangelware

Daher würde ich sagen versuch es umzusetzen und wir schauen dann mal deinen Code an.

Momentan meckert der Debugger mal wegen Next (angeblich ohne For) oder mal, dass ein End if fehlen würde.

Findet jemand den Fehler bzw. weiß auch ob das so überhaupt funktioniert wie ich das will?

Wo ist das End If vom If in Zeile 7?

Jay15 schrieb:

, dass ein End if fehlen würde.

Wenn Du den Code richtig formatierst, kann man es vielleicht auch erkennen.

Jay15 schrieb:

Visual Basic-Quellcode

1. ElseIf Fehler = False Then Fehler = False

Und was soll das bringen?

Für dein IF in Zeile 7 fehlt ein EndIf.

Die Verarbeitung bei dieser Abfrage ist blödsinn. Fehler wird false, wenn fehler False ist.
Demnach wird mein Hut erst Grün wenn mein Hut Grün ist.

Deklariere Fehler bereits mit False, dann sparst du dir das.

Warum ist
ist es eine Row oder eine Column ?

Es wird immer kopiert sobald mindestens ein x enthalten ist. Bei mehreren x
wird jede Column mit einem x kopiert. Der Kopiervorgang muss wahrscheinlich eher in

Ich würde den Kopiervorgang aber ganz aus der Schleife rauslassen, wenn eh nur eine x-Column kopiert werden soll.
Das kannst du nach der Schleife machen, wenn alles i.O. ist. Die Schleife, ist also nur dazu da, um herauszufinden, ob es überhaupt
ein x gibt und ob fälschlicherweise mehrere x da sind.

Wenn du die Variablen Fehler und Problem besser bezeichnen würdest, würdest du vielleicht auch schneller durch
deinen eigenen Code steigen. Und andere sich auch.
Verwirrend ist, warum ist Fehler = True wenn das x gefunden wird ? Ist es nicht eigentlich richtig, wenn ein x gefunden wird ?
Falsch ist es doch erst, wenn ein 2. x gefunden wird.

Manü schrieb:

Für dein IF in Zeile 7 fehlt ein EndIf.

Die Verarbeitung bei dieser Abfrage ist blödsinn. Fehler wird false, wenn fehler False ist.

Habe beides schon Siehe oben.

Jup hast du, ich hab mir ziemlich viel Zeit gelassen beim schreiben

Hey, Danke schonmal für die Hilfe.

Das mit der Formatierung ist wohl beim kopieren verrutscht. Bezeichnungen habe ich jetzt mal geändert. Das Problem liegt jetzt bei dem zweiten Boolean. Ich sag ja ich bin eigentlich VBA Anfänger...Achso und ja es soll die Spalte kopiert werden. Vielen Dank nochmal für eure Hilfe.

Jay15 schrieb:

If Zweix = False Then
zeile = zelle.Column
Columns(zeile).Copy Destination:=Sheets("Kopieren").Cells(3, 1).End(xlUp)
End If

hier ist noch ein kleiner haken ... wenn nun kein x angegeben ist, wird trotzdem versucht die column zu kompieren.

Auch wenn ein x eingegeben wird kommt der Fehler "Überprüfen Sie ihre x-Eingabe"