Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

For Each Zelle_in_der_Schleife.... verkürzen

Forumthread: For Each Zelle_in_der_Schleife.... verkürzen

For Each Zelle_in_der_Schleife.... verkürzen
11.07.2007 02:46:00
Karsten
Hallo...
...kann mir jemand diese Aktion kürzer machen?
For Each Zelle_in_der_Schleife In Range("M5:c31")
If Zelle_in_der_Schleife.Value = "Montag" Then
With Zelle_in_der_Schleife.Offset(0, 0).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("M5:c31")
If Zelle_in_der_Schleife.Value = "Montag" Then
With Zelle_in_der_Schleife.Offset(0, -1).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Montag" Then
With Zelle_in_der_Schleife.Offset(0, -2).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Montag" Then
With Zelle_in_der_Schleife.Offset(0, -3).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Montag" Then
With Zelle_in_der_Schleife.Offset(0, -4).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Montag" Then
With Zelle_in_der_Schleife.Offset(0, -5).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Montag" Then
With Zelle_in_der_Schleife.Offset(0, -6).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Montag" Then
With Zelle_in_der_Schleife.Offset(0, -7).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Montag" Then
With Zelle_in_der_Schleife.Offset(0, -8).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Montag" Then
With Zelle_in_der_Schleife.Offset(0, -9).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Montag" Then
With Zelle_in_der_Schleife.Offset(0, -10).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Montag" Then
With Zelle_in_der_Schleife.Offset(0, -11).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Dienstag" Then
With Zelle_in_der_Schleife.Offset(0, 0).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Dienstag" Then
With Zelle_in_der_Schleife.Offset(0, -1).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Dienstag" Then
With Zelle_in_der_Schleife.Offset(0, -2).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Dienstag" Then
With Zelle_in_der_Schleife.Offset(0, -3).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Dienstag" Then
With Zelle_in_der_Schleife.Offset(0, -4).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Dienstag" Then
With Zelle_in_der_Schleife.Offset(0, -5).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Dienstag" Then
With Zelle_in_der_Schleife.Offset(0, -6).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Dienstag" Then
With Zelle_in_der_Schleife.Offset(0, -7).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Dienstag" Then
With Zelle_in_der_Schleife.Offset(0, -8).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Dienstag" Then
With Zelle_in_der_Schleife.Offset(0, -9).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Dienstag" Then
With Zelle_in_der_Schleife.Offset(0, -10).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Dienstag" Then
With Zelle_in_der_Schleife.Offset(0, -11).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Mittwoch" Then
With Zelle_in_der_Schleife.Offset(0, 0).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Mittwoch" Then
With Zelle_in_der_Schleife.Offset(0, -1).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Mittwoch" Then
With Zelle_in_der_Schleife.Offset(0, -2).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Mittwoch" Then
With Zelle_in_der_Schleife.Offset(0, -3).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Mittwoch" Then
With Zelle_in_der_Schleife.Offset(0, -4).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Mittwoch" Then
With Zelle_in_der_Schleife.Offset(0, -5).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Mittwoch" Then
With Zelle_in_der_Schleife.Offset(0, -6).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Mittwoch" Then
With Zelle_in_der_Schleife.Offset(0, -7).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Mittwoch" Then
With Zelle_in_der_Schleife.Offset(0, -8).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Mittwoch" Then
With Zelle_in_der_Schleife.Offset(0, -9).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Mittwoch" Then
With Zelle_in_der_Schleife.Offset(0, -10).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Mittwoch" Then
With Zelle_in_der_Schleife.Offset(0, -11).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Donnerstag" Then
With Zelle_in_der_Schleife.Offset(0, 0).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Donnerstag" Then
With Zelle_in_der_Schleife.Offset(0, -1).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Donnerstag" Then
With Zelle_in_der_Schleife.Offset(0, -2).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Donnerstag" Then
With Zelle_in_der_Schleife.Offset(0, -3).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Donnerstag" Then
With Zelle_in_der_Schleife.Offset(0, -4).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Donnerstag" Then
With Zelle_in_der_Schleife.Offset(0, -5).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Donnerstag" Then
With Zelle_in_der_Schleife.Offset(0, -6).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Donnerstag" Then
With Zelle_in_der_Schleife.Offset(0, -7).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Donnerstag" Then
With Zelle_in_der_Schleife.Offset(0, -8).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Donnerstag" Then
With Zelle_in_der_Schleife.Offset(0, -9).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Donnerstag" Then
With Zelle_in_der_Schleife.Offset(0, -10).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Donnerstag" Then
With Zelle_in_der_Schleife.Offset(0, -11).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Freitag" Then
With Zelle_in_der_Schleife.Offset(0, 0).Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Freitag" Then
With Zelle_in_der_Schleife.Offset(0, -1).Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Freitag" Then
With Zelle_in_der_Schleife.Offset(0, -2).Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Freitag" Then
With Zelle_in_der_Schleife.Offset(0, -3).Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Freitag" Then
With Zelle_in_der_Schleife.Offset(0, -4).Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Freitag" Then
With Zelle_in_der_Schleife.Offset(0, -5).Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Freitag" Then
With Zelle_in_der_Schleife.Offset(0, -6).Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Freitag" Then
With Zelle_in_der_Schleife.Offset(0, -7).Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Freitag" Then
With Zelle_in_der_Schleife.Offset(0, -8).Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Freitag" Then
With Zelle_in_der_Schleife.Offset(0, -9).Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Freitag" Then
With Zelle_in_der_Schleife.Offset(0, -10).Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
End If
Next
For Each Zelle_in_der_Schleife In Range("m5:c31")
If Zelle_in_der_Schleife.Value = "Freitag" Then
With Zelle_in_der_Schleife.Offset(0, -11).Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
End If
Next
Mal wieder vielen Dank im voraus!
Gruß
Karsten

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: For Each Zelle_in_der_Schleife.... verkürzen
11.07.2007 05:37:00
Oberschlumpf
Hi Karsten
Nach deinem Code innerhalb der For/Next-Schleife kann nur in Spalte L oder M ein Wochentag stehen, oder? Wenn in Spalte K der Wochentag steht, würde spätestens bei .Offset(0,-11)... ein Fehler auftreten, weil Spalte K (11) - 11 = Spalte 0 wäre. Excel beginnt aber mit Spalte 1 (A).
Ich vermute jetzt mal, dass in deiner Tabelle nur in Spalte M der Werktag steht. So würde Spalte A leer bleiben.
Versuch es mal so:

Sub werktag()
For Each Zelle_in_der_Schleife In Range("M5:M31")
Zeile = Zelle_in_der_Schleife.Row
Select Case Zelle_in_der_Schleife.Value
Case "Montag"
Range("B" & Zeile & ":M" & Zeile).Interior.ColorIndex = 6
Case "Dienstag"
Range("B" & Zeile & ":M" & Zeile).Interior.ColorIndex = 8
Case "Mittwoch"
Range("B" & Zeile & ":M" & Zeile).Interior.ColorIndex = 40
Case "Donnerstag"
Range("B" & Zeile & ":M" & Zeile).Interior.ColorIndex = 35
Case "Freitag"
Range("B" & Zeile & ":M" & Zeile).Interior.ColorIndex = 39
End Select
Next
End Sub


Konnte ich denn helfen, oder kommt es wirklich vor, dass in jeder Zelle im Bereich C5:M31 ein Werktag stehen kann?
Ciao
Thorsten

Anzeige
AW: For Each Zelle_in_der_Schleife.... verkürzen
11.07.2007 17:29:15
Karsten
Hallo Torsten,
entschuldige, hab dich leider vergessen. Klappt.
Grus Karsten

und hier noch eine Variante ...
11.07.2007 08:09:00
Matthias
Hallo
Hier eine weiter Variante
Option Explicit

Sub TestKarsten()
Dim Zelle_in_der_Schleife As Variant
Dim X, Farbe As Byte
For Each Zelle_in_der_Schleife In Range("M5:M31")
If Zelle_in_der_Schleife.Value = "Montag" Then Farbe = 6
If Zelle_in_der_Schleife.Value = "Dienstag" Then Farbe = 8
If Zelle_in_der_Schleife.Value = "Mittwoch" Then Farbe = 40
If Zelle_in_der_Schleife.Value = "Donnerstag" Then Farbe = 35
If Zelle_in_der_Schleife.Value = "Freitag" Then Farbe = 39
For X = -11 To 0
Zelle_in_der_Schleife.Offset(0, X).Interior.ColorIndex = Farbe
Next
Farbe = 0
Next
End Sub


Userbild
Ich bin dabei, genau wie Thorsten davon ausgegangen das die Tage nur in Spalte M stehen.
Userbild

Anzeige
AW: und hier noch eine Variante ...
11.07.2007 17:31:29
Karsten
Hallo Matthias,
Klappt ebenfalls. Danke.
;

Forumthreads zu verwandten Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
For each c in Bereich
Gregor

Hallo
Ich habe folgende Abfrage:
For Each c In Bereich
Wert = Cells(c.Row, 7).Value
If Wert "kein" Then
usw.
Ich möchte also bei c (Zeile) Spalte 7 den Wert abfragen und je nach Wert weiterfahren. Bereich ist in Spalte 5 definiert.
Wie komme ich zu dieser Zeilen-Nu...
24.10.2008 16:32:40
Thread-ID: 1019066
8 Beiträge
Daten fortlaufend von Formular in Range schreiben
Formular

Hi,
wie kann ich denn folgende Abfrage bzw kopieren erledigen:
Ich habe Ein Formular mit Textbox'n und Combobox'n
auf einem Bestimmte Tabellenblatt ("Daten") möchte ich nun die Folgenden Inhalte kopieren (button)
Auf dem Tabellenblatt ("Daten") habe ich ein Range B33 : F42 (also...
29.01.2009 09:26:24
Thread-ID: 1044806
3 Beiträge
for each zelle in sheet problem
thomas

Hallo Leute
Ich hab mal eine allgemeine Frage.
Und zwar möchte ich jede Zelle im sheet nach einem string durchsuchen.
Die Suche klappt auch soweit.
Nur möchte ich keine 2 For next schleifen verwenden sondern:
ZeileEnde=Sheets("Tabelle1").Cells(row.count,1).End(xlUp).row
...
08.04.2009 10:06:35
Thread-ID: 1067622
3 Beiträge
For Each zelle In Range("a2:a1000") erweitern
Karsten

Hallo,
Wenn ich diesen Befehl ausführe befinde ich mich gerade in Tabelle1. Ich möchte aber, dass u.s. Befehl in Tabelle2 ausgeführt wird. Kann mir jemand die Tabelle2 in den Befehl hineinkonstruieren.
Danke.
Gruß
Karsten
Dim zelle As Range
For Each zelle In Range("a2:a...
08.07.2009 10:59:35
Thread-ID: 1087125
3 Beiträge
For each zelle activecell.adress
Hartmut_M

Hallo, stehe im Moment neben mir.
Habe folgenden Code:
For Each zelle in [H12:X33]
If zelle.adress = [H12] then msgbox "OK"
Next
Also wenn der Name der Zelle H12 ist, soll eine Msgbox kommen. Funktioniert aber nicht.
Wo liegt mein Fehler?
Freu mich über jeden Tipp.
18.09.2009 18:09:00
Thread-ID: 1103973
5 Beiträge
Anzeige
In For each rng weiterspringen
Gregor

Hallo zusammen
Ich suche nach einer Zellfarbe. Die Zeile dieser Zelle wird dann bis zu 15 Zeilen erweitert und kopiert (eruiert erste und letzte zu kopierende Zeile). Anschliessend muss die Suche dieser Zellfarbe nach der kopierten Zeile weiterfahren, ansonsten werden die gleichen Zeilen me...
18.05.2010 11:00:44
Thread-ID: 1157557
4 Beiträge
Conditional Formatting mit Data Range
Clemens

Hallo zusammen,
ich möchte eine visuelle Validierung einer Spalte durchführen. Dazu möchte ich die Werte einer Spalte mit einem Data Range auf einem anderen Excel Sheet vergleichen. Falls der Wert nicht Teil des Data Ranges ist, soll die Zelle rot eingefärbt werden.
Mit Conditional Form...
15.07.2010 19:10:47
Thread-ID: 1167359
3 Beiträge
Array direkt (ohne FOR) in Range schreiben
Thomas

Ich habe folgendes kleines Problem:Ich möchte die Daten aus einem Array, z.B.
Dim Ary(5,10) As Singledirekt (also ohne for-schleife) in ein Range-Objekt z.B.Range(cells(1,1), cells(5,10)) schreiben. Es ist auch wichtig, daß alle vorherigen Berechnungen mit dem Array durchgeführt wurden, als...
27.04.2002 12:44:15
Thread-ID: 116840
3 Beiträge
"For Each" für Datein ???
lupo

Hallo Forum.
Ich möchte in einem Ordner die Namen der Datein durchsuchen und vergleichen. Ist der vergleich ungleich, so sollen die Datein gelöscht werden.
Den Vergleich führe ich über die LIKE - Funktion durch.
Damit alle Datein verglichen werden, wollte ich FOR EACH einsetzen.
...
19.10.2010 02:25:08
Thread-ID: 1182974
4 Beiträge
Range aus seriellen Zahlen in Datum im Textformat
Peter

Liebes Forum
In range(cells(6,1),cells(62,1) stehen serielle Zahlen drin; einzelne Zellen sind leer. Ziel ist, die seriellen Zahlen als Datum zu zeigen, die Spatle anzupassen, dass das Datum lesbar ist und als letzter Schritt das Datum als Text zu speichern (ohne dass vom Aussehen her etwas...
05.02.2011 21:11:19
Thread-ID: 1199232
5 Beiträge
For each Zelle in Target
Chris

Hallo zusammen,
folgendes makro erhöht den Wert in Zelle L11 um 1 bzw. senkt diesen, wenn Zelle J45 größer bzw. kleiner als J45 ist. Nun möchte ich dieses Makro auf weitere Zellen ausdehen, zB. J99 und J100, J 109 und 110 (insgesamt ca. 100 Stück, also 50 Paare). Immer wenn in diesen Zellen...
05.04.2011 20:26:56
Thread-ID: 1209146
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige