Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1084to1088
1084to1088
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

aktive Zelle mit Spalte F vergleichen

Forumthread: aktive Zelle mit Spalte F vergleichen

aktive Zelle mit Spalte F vergleichen
Karsten
Hallo,
ich komme mit meinem Befehl nicht weiter, weiß einfach nicht, ob es so überhaupt geht.
Ich möchte, dass die aktive Zelle mit dem Inhalt der Spalte F verglichen wird. Wenn bei der gefundenen Zelle in F die Füllfarbe grau ist, sollte MsgBox "grau" angezeigt werden. Funktioniert aber mit meinen Kenntnissen nicht. Ich hab ein Beispiel hochgeladen um es besser zu veranschaulichen.
https://www.herber.de/bbs/user/63031.xls
Danke für eure Hilfe.
Gruß
Karsten
Anzeige
AW: aktive Zelle mit Spalte F vergleichen
09.07.2009 10:00:24
Tino
Hallo,
geht es hiermit?
Sub a()
Dim BereichF As Range
Dim varRow

'Suchbereich 
Set BereichF = Range("F1", Cells(Rows.Count, 6).End(xlUp))

varRow = Application.Match(Selection(1), BereichF, 0)

If IsNumeric(varRow) Then
 If BereichF(varRow, 1).Interior.ColorIndex = 15 Then
  MsgBox "Die Zelle '" & BereichF(varRow, 1).Address(0, 0) & "' ist grau"
 End If
End If


End Sub
Gruß Tino
Anzeige
AW: aktive Zelle mit Spalte F vergleichen
09.07.2009 10:23:47
Karsten
Hallo Tino,
Danke! Jetzt bin ich ein Schritt weiter. Ich habe den Befehl noch etwas angepasst (s.u.), weiß aber schon wieder nicht weiter. Wenn in der Spalte in der sich die aktive Zelle befindet die Zelle darunter leer ist, soll die nächste Spalte "durchforstet" werden (ab Zeile 1) bis Spalte E. G nicht mehr. Ich weiß nicht ob diese Sache überhaupt noch richtig chic aussieht. Wenn alle übereinstimmenden Daten mit einmal gelöscht würden, wäre es wohl besser. 
Sub a()
Dim BereichF As Range
Dim varRow
'Suchbereich
Set BereichF = Range("F1", Cells(Rows.Count, 6).End(xlUp))
varRow = Application.Match(Selection(1), BereichF, 0)
If IsNumeric(varRow) Then
If BereichF(varRow, 1).Interior.ColorIndex = 15 Then
Selection.ClearContents
With ActiveCell
Range(.Offset(1, 0), .Offset(1, 0)).Select
End With
Else
With ActiveCell
Range(.Offset(1, 0), .Offset(1, 0)).Select
End With
End If
End If
End Sub

Anzeige
AW: aktive Zelle mit Spalte F vergleichen
09.07.2009 10:33:21
Tino
Hallo,
irgendwie verstehe ich jetzt nicht richtig.
Also Du möchtest ab der Aktiven Zelle die Nachfolgenden Zellen durchlaufen und alle die gefunden werden (also grau in der der Spalte F sind) löschen?
Gruß Tino
AW: aktive Zelle mit Spalte F vergleichen
09.07.2009 10:46:38
Karsten
Hallo Tino,
ja, genau. Aber, statt der aktiven Zelle kannst du auch a1 nehmen. Es beginnt immer in A1. A1 ist bei mir "erste_Zelle_Datum" und E(x) "letzte_Zelle_Datum". Dieser Bereich kann sich durch hinzufügen von Zeilen verändern.
Geht das ganze auch, wenn die Datumreihe in F auf einem anderen Tabelleblatt steht?
Gruß
Karsten
Anzeige
AW: aktive Zelle mit Spalte F vergleichen
09.07.2009 10:50:47
Karsten
Hallo Tino,
ja, genau. Aber, statt der aktiven Zelle kannst du auch a1 nehmen. Es beginnt immer in A1. A1 ist bei mir "erste_Zelle_Datum" und E(x) "letzte_Zelle_Datum". Dieser Bereich kann sich durch hinzufügen von Zeilen verändern.
Geht das ganze auch, wenn die Datumreihe in F auf einem anderen Tabelleblatt steht?
Gruß
Karsten
Anzeige
AW: aktive Zelle mit Spalte F vergleichen
09.07.2009 11:07:56
Tino
Hallo,
müsste so funktionieren.
Sub A()
Dim BereichF As Range
Dim varRow
Dim Bereich As Range, rInfo As Range

With Application
 .ScreenUpdating = False
 .EnableEvents = False
    'Suchbereich 
    Set Bereich = Range("A1", Cells(Rows.Count, 1).End(xlUp).Offset(0, 4))

    With Sheets("Tabelle2") 'Deine Liste (Spalte F) Tabellenname anpassen 
     Set BereichF = .Range("F1", .Cells(.Rows.Count, 6).End(xlUp))
    End With

    For Each Bereich In Bereich
    
     If Bereich.Column >= Selection(1).Column Then
        If Not Bereich.Column = Selection(1).Column Or Bereich.Row >= Selection(1).Row Then
              varRow = Application.Match(Bereich, BereichF, 0)
          
              If IsNumeric(varRow) Then
               If BereichF(varRow, 1).Interior.ColorIndex = 15 Then
                Bereich.Value = ""
                    If rInfo Is Nothing Then
                     Set rInfo = Bereich
                    Else
                     Set rInfo = Union(Bereich, rInfo)
                    End If
               End If
              End If
        
        End If
      End If
    
    Next Bereich
 
 .ScreenUpdating = True
 .EnableEvents = True
End With


If rInfo Is Nothing Then
 MsgBox "Es wurde nichts gefunden!", vbInformation
Else
 MsgBox "Es wurden die Zelle(n)" & vbCr & rInfo.Address(0, 0) & vbCr & "gelöscht", vbInformation
End If

End Sub
Gruß Tino
Anzeige
AW: aktive Zelle mit Spalte F vergleichen
09.07.2009 11:21:25
Karsten
Hallo Tino,
klappt, bin regelrecht sprachlos. Danke.
Gruß
Karsten
AW: aktive Zelle mit Spalte F vergleichen
09.07.2009 11:59:40
Karsten
Hallo Tino,
es gibt doch noch Probleme. Vielleicht mach ich noch etwas falsch.
In meiner richtigen Datei klappt bei den Junidaten das Löschen ohne Fehler. Bei anderen Monaten funktioniert das Löschen nicht. Ich hab nochmal eine Beispieldatei gemacht. Da funktioniert der Juni jetzt kaum und der Juli gar nicht. Was hab ich da falsch gemacht?
https://www.herber.de/bbs/user/63043.xls
Gruß
Karsten
Anzeige
AW: aktive Zelle mit Spalte F vergleichen
09.07.2009 12:22:19
Karsten
Hallo Tino,
habs gefunden. Hab den Bereich nicht richtig angegeben.
Gruss
Karsten
;

Forumthreads zu verwandten Themen

Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Zelleninhalt mit Makro auf Spalten aufteilen
Rene

Hallo Experten,
ich benötige bitte eure Hilfe und hoffe, dass meine erste Problemschilderung nicht zu unverständlich ist.
Hier mein Problem bzw. Wunsch-Makro:
Farblich markierte Zellen in Tabelle1: C1: =3453,63+235,64-23563,12
D5: =1234,43-234+234.... usw.
Aufteilung de...
15.02.2009 14:48:00
Thread-ID: 1050879
5 Beiträge
Anzeige
Spalte mit Wert aus einer Zelle füllen
schneidrian

Hallo Forum,
Ich habe folgendes Problem, ich habe einige hundert Zellen untereinander. In diese (alle) will ich genau den gleichen Wert eintragen lassen, der in einer gesonderten Zelle steht. Irgendwie finde ich hier keine passendes Mittel.
Viele Grüße
Florian
16.02.2009 17:06:00
Thread-ID: 1051222
2 Beiträge
Anzeige
Dynamische Zellen- und Spaltenbereiche
gatewax

Hallo,
ich habe nur eine kurze Frage die sicher auch schnell beantwortet werden kann.
Wie bekommt man diese dynamischen Zeilen- und Spaltenbereiche wie auf dem Bild hin.

03.04.2009 10:56:58
Thread-ID: 1066603
2 Beiträge
Zahl in Spalte finden und dann Zelle Aktivieren
Hans

Hallo Leute ich habe ein Problem das ich nicht gelöst bekommen.
Ich möchte in Spalte A:A einen Wert suchen der in der Variable "Zahl" steht.
Ist der Wert gefunden soll die gefundene Zelle mit "ActiveCell.Select" aktiviert werden
Wird der Wert nicht gefunden soll die erste leere Stel...
08.04.2009 10:45:33
Thread-ID: 1067641
4 Beiträge
Spalten mit farbigen Zellen ausblenden
Robert

Hallo,
stehe momentan voll auf dem Schlauch und komm nicht weiter.
Könnte Ihr mir bitte helfen?
Ich müsste alle Spalten, in denen eine oder mehrere farbige Zellen sind, ausblenden.
- und das wenn möglich mit VBA.
Vielen Dank schon mal.
Gruß Robert
11.06.2009 19:25:52
Thread-ID: 1080829
3 Beiträge
In VBA mit Spalten vergleichen
Ralph_III

Hallo zusammen, ich bin in VBA leider noch ein ziemlicher Laie, versuche das aber gerade zu ändern. Ich habe allerdings ein Problem und bräuchte Hilfe:
in Zelle L2 von Tabelle1 steht ein Wert, den ich mit der Spalte C (C3 bis C600) von Tabelle2 vergleichen will. Wenn er sich darin befindet,...
10.09.2009 09:45:18
Thread-ID: 1101667
3 Beiträge
Anzeige
Leere Zellen mit Null füllen, Sortierung Spalte A
jo_cindy

Hi, habe in meinem Makro noch 2 Probleme:
1. In den Spalten Z, AA und AB gibt es noch leere Zellen. Diese sollten eigentlich mit einer Null gefüllt werden, da sonst meine Berechnungsformeln in AC bis AG nicht funktionieren.
2. In der Spalte A wird die Überschrift mit sortiert
Könnt...
28.10.2009 02:42:18
Thread-ID: 1112657
13 Beiträge
zelle mit bereich vergleichen
Mike

hallo excel freunde
ich habe folgendes problem: in zelle A1 steht eine zahl und soll verglichen werden mit den bereich B1:G20 wenn im bereich die zahl übereinstimmt soll über GOTO ein rücksprung in ein anderen bereich denn ich schon geschrieben habe stattfinden. also mir fehlt nur der progr...
01.11.2009 19:47:15
Thread-ID: 1113708
3 Beiträge
Drei Spalten vergleichen und auch Zellen mit Text
belanglos

Hallo,
mir hat im Beitrag: https://www.herber.de/forum/archiv/1112to1116/t1112845.htm#1112845 "WF" mit der Formel: "=WENN(ANZAHL(A1:C1)=0;"";WENN(ANZAHL(A1:C1)=1;MAX(A1:C1);WENN(UND(A1=B1;A1=C1);A1;"x")))" weitergeholfen.
Da ich dort irgednwie nichts schreiben kann, habe ich mal einen n...
10.11.2009 12:01:55
Thread-ID: 1115729
5 Beiträge
Drei Spalten vergleichen und auch Zellen mit Text
belanglos

Hallo,
mir hat im Beitrag: https://www.herber.de/forum/archiv/1112to1116/t1112845.htm#1112845 "WF" mit der Formel: "=WENN(ANZAHL(A1:C1)=0;"";WENN(ANZAHL(A1:C1)=1;MAX(A1:C1);WENN(UND(A1=B1;A1=C1);A1;"x")))" weitergeholfen.
Da ich dort irgednwie nichts schreiben kann, habe ich mal einen n...
10.11.2009 10:40:06
Thread-ID: 1115733
2 Beiträge
Zelle mit Zell-Auswahl vergleichen
Gho-Reg

Ich habe ein Tabellenblatt mit einer Reihe von Zellen die leer sind ("") und mit Zahlen in Reihe A.
Die sieht ungefähr so aus
0, "", 1, "", "", "", 4, "", "", 3, "", "", 1, "", 2, "", ""
Ich brauche jetzt eine Formel die mir berechnet ob die nächste Zelle mit einer Zahl oder mit ""...
20.11.2009 01:05:13
Thread-ID: 1118796
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige