Microsoft Excel

Herbers Excel/VBA-Archiv

Private Sub nur auf 1 Blatt beziehen

Betrifft: Private Sub nur auf 1 Blatt beziehen von: Stefan K.
Geschrieben am: 24.08.2004 09:04:54

Hallo Excelfreunde,
ich bräuchte mal wieder Eure Hilfe.
Ich habe einen Code, der immer die Zeile der gerade aktiven Zelle ausgibt.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Worksheets("Direktauftrag").Range("G30") = Target.Row
End Sub


Dieser Code soll sich aber nur auf das Tabellenblatt Direktauftrag beziehen.
D.h. wenn ich in einem anderen Blatt bin, soll die Ausgabezelle G30 nicht verändert werden, geht das ?

Noch eine 2. Frage, wie muß ich das schreiben, wenn ich einen Text in roter Schrift in einer Textbox ausgeben möchte ?

Danke für Eure Hilfe
Gruß Stefan
  


Betrifft: AW: Private Sub nur auf 1 Blatt beziehen von: sergiesam
Geschrieben am: 24.08.2004 09:08:51

Hi,

die variable SH gibt dir das Blatt an.
if sh.name = "Direktauftrag" then
sh.Range("G30") = target.row
end if

Sam


  


Betrifft: AW: Private Sub nur auf 1 Blatt beziehen von: Stefan K.
Geschrieben am: 24.08.2004 09:55:07

Es ist doch alles so einfach, wenn man es nur weiß !!!
Klasse, lieben Dank.
Gruß Stefan