Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1196to1200
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
1196to1200
1196to1200
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile löschen, wenn

Zeile löschen, wenn
Franz
Hallo zusammen,
ich bin auf der Suche nach einem VBA-Code. Er soll einem Bereich von A2 bis Z500 auf doppelte Datensätze prüfen. DAs Problem, und daher hat mich die Suche auch nicht weitergebracht ist, dass immer die Spalten A bis L insgesamt beleuchtet werden müssen.
Kommt eine Zeile mit diesen Daten (Spalte A bis L) doppelt vor, so soll die Zelle in Spalte A rotmarkiert werden. Die Färbung soll aber erst bei dem zweiten oder weiteren Eintrag erfolgen. D.h. der erste Eintrag bleibt unverändert.
Bitte keine bedingte Formatierung.
Vielen Dank!
Gruß
Franz Kupfer

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeile löschen, wenn
23.01.2011 17:33:37
Josef

Hallo Franz,
probier folgenden Code.

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub markiereDoppelte()
  Dim lngLast As Long, rng As Range
  
  On Error GoTo ErrExit
  Application.ScreenUpdating = False
  
  lngLast = Application.Max(2, Cells(Rows.Count, 1).End(xlUp).Row)
  
  Columns(1).Insert
  
  Range("A2").FormulaArray = "=IF(MAX(IF(ROW($2:$" & lngLast & _
    ")>=ROW(),1,MMULT(($B$2:$M$" & lngLast & "=B2:M2)*1,IF(ROW($1:$12),1))))=12,NA(),"""")"
  
  Range("A2:A" & lngLast).FillDown
  
  On Error Resume Next
  Set rng = Columns(1).SpecialCells(xlCellTypeFormulas, xlErrors)
  On Error GoTo ErrExit
  
  If Not rng Is Nothing Then rng.EntireRow.Interior.ColorIndex = 3
  
  Columns(1).Delete
  
  ErrExit:
  Application.ScreenUpdating = True
  Set rng = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Zeile löschen, wenn
23.01.2011 17:46:51
Reinhard
Hallo Franz,
Option Explicit
Sub Farbe()
Dim Zei As Long, Letzte As Long, Formel As String, N As Long
Letzte = Cells(Rows.Count, 1).End(xlUp).Row
Formel = "=""#"""
For N = 65 To 76
Formel = Formel & "&" & Chr(N) & 2 & "&""#"""
Next N
Range("AA2:AA" & Letzte).FormulaLocal = Left(Formel, Len(Formel) - 4)
Range("A1:Z" & Letzte).Interior.ColorIndex = xlNone
For N = 2 To Letzte
If Application.CountIf(Range(Cells(2, 27), Cells(N, 27)), Cells(N, 27).Value) > 1 Then
Range(Cells(N, 1), Cells(N, 26)).Interior.ColorIndex = 3
End If
Next N
Columns(27).ClearContents
End Sub

Gruß
Reinhard
Anzeige
Vielen Dank für die Hilfe - oT
23.01.2011 18:30:26
Franz
@ Sepp Eine Änderung
24.01.2011 08:55:23
Franz
Hallo Sepp,
schreibe Dich an, weil ich Dein Makro in Betrieb habe. Wo müsste ich was ändern, wenn nur auf die Spalten B bis L geprüft werden soll, ob ein Datensatz doppelt vorkommt. Die Spalte A darf nicht mitgeprüft werden.
Vielen Dank!
Gruß
Franz Kupfer
AW: @ Sepp Eine Änderung
24.01.2011 08:57:37
Josef

Hallo Franz,
dazu muss nur der Formelstring angepasst werden. 

Range("A2").FormulaArray = "=IF(MAX(IF(ROW($2:$" & lngLast & _
")>=ROW(),1,MMULT(($BC2:$M$" & lngLast & "=C2:M2)*1,IF(ROW($1:$11),1))))=11,NA(),"""")"


Gruß Sepp

Anzeige
Schreibfehler!
24.01.2011 08:58:55
Josef

so stimmt's!

Range("A2").FormulaArray = "=IF(MAX(IF(ROW($2:$" & lngLast & _
")>=ROW(),1,MMULT(($C2:$M$" & lngLast & "=C2:M2)*1,IF(ROW($1:$11),1))))=11,NA(),"""")"
Gruß Sepp

AW: Schreibfehler!
24.01.2011 19:07:24
Franz
Hallo Sepp,
nun werden mir aber auch Zeilen rotmarkiert, die nur einmal vorkommen. Genauer gesagt wird jede Zeile ab Zeile 3 rot.
Fehler oder sitzt das Problem vor meinem PC?
Vielen Dank!
Gruß
Franz Kupfer
Anzeige
Fehlerteufel!
24.01.2011 19:34:04
Josef

Hallo Franz,
der Fehlerteufel ist manchmal ganz schön hartnäckig;-))
So sollte es aber passen.
Range("A2").FormulaArray = "=IF(MAX(IF(ROW($2:$" & lngLast & ")>=ROW(),1,MMULT(($C$2:$M$" & lngLast _
  & "=C2:M2)*1,IF(ROW($1:$11),1))))=11,NA(),"""")"


Gruß Sepp

Anzeige
AW: Fehlerteufel!
24.01.2011 20:22:30
Franz
Ähm, nun wird nix mehr gefärbt. Also auch kein doppelter Datensatz.
AW: Fehlerteufel!
24.01.2011 20:27:36
Josef

Hallo Franz,
dann hat sich aber an deinen Vorgaben etwas grundlegendes geändert.
habe gerade eine Testabelle erstellt und den Cod getestet, funktioniert wie erwartet.

Gruß Sepp

AW: Fehlerteufel!
24.01.2011 20:31:04
Franz
Uih, jetzt funktioniert es auch bei mir. Böse Falle.
Vielen Dank für Deine Hilfe!
Anzeige
Berechnung war auf manuell - oT
24.01.2011 20:33:38
Franz

309 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
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Wenn in Zelle folgender String, dann
mehmet

Hallo Forum,
In Spalte G4:G92 sind viele kodierte Zeichenfolgen.
Fest steht aber, dass diese zu erkennen sind, z.B.
in Zelle G4: METAR EKAH 052150Z AUTO 12005KT 9999NDV DZ OVC080/// 15/14 Q1005=
in Zelle G5: METAR ESSA 051940Z 20006KT CAVOK 11/10 Q1006 NOSIG=
und so weiter.....
06.09.2008 01:08:00
Thread-ID: 1007801
16 Beiträge
Anzeige
Wenn kein Optionsfeld ausgewählt dann MsgBox
Bernhard

Hallo liebe Excel Freunde!
Wer kann mir bitte helfen? Ich habe eine UF mit 2 Optionsfeldern. Ich möchte einen Hinweis mit einer MsgBox bekommen, wenn keines der beiden Optionsfelder ausgewählt wurde.
Wie mache ich das in VBA?
Danke für Eure Hilfe
Gruss
Bernhard
09.09.2008 11:32:23
Thread-ID: 1008391
5 Beiträge
VBA- Autofilter - leere Zeilen löschen
Asits

Hallo,
ich habe in der Spalte "A" Kundennummern stehen.
Ich will per Makro / Autofilter die kompletten Zeilen
derjehnigen Kunden löschen, die noch keine Kundennummer haben.
wie mache ich das ?
Vielen Dank vorab!
17.09.2008 08:48:00
Thread-ID: 1010225
5 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
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
5
7
15
5
4
4
2
9
2
2
7
3
7
3
7
1
3
4
23
4
7
4
3
7