Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Wenn / nicht, dann Zelle löschen VBA

Wenn / nicht, dann Zelle löschen VBA
25.04.2006 18:42:18
Wolfgang
Hallo*
ich benötige wieder einmal die Hilfe des Forums; Aus einer Textdatei bediene ich drei Tabellenblätter. Manchmal scheint die Textdatei zu variieren und ich erhalte nicht alle Zellen so gefüllt, wie ich es gerne hätte. Gibt es einen Weg, über VBA zu bestimmen, dass wenn z.B. Zelle C nicht Text und zwingend "/" enthält, dass dann die Zelle B gelöscht wird und alle Zellen nach links verschoben werden, bis der Text mit "/" erscheint? Wäre für eine Hilfestellung sehr dankbar.
Herzliche Grüße Wolfgang
P.S. - gemeint ist nur / (nicht die Anführungszeichen)

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn / nicht, dann Zelle löschen VBA
25.04.2006 21:13:54
Beni
Hallo Wolfgang,
Gruss Beni

Sub Zelle_löschen_und_verschieben()
Dim z, s As Long
For z = 1 To Cells(65536, 3).End(xlUp).Row
For s = 3 To Cells(z, 255).End(xlToLeft).Column
If IsNumeric(Cells(z, 3)) Or InStr(1, Cells(z, 3), "/") = 0 Then
Cells(z, 2).ClearContents
Range(Cells(z, 3), Cells(z, 255)).Cut Destination:=Cells(z, 2)
Else
Exit For
End If
Next s
Next z
End Sub

Danke Beni - 1 Frage noch.
26.04.2006 18:15:34
Wolfgang
Hallo Beni,
habe früher Feierabend gemacht und sofort Deine Ausarbeitung im Forum entdeckt. Sie klappt hervorragend und dafür meinen herzlichsten Dank ! Ist genauso, wie ich es mir vorgestellt hatte. - Vielleicht erlaubst Du mir noch eine ergänzende Frage: Wenn ich anstatt des / nun z.B. eine fünstellige Zahl als Voraussetzung nehme, wie könnte dann Dein Code aussehen? Ich Danke Dir schon jetzt für Deine Rückantwort.
Herzliche Grüße
Wolfgang
Anzeige
AW: Wenn / nicht, dann Zelle löschen VBA
26.04.2006 21:06:02
Beni
Hallo Wolfgang,
Gruss Beni

Sub Zelle_löschen_und_verschieben()
Dim z, s As Long
For z = 1 To Cells(65536, 3).End(xlUp).Row
For s = 3 To Cells(z, 255).End(xlToLeft).Column
If Not IsNumeric(Cells(z, 3)) Or Cells(z, 3) < 10000 Or Cells(z, 3) > 99999  Then
Cells(z, 2).ClearContents
Range(Cells(z, 3), Cells(z, 255)).Cut Destination:=Cells(z, 2)
Else
Exit For
End If
Next s
Next z
End Sub

Nochmals Danke Beni - klappt super
26.04.2006 21:17:51
Wolfgang
Hallo Beni,
erneut herzlichen Dank für Deine schnelle Antwort und den Code. Als Laie/Anfänger hätte ich es nie geschafft, ihn so umzustellen, insofern obendrein sehr lehrreich für mich. Dir weiterhin alles Gute.
Herzliche Grüße
Wolfgang
Anzeige
AW: Wenn keine fünfstellige Zahl, dann löschen VBA
27.04.2006 21:26:55
Wolfgang
Hallo Beni,
ich war doch wohl zu voreilig; Grundsätzlich klappt der Code mit der fünfstelligen Zahl sehr gut, allerdings hatte ich nicht beachtet, dass hierdurch auch z.B. Überschriften in Zeile 1 gelöscht werden. Wie kann ich erreichen, dass nur die Zellen in Zeile 2 angesprochen werden und alle anderen Zeilen unberührt bleiben ? - Kann ich das evtl. über die Zahlen 65536 oder 255 steuern? - Ich wäre erneut sehr dankbar für Deine Rückmeldung.
Herzliche Grüßé
Wolfgang

312 Forumthreads zu ähnlichen Themen


Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
Anzeige

Moin zusammen,
habe ja gestern durch euch einige Probleme lösen können:-) Danke nochmal.
Ich habe einen einfachen Makro erstellt, um den gesamten Inhalt eine Arbeitsmappe zu markieren, um die Werte dann in eine andere zu kopieren.
Range("A2:AD2").Select
Range(Selection, Selectio...

Hallo,
kleines Problem,
=WENN($I$4=4;4;0) liefert mir den Wert "0"
Jetzt habe ich diese Formel folgendermaßen abgeändert:
=Wenn((Istfehler(A1);"";Wenn($I$=4;4;0))
... dies liefert mir wieder den Wert "0", obwohl Istfehler(A1) erfüllt wird -confused-
Nun meine Frage,...
Anzeige

Hallo,
ich verstehe das Ergebnis meiner Formel nicht ganz:
ich habe eine wenn Funkion nach folgendem Schema gemacht:
wenn(A1=5;"ok";"")
Das Ergbnis ist also entweder 5 oder eine leere Zelle. Wenn ich nun mit dieser "leeren Zelle" weiter arbeite, behandelt Excel die "" Zelle imme...

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige