Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
816to820
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
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zelle aktivieren

zelle aktivieren
09.11.2006 20:31:59
Fritz
Schönen Abend.
Ich habe eine Tabelle in welcher maximal 2 zellen mit ColorIndex 5 gefüllt sind. die Einfärbung erfolgt mit einem Makro durch einen Doppelklich auf die Zellen.
Möchte nun folgendes lösen.
nach dem einfärben der zweiten zelle mit dem makro (das ich bereits habe) soll mit einem makro die erste blaue zelle aktiviert werden.
und noch eine frage ist es möglich ein makro zu verwenden das ich maximal zwei zellen in der tabelle einfärben kann?
Danke!

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

Betreff
Datum
Anwender
Anzeige
AW: zelle aktivieren
09.11.2006 22:49:19
ramses
Hallo
1. Zeig mal den Code mit dem du die Zellen färbst
2. Ja, das ist möglich, ... aber ob das Sinn macht wenn die ganze Tabelle berücksichtigt werden soll, bezweifle ich.
Gruss Rainer
AW: zelle aktivieren
10.11.2006 08:22:38
Fritz
Guten Morgen Rainer!
die Einfärbung mach ich mit folgendem Makro
Private Sub Worksheet_BeforeDoubleClikc(ByVal Target As Range, Cancel as Boolean)
Makro 1
Und in Makro 1 steht
Selection. Iterior.ColorIndex = 5
Die beiden Zellen die ich einfärben will befinden sich nur in einme Berich zwischen A1 und V 39
AW: zelle aktivieren
10.11.2006 09:54:32
fcs
Hallo Fritz,
mit folgender Konfiguration deiner Makros funktioniert es
Gruss
Franz

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Anzahl As Integer
Anzahl = PruefenFarbe(5, Range("A1:V39"))
If Anzahl < 2 Then
Makro1
If Anzahl = 1 Then
Call ErsteFarbigeSuchen(5, Range("A1:V39"), Target.Address)
End If
Else
MsgBox "Es sind bereits 2 Zellen blau eingefärbt"
End If
End Sub
Sub Makro1()
Selection.Interior.ColorIndex = 5
End Sub
Function PruefenFarbe(Farbe As Integer, Bereich As Range) As Integer
'Ermittelt die Anzahl der Zellen mit Farbe im Bereich
Dim Zelle As Range
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then PruefenFarbe = PruefenFarbe + 1
Next
End Function
Sub ErsteFarbigeSuchen(Farbe As Integer, Bereich As Range, Zelle2 As String)
' Selektiert die andere farbige Zelle, wenn die 2. Zelle farbig markiert wurde
Dim Zelle As Range
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe And Zelle.Address <> Zelle2 Then
Zelle.Select
End If
Next
End Sub

Anzeige
AW: zelle aktivieren
10.11.2006 12:42:33
Fritz
Hallo Franz!
Danke für das suuuuuuuuper Makro!!!
Schönen Tag

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige