Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1520to1524
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
1520to1524
1520to1524
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Erst leere Zellen löschen, dann Spalten vergleiche

Erst leere Zellen löschen, dann Spalten vergleiche
24.10.2016 12:47:22
Fabi
Hallo,
ich habe folgendes Problem und möchte dieses Problem mit VBA lösen, nur habe ich Schwierigkeiten bei der Umsetzung.
Zuerst möchte ich in der Spalte A alle leeren Zellen entfernen. Bei einer "leeren" Zelle handelt es sich bei meiner Umsetzung, um eine Zelle mit dem Inhalt "".
Nachdem die leeren Zellen in Spalte A entfernt wurden, muss ich die Spalte A mit B vergleichen, um das Ziel zu erreichen, dass ich zu jeder Zeile in Spalte A den entsprechenden Text aus Spalte C bekomme.
Folgendes Beispiel habe ich hochgeladen, falls es zu Verständnisproblemen kommt.
Sheet1 - Problem
Sheet2 - "Lösung"
https://www.herber.de/bbs/user/108989.xlsx
schonmal danke im voraus,
Fabi

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

Betreff
Datum
Anwender
Anzeige
AW: Erst leere Zellen löschen, dann Spalten vergleiche
24.10.2016 13:25:14
UweD
Hallo
wenn in A die Leerzellen gelöscht werden (also die darunterliegenden noch oben rücken),
dann Spalte B gelöscht wird, dann hast du doch schon dein Wunschergebnis.
Wass meinst du hiermit? ... muss ich die Spalte A mit B vergleichen, ...
Übrigens Zellen löscht man von unten nach oben mit Step-1
LG UweD
AW: Erst leere Zellen löschen, dann Spalten vergleiche
24.10.2016 13:35:40
Fabi
also vllt ist es so verständlicher erklärt:
mein ziel ist es für die Spalte A (Ohne leere Zellen, bzw. ohne Zellen mit Inhalt "") die entsprechende Zelle aus C zuzuordnen (vorhin vergessen: Spalte C gehört zu B, also Spalte C definiert die Werte von Spalte B). demnach möchte ich letztlich wissen "welcher Buchstabe zu welcher Zelle in Spalte A gehört".
ich hoffe, dass ich die frage klären konnte...
Anzeige
AW: Erst leere Zellen löschen, dann Spalten vergleiche
24.10.2016 13:46:04
UweD
ich hoffe, dass ich die frage klären konnte...

Für mich nicht...
welcher Buchstabe zu welcher Zelle in Spalte A gehört
Dann müsste deine Zieltabelle ja so aussehen oder?

Sheet1
 ABC
111g
222c
333b
444f
555a
666d
777e
888h
999i
101010j

Das wäre Spalte B umsortiert und 11, 12, und 13 gelöscht
Das ist aber nicht die Darstellung in Sheet2

Sheet2
 AB
11a
22b
33c
44d
55e
66f
77g
88h
99i
1010j

Wie soll es denn jetzt sein?
Anzeige
AW: Erst leere Zellen löschen, dann Spalten vergleiche
24.10.2016 13:51:32
Fabi
ah hab nicht erwähnt, dass a und b diesselben daten enthält. es wird nur spalte a benötigt, dementsprechend kann Spalte b später gelöscht werden wie du es schon gemacht hast.
also prinzipiell wäre deine tabelle 1 auch völlig in ordnung...
AW: Erst leere Zellen löschen, dann Spalten vergleiche
24.10.2016 14:29:36
UweD 
Sub löschen()
    Dim TB, ER As Integer, LrA As Long, LrB As Long, i As Long
    ER = 1 ' evtl. Überschrift 
    Set TB = Sheets("Sheet1")
    With TB
        LrA = .Cells(.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte 
        For i = LrA To ER Step -1
            If .Cells(i, 1) = "" Then
                .Cells(i, 1).Delete xlUp
            End If
        Next
        LrA = .Cells(.Rows.Count, "A").End(xlUp).Row
        LrB = .Cells(.Rows.Count, "B").End(xlUp).Row
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=Range("B:B") _
            , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Sort.SetRange Range("B:C")
        .Sort.Header = xlGuess
        .Sort.MatchCase = False
        .Sort.Orientation = xlTopToBottom
        .Sort.SortMethod = xlPinYin
        .Sort.Apply
        .Columns(2).Delete xlLeft
        If LrA <> LrB Then
            .Rows(LrB + 1 & ":" & LrA + 1).Delete xlUp
        End If
    End With
End Sub
LG UweD
Anzeige
AW: Erst leere Zellen löschen, dann Spalten vergleiche
24.10.2016 15:23:27
Fabi
Super vielen Dank, funktioniert einwandfrei...
Prima! Danke für die Rückmeldung.
24.10.2016 15:25:18
UweD

311 Forumthreads zu ähnlichen Themen

MSGBox wenn Zelleninhalt geleert wurde?!
Tom

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...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Anzeige
Leere Zellen Überspringen
Michael

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...
11.09.2008 10:06:00
Thread-ID: 1008990
5 Beiträge
"wenn, dann, sonst" - Frage
Oliver

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,...
11.09.2008 10:23:00
Thread-ID: 1008998
16 Beiträge
Anzeige
Warum leere Zelle "" >0 ???
Simon

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...
15.09.2008 10:08:00
Thread-ID: 1009683
13 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

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<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

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...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 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
5
6
4
15
5
12
2
9
2
9
4
3
10
4
2
5
5
4
2
7
7
1
5
9
1