Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
908to912
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
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Text eintragen, wenn in Zelle "offen" steht ?

Text eintragen, wenn in Zelle "offen" steht ?
26.09.2007 17:46:08
Selma
Hallo Leute,
ich möchte folgendes erzielen:
wenn in markierten Zeilenbereich (oder auch in Zellenmarkierung) in der Spalte T dies "offen" steht, dann soll der Zellenbereich T:Z dieser Zeilen verbunden werden und der Text "Mahnung erstellen" eingetragen und mit der Farbe 22 dargestellt werden.
Anbei mein Versuch. Was ist daran falsch?

Sub MergeCells2()
On Error GoTo DispFehler
Dim lrZelle As Range
For Each lrZelle In Selection
'Auswahl über Zeile als auch über Zellen
'wenn in Zelle T des markierten Zeilenbereiches oder markierten Zellenbereiches dies " _
offen" steht, dann
If Cells(lrZelle, 20).Value = "offen" Then
'soll der Zellenbereich T:Z verbunden
Range(Cells(lrZelle, 20), Cells(lrZelle, 26)).Merge
'und in Zelle T dies "Mahnung erstellen" in Farbe 22 eintragen werden
Cells(lrZelle, 20).Value = "Mahnung erstellen"
Cells(lrZelle, 20).Interior.ColorIndex = 22
End If
Next
DispFehler:
Application.DisplayAlerts = True
End Sub


Vielen Dank im Voraus.
Liebe Grüße
Selma

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text eintragen, wenn in Zelle "offen" steht ?
26.09.2007 18:25:00
Worti
Hallo Selma,
so sollte es gehen:


Sub MergeCells2()
On Error GoTo DispFehler
    Dim lrZelle As Range
    Dim startZeile As Long
    Dim endeZeile As Long
    startZeile = Selection.Row
    endeZeile = Selection.Row + Selection.Rows.Count - 1
    Application.DisplayAlerts = False
    For Each lrZelle In Range(Cells(startZeile, 20), Cells(endeZeile, 20))
        'Auswahl über Zeile als auch über Zellen
        'wenn in Zelle T des markierten Zeilenbereiches oder markierten Zellenbereiches dies "
        'offen " steht, dann"
        If lrZelle.Value = "offen" Then
           'soll der Zellenbereich T:Z verbunden
           Range(lrZelle, lrZelle.Offset(0, 6)).Merge
           'und in Zelle T dies "Mahnung erstellen" in Farbe 22 eintragen werden
           lrZelle.Value = "Mahnung erstellen"
           lrZelle.Interior.ColorIndex = 22
        End If
    Next
DispFehler:
Application.DisplayAlerts = True
End Sub


Gruß Worti

Anzeige
Vielen vielen Dank Worti !
26.09.2007 18:28:03
Selma
Vielen vielen Dank Worti !
LG
Selma

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige