Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1272to1276
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
Inhaltsverzeichnis

Werte nur in Markierten Zellen ändern

Werte nur in Markierten Zellen ändern
Valeri
Hallo ihr Allwissenden,
mit folgendem Code ändere ich markierte Zellen:
Sub Zelle_Urlaub_rot()
Application.ScreenUpdating = False
Dim c As Range
For Each c In Selection
If Not (IsEmpty(c)) Then
c.FormulaR1C1 = "U"
c.Interior.Color = 255
End If
Next c
Application.ScreenUpdating = True
End Sub
Wie kann dieser Code so umgeschrieben werden, das nur Zellen geändert werden deren Inhalt grösser "" ist?
Gruß Valeri

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Werte nur in Markierten Zellen ändern
13.08.2012 08:49:38
Josef

Hallo Valeri,
Sub Zelle_Urlaub_rot()
  Dim rng As Range
  
  On Error Resume Next
  Set rng = Selection.SpecialCells(xlCellTypeConstants)
  On Error GoTo 0
  
  If Not rng Is Nothing Then
    With rng
      .Value = "U"
      .Interior.Color = 255
    End With
  End If
  
  Set rng = Nothing
End Sub



« Gruß Sepp »

Anzeige
AW: Werte nur in Markierten Zellen ändern
13.08.2012 08:56:40
Valeri
Hallo Josef,
funktioniert einwandfrei!
Supper! Vielen Dank!
Gruß Valeri
AW: Werte nur in Markierten Zellen ändern
13.08.2012 09:21:03
Valeri
Hallo Josef,
ich habe vorhin festgestellt dass wenn nur eine Zelle angewählt ist beim ausführen einmal die komplette Tabelle in "U" und Rot umschrieben wird!
Gedankenfehler?
Gruß Valeri
AW: Werte nur in Markierten Zellen ändern
13.08.2012 09:29:23
Josef

Hallo Valeri,
kein Gedankenfehler, aber SpecialCells() ist manchmal etwas eigenartig;-))
Sub Zelle_Urlaub_rot()
  Dim rng As Range
  
  On Error Resume Next
  Set rng = Intersect(Selection, Cells.SpecialCells(xlCellTypeConstants))
  On Error GoTo 0
  
  If Not rng Is Nothing Then
    With rng
      .Value = "U"
      .Interior.Color = 255
    End With
  End If
  
  Set rng = Nothing
End Sub



« Gruß Sepp »

Anzeige
AW: Werte nur in Markierten Zellen ändern
13.08.2012 10:51:50
Valeri
Danke Josef!
Scheint zu gehen!
Gruß Valeri

328 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige