Herbers Excel-Forum - das Archiv

kopieren

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
Excel-Beispiele zum Thema "kopieren"
Blätter in andere Arbeitsmappen kopieren Module von Mappe zu Mappe kopieren
Arbeitsblatt 40 mal kopieren Schriftgröße beim Kopieren verdoppeln
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen Tabellencode nach Kopieren des Blattes löschen
Arbeitsmappe blitzschnell kopieren VBE-Namen der Blattmodule beim Kopieren festlegen
Blattinhalt von einer zur anderen Arbeitsmappe kopieren Formel bis zur letzten Zeile der Nebenspalte kopieren