title image


Smiley meldung und ergänzung verbinden.....
hallo,

ich fände es so komfortabler als nur einen hinweis zu generieren.



Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Target.Row = 1 And Target.Column = 2 Then

[c1] = InputBox("angeben", "Wert für Zelle c1")

End If

End Sub



liebe grüsse georg
Beiträge zu Excel 2002 in Verbindung mit Win XP

 A
1Tabellentool
2von StrgAltEntf


Gibts hier


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: