Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
504to508
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
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
VBA Zellen auslesen
27.10.2004 12:33:40
Markus
Hallo,
als Einleitung:
Ich habe einige Daten gesammelt und je nach Ablage Zellen farbig markiert.
Ich möchte nun in eine vorstehende Zelle je nach farblichen Markierung der Nachstehenden Zelle Ordner1, oder Ordner 2 etc eintragen lassen.
Also Beispiel
Zelle B2 ist rot gefärbt, dann soll in Zelle A1 Ordner 1 stehen
Zelle B3 ist gelb gefärbt, dann soll in Zelle A2 Ordner 2 stehen usw.
Kann mir jemand Helfen?
Vielen Dank im voraus und viele Grüße
Markus

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Zellen auslesen
AndréL.
Hallo Markus,
das folgende Makro kann das.
Option Explicit

Sub a()
Dim zelle As Range
For Each zelle In ActiveSheet.Range("B:B")
If zelle.Interior.ColorIndex = 3 Then
zelle.Offset(0, -1) = "Ordner1"
ElseIf zelle.Interior.ColorIndex = 6 Then
zelle.Offset(0, -1) = "Ordner2"
End If
Next
End Sub

Gruß
AndréL.
PS.Rückmeldung wäre nett!
AW: VBA Zellen auslesen
27.10.2004 13:19:19
Markus
Hallo Andre,
super vielen Dank, funktioniert ohne probleme.
aber was meinst du denn mit "Option Explicit"
Grüße
AW: VBA Zellen auslesen
AndréL.
Hallo Markus,
Option Explicit steht im Eingabefenster des VBA-Editors ganz oben(sollte)
und erzwingt die Variblendeklarierung.
In diesem Fall:
Dim zelle As Range
Gruß
AndréL.
PS. Im VBA Editor: Extra--Optionen-- Häkchen bei:Variablendeklaration erforderlich.
Anzeige
AW: VBA Zellen auslesen
27.10.2004 13:33:05
Rolf
Hallo Markus,
versuch's mal mit dieser benutzerdefinierten Funktion,
die du deinen Bedürfnissen entsprechend abwandeln musst.
In die Zielzelle (links neben deiner Farbzelle) gibst
du ein =Ordner()
FG
Rolf

Function ordner()
Dim farbe As Integer
farbe = ActiveCell.Offset(0, 1).Interior.ColorIndex
Select Case farbe
Case 2 'weiss
ordner = "Ordner 1"
Case 3 'rot
ordner = "Ordner 2"
Case 4 'grün
ordner = "Ordner 3"
Case 5 'blau
ordner = "Ordner 4"
Case 6 'gelb
ordner = "Ordner 5"
Case Else
ordner = "gibbet nich"
End Select
End Function

Anzeige

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige