Hallo,
ich weiß das dieser Problemfall oft behandelt wird. Jedoch ist dieser mal wieder ein bißchen speziell. Ich hoffe Ihr könnt mir helfen. Ich bedanke mich dann natürlich auch:wink:
Es geht um eine Freigegebene Tabelle in der 5 Benutzer verschiedene Begriffe in die Zellen eintragen.
Ist die Zelle leer bleibt die Zelle weiß
Bei „Urlaub“ = Grün
Bei „“ = grau
Bei „Arzt“ = rot
Über einen Button wird folgendes Makro ausgelöst.
Zeile = ActiveCell.Row ‚Aktuelle zeile ermittel‘
spalte = ActiveCell.Column ‚Aktuelle Spalte ermitteln‘
Range(„G4“).Select
Selection.Copy
Range(„F4:EJ26“).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Cells(Zeile, spalte).Select ‚Startzelle wieder aktiv setzen‘
Es wird praktisch die Formatierung einer Beispielzelle für alle weiteren Zellen übernommen da es vorkommen kann, dass wenn eine Zelle verschoben oder ausgeschnitten wird, sich die Formatierung ändert.
Es ist also ein „Clean“ Button der alles schön formatiert.
Leider funktioniert das bei Freigegebern Tabelle nicht.
In dsa kleine Programm soll also die bedingtre Formatierung aufgenommen werden. Dann kann die Bezugszelle auch wegfallen.
Weiterhin soll auch der Rahmen der Bezugszelle übernommen werden. (Allseitig schwarz dünn)
Gibts da ne Möglichkeit?
Hallo Dya,
Es geht um eine Freigegebene Tabelle in der 5 Benutzer
verschiedene Begriffe in die Zellen eintragen.
Ist die Zelle leer bleibt die Zelle weiß
Bei „Urlaub“ = Grün
Bei „“ = grau
Bei „Arzt“ = rot
Gibt da jemend zweifach Gänsefüßchen in die Zelle, Unterschied zwischen weiß und grau ist mir nicht klar.
Diese zelle(n) in ide da eingegeben wird, steht die innerhalb von
F4:EJ26 oder außerhalb oder egal wo? Ist es immer G4?
Über einen Button wird folgendes Makro ausgelöst.
Wie wäre es mit Worksheet_Change-Ereignis im Modul der Tabelle?
Das reagiert auf jede Zellwertänderung automatisch.
Es wird praktisch die Formatierung einer Beispielzelle für
alle weiteren Zellen übernommen da es vorkommen kann, dass
wenn eine Zelle verschoben oder ausgeschnitten wird, sich die
Formatierung ändert.
Das ist dem Worksheet_Change-Ereignis egal, es greift auf idie Zellen zu die im Moment einer Zellwertänderung den Bereich F4:EJ26 darstellen.
Es ist also ein „Clean“ Button der alles schön formatiert.
Leider funktioniert das bei Freigegebern Tabelle nicht.
Das ist schlecht, mit freigegebenen Mappen kenne ich mich nicht aus.
Mir noch unklar ob wenn ich eine Mappe freigebe, diese in zweiter Excelinstanz starte dies dann identisch dem entspricht was bei dir vorliegt.
In dsa kleine Programm soll also die bedingtre Formatierung
aufgenommen werden. Dann kann die Bezugszelle auch wegfallen.
? G4 wieder löschen?
Weiterhin soll auch der Rahmen der Bezugszelle übernommen
werden. (Allseitig schwarz dünn)
Wenn du nur Formatieren willst dann kann doch dies das makro tun, dann brauchste keine bed. Formatierung.
Gruß
Reinhard
Hallo,
danke für die Antwort.
Grau werden die Zellen was etwas eingetragen wird (ausgenommen Urlaub u Arzt) Es heißt also ungleich „“ = grau
Bei einer freigegebenen tabelle lassen sich halt keine bedingten Formatierungen festlegen. Das ist der Knackpunkt. Dementsprechend muss in meinem Makro die „bedingte Formatierung“ eingebaut werden.
Hallo Dya,
Grau werden die Zellen was etwas eingetragen wird (ausgenommen
Urlaub u Arzt) Es heißt also ungleich „“ = grau
aha, also so:
Ist die Zelle leer bleibt die Zelle weiß
Bei „Urlaub“ = Grün
Bei „Arzt“ = rot
Bei „“ = grau
Bei einer freigegebenen tabelle lassen sich halt keine
bedingten Formatierungen festlegen. Das ist der Knackpunkt.
Dementsprechend muss in meinem Makro die „bedingte
Formatierung“ eingebaut werden.
Was in freigebenen mappen mit bed. Formatierung geschieht weiß ich nicht, war jetzt seit meinem letzten Beitrag an dich nicht am PC und konnte noch nix testen.
Dann kann das ja nur bedeuten, wenn korrekt ist was du sagst, daß das Makro die bed. Formatierung ersetzt, also das makro formatiert da diesen Zellenbereich, ist das so gedacht?
Ich hatte aber noch anderes gefragt *erinner*
Gruß
Reinhard
Hallo,
es würde auch über das Change Erreignis funktionieren. Nur hören dort meine Programmierkenntnisse auf.
Ja das Makro soll im Grunde die Formatierung übernehmen. Dann brauche ich keine bedingte Formatierung und somit auch keine Bezugszelle mehr.
Es wäre schön wenn du mir einen Tipp für die Programmierung des Makros geben könntest.
Ja das Makro soll im Grunde die Formatierung übernehmen. Dann
brauche ich keine bedingte Formatierung und somit auch keine
Bezugszelle mehr.
Es wäre schön wenn du mir einen Tipp für die Programmierung
des Makros geben könntest.
Hallo Dya,
nachfolgender Code gehört in das Blattmodul des Blattes.
Die drei Farbnummer mußte noch rausfinden.
Färbe drei Zellen nach Wunsch und frag dann die Farbnummern ab.
Msgbox Range(„A1“).interior.colorindex
usw.
Es wird die Zelle A1 überwacht, je nachdem wird dann F4:EJ26 gefärbt und mit Rahmen versehen.
Gruß
Reinhard
Option Explicit
Private Sub Worksheet\_Change(ByVal Target As Range)
Dim Farbe As Long, N As Integer
If Target.Cells.Count 1 Then Exit Sub
If Target.Address(0, 0) "A1" Then Exit Sub
Application.ScreenUpdating = False
Select Case UCase(Target.Value)
Case ""
Farbe = xlNone
Case "URLAUB"
Farbe = 7 ' grün
Case "ARZT"
Farbe = 12 'rot
Case Else
Farbe = 45 'grau
End Select
Range("F4:EJ26").Interior.ColorIndex = Farbe
For N = 7 To 12
With Range("F4:EJ26").Borders(N)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
Next N
Application.ScreenUpdating = True
End Sub