Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1564to1568
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
Inhaltsverzeichnis

VBA - Löschen mit Bedingung

VBA - Löschen mit Bedingung
29.06.2017 22:42:11
WalterK
Schönen Abend,
ich suche eine VBA-Lösung in einer Namensliste in Spalte A:A.
In A:A sollen alle Leerzellen gelöscht werden und auch alle Zellen mit nur 1 Buchstaben, wenn in der Spalte kein Name mehr vorhanden ist, der mit dem betreffenden Buchstaben beginnt.
Hier ein Ausschnitt:


Tabelle1
 ABCDE
1Ist-Zustand Soll-Zustand  
2A B Der Soll-Zustand soll dann auch in Spalte A:A stehen
3Ä Borlnfuc, Lotkdzvaj  
4  Bpzwft, Ep. Ykwf-Uzr Den "alten" Ist-Zustand in A:A brauche ich also nicht mehr,
5B D es soll sich also alles in Spalte A:A abspielen
6Borlnfuc, Lotkdzvaj Dyrcoh, Zxilmriu  
7Bpzwft, Ep. Ykwf-Uzr K  
8C Kyzi, Tjwnei Bedingungen sind:
9  M 1.)Alle Leerzellen sollen weg sein
10D Mwntm, Lczmx  
11  N 2.) Alle Zellen mit nur 1 Buchstaben sollen weg sein, wenn
12  Nspljvi, Ftczjjv es in der Liste keinen Namen mehr gibt, der mit
13Dyrcoh, Zxilmriu O dem besagten Buchstaben beginnt.
14E Obze, Fcghp  
15F Oknq, Gtffhp  
16G Oynyjzq, Esofnl  
17  P  
18  Pbgyeezb, Uajs Wysfn  
19H Pkzrnz, Of. Ubwbly  
20  Q  
21I Qgodkivs, Fculmmxz  
22  R  
23  Rvhhu, Ilbz-Gaolzm  
24J Rzmcfy, Bqtavvs  
25K S  
26Kyzi, Tjwnei Secaf, Szqm  
27L Szvrzusby, Hggwmjb  
28M T  
29Mwntm, Lczmx Tgrih, Qxftx  
30N U  
31  Urfcjal, Potqmzfau  
32Nspljvi, Ftczjjv V  
33O Vbykldmu, Fsrck  

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip
http://hajo-excel.de/tools.htm
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 14.15 einschl 64 Bit

https://www.herber.de/bbs/user/114593.xlsm
Besten Dank und Servus, Walter

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Löschen mit Bedingung
30.06.2017 00:38:28
Matthias
Hallo
In A:A sollen alle Leerzellen gelöscht werden
Mal als erster Ansatz für Bedingung1:
Columns("A:A").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
Gruß Matthias
AW: VBA - Löschen mit Bedingung
30.06.2017 00:44:03
onur
https://www.herber.de/bbs/user/114595.xlsm
Braucht zwar 15 sec, dafür ist es jedoch egal, wo die Namen stehen (also nicht zwingend unmittelbar hinter den Buchstaben)
AW: VBA - Löschen mit Bedingung
30.06.2017 05:00:11
Gerd
Servus Walter!
Sub test()
Dim L As Long, arChar(28) As String, R As Range
For L = 0 To 25
arChar(L) = Chr(L + 65)
Next
arChar(26) = "Ä"
arChar(27) = "Ö"
arChar(28) = "Ü"
With Columns(1)
For L = 0 To 28
.Cells.Replace arChar(L), "", xlWhole
Next
With .SpecialCells(xlCellTypeConstants)
For L = 2 To .Areas.Count
.Areas(L).Cells(0, 1) = Left(.Areas(L).Cells(1, 1), 1)
Next
End With
.SpecialCells(xlCellTypeBlanks).Delete shift:=xlShiftUp
End With
Erase arChar
End Sub
Gruß Gerd
Anzeige
AW: VBA - Löschen mit Bedingung
30.06.2017 09:22:41
WalterK
Hallo,
meinen besten Dank an die Helfer.
Habe mich für die Lösung von Gerd entschieden, sie ist auch rasend schnell.
Servuc, Walter
AW: VBA - Löschen mit Bedingung
30.06.2017 09:46:15
onur
Hi,
Freut mich, daß Dir geholfen werden konnte.
Gerds Lösung ist nur schneller als meine Version, weil er sich auf max 28 Zeilen beschränkt hat, statt wie ich auf 500.
Gruß
Onur
AW: 28 Zeilen;nein! 29 Zeichen o.T.
01.07.2017 10:08:30
Gerd
Gruß Gerd

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige