Arbeitsblatt prüfen und Ton ausgeben

31/05/2009 - 16:12 von Heinz ROGHB346 | Report spam
Hallo,

ich habe zwei Arbeitsblàtter

auf dem Blatt1 im Bereich A1:G7 sind 7 Zellen mit "x" gefüllt
auf dem Blatt2 im Bereich A1:G7 werden verschiedene Zellen mit "x" gefüllt

wenn auf Blatt2 im Bereich A1:G7 nun "x" eingegeben wird
und im Blatt1 ebenfalls an dieser Position ein "x" ist
soll mit der Eingabe von "x" gleichzeitig ein Signal (Ton) ausgegeben
werden.

Danke für Eure Hilfe
Gruss Heinz
 

Lesen sie die antworten

#1 Claus Busch
31/05/2009 - 17:53 | Warnen spam
Hallo Heinz,

Am Sun, 31 May 2009 16:12:02 +0200 schrieb Heinz ROGHB346:

ich habe zwei Arbeitsblàtter

auf dem Blatt1 im Bereich A1:G7 sind 7 Zellen mit "x" gefüllt
auf dem Blatt2 im Bereich A1:G7 werden verschiedene Zellen mit "x" gefüllt

wenn auf Blatt2 im Bereich A1:G7 nun "x" eingegeben wird
und im Blatt1 ebenfalls an dieser Position ein "x" ist
soll mit der Eingabe von "x" gleichzeitig ein Signal (Ton) ausgegeben
werden.



probiers mal mit folgendem Code im Codemodul von Tabelle2:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:G7")) Is _
Nothing Then Exit Sub

Dim Adr As String

Adr = Target.Address(0, 0)
If Target.Value = "x" And Sheets("Tabelle1") _
.Range(Adr) = "x" Then
Beep
End If

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP3 / Vista Ultimate SP1
Office 2003 SP3 / 2007 Ultimate SP1

Ähnliche fragen