Zellen vergleichen und löschen | Herbers Excel-Forum

Bewerten Sie hier bitte das Excel-Portal

Auftragsprogrammierung: Nehmen Sie hier Kontakt auf

Zellen vergleichen und löschen | Herbers Excel-Forum

Zellen vergleichen und löschen von Uwe Grund vom 28.07.2012 23:41:14

AW: Zellen vergleichen und löschen - von Josef Ehrensberger am 29.07.2012 00:10:12
AW: Zellen vergleichen und löschen - von {Boris} am 29.07.2012 00:24:24
AW: Zellen vergleichen und löschen - von Uwe Grund am 29.07.2012 11:30:34
- Dann ändere einfach ... - von Josef Ehrensberger am 29.07.2012 11:32:48
  - AW: Dann ändere einfach ... - von Uwe Grund am 29.07.2012 11:56:20
    - AW: Dann ändere einfach ... - von Josef Ehrensberger am 29.07.2012 12:13:41
      - AW: Dann ändere einfach ... - von Uwe Grund am 29.07.2012 19:33:51
        
        AW: Dann ändere einfach ... - von Josef Ehrensberger am 29.07.2012 19:56:22
        
        AW: Dann ändere einfach ... - von Uwe Grund am 29.07.2012 20:12:48

Betrifft: Zellen vergleichen und löschen von: Uwe Grund
Geschrieben am: 28.07.2012 23:41:14

Hallo zusammen,

ich habe folgendes Problem:

In der Spalte A einer Tabelle mit ca. 2000 Zeilen habe ich zeilenweise untereinander jeweils

Vorname
Vorname + Zuname
Zahlenwert (XX: 12345)

Die gesamte Zeile mit dem Vornamen soll gelöscht werden.

Im nächsten Schritt soll der Zahlenwert eine Zeile hochrutschen in Spalte B neben den Vor und Zunamen.
Gleichzeitig soll die freigewordene Zeile gelöscht werden.

Ich bin für Eure Hilfe sehr dankbar und wünsche ein schönes WE.

LG Uwe

Betrifft: AW: Zellen vergleichen und löschen von: Josef Ehrensberger
Geschrieben am: 29.07.2012 00:10:12

Hallo Uwe,

Sub transposeData()
  Dim vntIn As Variant, vntOut As Variant
  Dim lngIndex As Long, lngC As Long

  With ActiveSheet
    vntIn = .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
    Redim vntOut(1 To UBound(vntIn, 1) / 3, 1 To 2)
    For lngIndex = 2 To UBound(vntIn, 1) - 1 Step 3
      lngC = lngC + 1
      vntOut(lngC, 1) = vntIn(lngIndex, 1)
      vntOut(lngC, 2) = vntIn(lngIndex + 1, 1)
    Next
    .Range("A2:A" & .Rows.Count) = ""
    .Range("A2").Resize(UBound(vntOut, 1), 2) = vntOut
  End With
End Sub

« Gruß Sepp »

Betrifft: AW: Zellen vergleichen und löschen von: {Boris}
Geschrieben am: 29.07.2012 00:24:24

Hi Uwe,

mit dem Autofilter kein Problem.

Tabelle1

	A	B	C
1	Daten	Formel	Zahlen
2	Hans	Hans Meier	1
3	Hans Meier	12345	2
4	12345	Klaus	3
5	Klaus	Klaus Fischer	1
6	Klaus Fischer	23456	2
7	23456	Fritz	3
8	Fritz	Fritz Weber	1
9	Fritz Weber	55689	2
10	55689	0	3

Formeln der Tabelle

Zelle	Formel
B2	=A3

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

Formel aus B2 runterkopieren.
Dann Formeln in Spalte B durch Werte ersetzen.
In Spalte C revolvierend untereinander die Zahlen 1, 2 und 3 schreiben.

Jetzt Spalte C nach 1 und 3 filtern - und die Zeilen des Filterergebnisses löschen. Fertig.

Tabelle1

	A	B	C
1	Daten	Formel	Zahlen
2	Hans Meier	12345	2
3	Klaus Fischer	23456	2
4	Fritz Weber	55689	2

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

VG, Boris

Betrifft: AW: Zellen vergleichen und löschen von: Uwe Grund
Geschrieben am: 29.07.2012 11:30:34

Hallo Sepp, Hallo Boris,

danke für die schnellen Antworten.

Mit der Autofiltermethode kann ich mich nicht so anfreunden, da die Liste per Makro schon aufbereitet wurde und nach dem hier angefragten Schritt weiter bearbeitet werdfen soll. Dennoch vielen Dank da ich den Tipp anderwitig nutzen kann.

Die Makromethode von Sepp liefert folgendes Ergebnis:

Urzustand

Tabelle1

	A	B
1	Katy
2	Katy Becker
3	EP: 568
4	Andreas
5	Andreas Reich
6	EP: 3,837
7	Jens
8	Jens Bürkle
9	EP: 18,871

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

Ergebnis:
Tabelle1

	A	B
1	Katy
2	EP: 568	Andreas
3	EP: 3,837	Jens
4	EP: 18,871	Norman

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

Aussehen soll es jedoch so:
Tabelle1

	A	B
1	Katy Becker	EP: 568
2	Andreas Reich	EP: 3,837
3	Jens Bürkle	EP: 18,871
4	Norman Schütte	EP: 1,039

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

Hintergrund ist der, das in den Spalten D und E eine zweite Liste eingefügt werden soll die dann mir den Spalten A und B verglichen wird. Die nächsten Schritte habe ich auch, nur eben das Löschen der Vornamen und das "Umziehen" der Wertezelle bereitet noch Probleme.

Vorab nochmals vielen Dank für Eure Hilfe

LG Uwe

Betrifft: Dann ändere einfach ... von: Josef Ehrensberger
Geschrieben am: 29.07.2012 11:32:48

... A2 im Code jeweils auf A1.

Ich gehe bei Listen immer von einer Überschriftenzeile aus!

« Gruß Sepp »

Betrifft: AW: Dann ändere einfach ... von: Uwe Grund
Geschrieben am: 29.07.2012 11:56:20

Danke für die prompte Antwort.

Ja, ne Überschriftenzeile verwende ich sonst auch. Nun funktioniert natürlich beides, also ohne und mit Überschrift. Auch das anhängen deines Codes an die vorgehende Aufbereitung bringt keine Probleme. Super, Danke!

Nur noch eine hoffentlich kleine Sache:

Es handelt sich hier um Daten die als Text von einer Internetseite kopiert und eingefügt werden. Soweit hab ich nun auch all das überflüssige raus, so das eben nur diese relevanten Werte Übrigbleiben. In ungefähr 10 Datensätzen erhalte ich nur den "EP"-Zahlenwert ohne Namen, was nun natürlich das Ergebnis verschiebt. Sieht also so aus:

Tabelle1

	A	B
219	Andrea Meinel	EP: 137,142
220	Nicola Hengesbach	EP: 98,049
221	EP: 121,412	Freddy
222	EP: 238,573	EP: 225,149
223	EP: 207,375	EP: 55,770

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

Ich könnte nun diese paar Zeilen, wenn kein Name bei ist vor dem Makrolauf händisch löschen, was so kein grosser Aufwand, aber relativ unelegant ist. Gibt es hier vielleicht noch einen Lösungsansatz? Wiederum im Voraus vielen Dank.

LG Uwe

Betrifft: AW: Dann ändere einfach ... von: Josef Ehrensberger
Geschrieben am: 29.07.2012 12:13:41

Hallo Uwe,

das ist doch eine ganz andere Aufgabe, warum kommst du nicht gleich zu beginn mit der "ganzen Wahrheit"?

Lade eine Beispieldatei mit Beschreibung hoch.

« Gruß Sepp »

Betrifft: AW: Dann ändere einfach ... von: Uwe Grund
Geschrieben am: 29.07.2012 19:33:51

Bitte vielmals um Entschuldigung, habe das zwar nicht übersehen aber dachte ich kann das später lösen.

Habe die Datei hier hinterlegt:

https://www.herber.de/bbs/user/81195.xls

Darin befindet sich die Quelldatei auf Tabelle 2, Die bereinigte Zieldatei auf Tabelle 2 und die Beschreibung.

Vielen Dank für Zeit und Müh

LG Uwe

Betrifft: AW: Dann ändere einfach ... von: Josef Ehrensberger
Geschrieben am: 29.07.2012 19:56:22

Hallo Uwe,

sorry, aber das ist doch nur ein Wirrwarr aus unzusammenhängenden Daten, da wirst du um eine händische Bereinigung nicht rum kommen.

« Gruß Sepp »

Betrifft: AW: Dann ändere einfach ... von: Uwe Grund
Geschrieben am: 29.07.2012 20:12:48

Ja, das dachte ich mir. Belasse es erstmal dabei es per Hand zu machen und stelle das Ding erstmal fertig. Vielleicht finde ich später im Rahmen von "Schönheitsreparaturen" noch einen Weg.

Vielen Dank und schönen Sonntag noch

LG Uwe