kopieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: kopieren
von: jens
Geschrieben am: 06.04.2005 19:28:28
hallo experten
ich habe eine Tabelle wo verschiedene zeilen rot sind,
nun möchte ich wenn ich die zeile makiere das eine msgbox auf geht, das diese Zeile nicht kopiert werden kann.
Danke für die hilfe
gruß jens

Bild

Betrifft: AW: kopieren
von: Willi
Geschrieben am: 06.04.2005 19:59:49
Hallo Jens
Ganz ohne VBA gehts wohl nicht. Das folgende Makro löst dein Problem (darf nicht in einem Modul stehen, sondern muss im VBA-Editor bei der entsprechenden Tabelle eingefügt werden):


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngZelle As Range
For Each rngZelle In Selection
    If rngZelle.Interior.ColorIndex = 3 Then
        MsgBox "Rote Zeilen dürfen nicht kopiert werden"
        Range("A1").Select
        Exit For
    End If
Next
End Sub

Gruss
Willi
Bild

Betrifft: AW: kopieren
von: jens
Geschrieben am: 06.04.2005 20:12:53
besten Dank
klappt einwadfrei
danke jens
 Bild

Beiträge aus den Excel-Beispielen zum Thema "kopieren"