Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
792to796
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
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Duplikate aus Zeilen, nicht aus Spalten löschen!

Duplikate aus Zeilen, nicht aus Spalten löschen!
16.08.2006 13:21:14
Peter
Hi,
ich würde gerne Duplikate aus Zeilen, nicht aus Spalten löschen! Für die Spalten kann ich mit dem Spezialfilter arbeiten, für die Zeilen jedoch nicht!
Hat jemand eine Idee?
Gruß Peter.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: schlag nach bei Helga ;-)
16.08.2006 14:33:37
Peter
Tja, das hatte ich auch schon gesehen aber das Makro läuft nicht :-/ Da ist ein Fehler drin.
Gruß Peter.
AW: Duplikate aus Zeilen, nicht aus Spalten löschen!
16.08.2006 17:49:38
Peter
Hallo Peter,
nicht so elegant wie die Lösung für Helga, aber sie funktioniert:
Public 

Sub ZeileOhneDoppelte()
Dim lZeile   As Long     ' der For/Next Index der Zeilen von 1 bis n
Dim iSpalte  As Integer  ' der For/Next Index der Spalten von 1 bis letzte belegte
Dim iLetzte  As Integer  ' letzte belegte Spalte in der Zeile
Dim iVglSpa  As Integer  ' Vergleichs-Spalte
For lZeile = 1 To 100   ' hier anpassen !!!
If WorksheetFunction.CountBlank(Rows(lZeile)) <> 256 Then ' Zeile leer?
iLetzte = IIf(Cells(lZeile, 256) <> "", 256, Cells(lZeile, 256).End(xlToLeft).Column)
For iSpalte = 1 To iLetzte - 1
iVglSpa = iSpalte + 1
Do While iVglSpa < iLetzte
If Trim(Cells(lZeile, iSpalte).Value) = _
Trim(Cells(lZeile, iVglSpa).Value) Then
Cells(lZeile, iVglSpa).ClearContents
End If
iVglSpa = iVglSpa + 1
Loop
Next iSpalte
End If
Next lZeile
End Sub

Mit Alt + F11 in die VBA Umgebung
Im linken Fenster Rechtsklick auf deine Mappe
Einfügen-Modul
Den Code da rein kopieren.
Alt+Q
Extras-Makro-Makros und ausführen.
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige

302 Forumthreads zu ähnlichen Themen

Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
Anzeige
Teilergebnis einer Spalte wird nicht angezeigt
thaake

Hallo,
ich lasse mir die Teilergebnisse verschiedener Spalten anzeigen mit =Teilergebnis(9;V5:V300), was auch überall klappt, aber nur eine Spalte weigert sich. Formatierung ist vollkommen ok, das Anzeigen in einer anderen Zelle mit Verweis auf diese Spalte klappt auch nicht. Summe dagegen...
22.09.2008 11:21:12
Thread-ID: 1011416
2 Beiträge
Inhalt von UF wird nicht angezeigt
UF

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...
26.09.2008 14:29:02
Thread-ID: 1012639
16 Beiträge
Anzeige
Rechtschreibung: Pop-Up wird nicht mehr angezeigt
Norbert

Hallo,
nach dem Auswählen des Menüpunktes "Extras" - "Rechtschreibung", wird das zugehörige Pop-Up zur Auswahl der Korrekturvorschläge nicht mehr angezeigt.
Nach einem Klick auf die Schaltfläche "Rechtschreibung" ebenfalls nicht mehr.
Ich habe die möglichen Optionen zur Einstellung...
11.11.2008 11:22:22
Thread-ID: 1023480
3 Beiträge
Listbox, letzter Eintrag nicht sichtbar
ede

Hallo,
ich habe eine Listbox in ein Excelsheet eingebunden. Passend zu dem ausgewählten Eintrag wird die Auswahl in eine Zelle geschreiben, die Input für eine Grafik ist. Funktioniert alles soweit bestens.
Als ListfillRange habe ich einen namentlich definierten Bereich eingegeben : "Bau...
11.11.2008 15:19:10
Thread-ID: 1023583
7 Beiträge
Spalte keine Ansicht und nicht drucken
Frederic

Hallo Zusammen
Hätte eine blöde Frage:
Wie kann ich mit VBA erreichen, dass die Spalte C1:C60 nicht in der Seitenansicht und auch nicht gedruckt wird. Grund: Habe dort Listenvermerke drin.
Für Eure generöse Hilfe danke ich schon im Voraus
Salvus
Frederic
20.12.2008 19:23:00
Thread-ID: 1034447
23 Beiträge
langer Text wird nicht mehr angezeigt
u_hoernchen

Ich muss einen langen Text (ca. 1.500 Zeichen) in eine Excel-Zelle schreiben (geht leider nicht anders, also das bitte nicht in Frage stellen). Nun wird beim Ausdruck und bei der Bildschirmanzeige aber die letzte Zeile nicht mehr umgebrochen (Zeilenumbruch ist formatiert), in der Zelle steht ab...
05.01.2009 11:10:25
Thread-ID: 1036916
4 Beiträge
Excel Checkbox sichtbar, aber nicht mehr benutzbar
Lars

Hallo,
ich habe ein Problem. Ich habe eine Datei, in der ca. 400 Checkboxes sind. Bis gestern Abend lief auch alles wie es sein soll. Heute öffne ich die Datei, aktiviere Makros und plötzlich kann ich nicht mehr das Häckchen setzen. Sobald ich auf Eigenschaften gehe, werden mir auch nicht m...
03.02.2009 14:04:00
Thread-ID: 1046654
9 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
3
1
15
4
2
6
22
3
8
4
7
4
1
10
5
2
6
6
4
3
5
2
4
7