Das Archiv des Excel-Forums
MSGBOX BEI EINGABE IN ZELLE
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Betrifft: MSGBOX BEI EINGABE IN ZELLE
von: karli
Geschrieben am: 27.09.2003 12:39:50
hallo guten tag forum
ich erstelle per mausklick(commandbutton1) in der tabelle-NAME"Leeres Muster"
eine neue tabelle.das auch gut funkt.
mein problem:
wenn ein user irrtümlich in die tabelle"Leeres Muster"eine eingabe macht
dann ist diese nicht mehr leer .
und beim kopieren wird der eingegebene inhalt mitkopiert.
und das darf nicht sein!!!
ich bräuchte:
eine msgbox die den user warnt,wenn er in der tabelle "Leeres Muster"
eine eingabe macht.außer in der zelle "K3"da soll es erlaubt sein,denn in "K3"gibt er das MONAT ein,das für die kopie nötig ist.
da ich anfänger bin,bitte ich um verständniss für meine leihenhafte
ausdrucksweise!
danke
karli
Betrifft: AW: MSGBOX BEI EINGABE IN ZELLE
von: PeterW
Geschrieben am: 27.09.2003 12:52:15
Hallo Karli,
markiere K3, Rechtsklick, Zellen form,atieren, Schutz, Haken beui gesperrt raus. Dann schütze die Tabelle, Extras, Schutz, Blattschutz. In dem Makro hebe den Blattschutz vor dem Kopieren auf.
Gruß
Peter
Betrifft: AW: MSGBOX BEI EINGABE IN ZELLE
von: karli
Geschrieben am: 27.09.2003 13:04:54
hi lieber Peter
gute idee,aber möchte eine msgbox meldung haben!!
und wenn ich die zellen sperre kann man dann in
der kopie nichts mehr eingeben :))lol.
mein versuch der leider gescheitert ist:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Table("Leeres Muster") Then
MsgBox "Bitte in das Leere Muster nichts Eingeben"
End If
sowas in der art würde ich benötigen!
hast du noch einen tipp für mich
danke
karli
Betrifft: AW: MSGBOX BEI EINGABE IN ZELLE
von: PeterW
Geschrieben am: 27.09.2003 13:16:39
Hallo Karli,
dann probier das mal, gehört in das Modul DieseArbeitsmappe:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
If Sh.Name = "Leeres Muster" Then
If Target.Address <> "$K$3" Then
MsgBox "Eingaben nur in K3"
Target = ""
End If
End If
Application.EnableEvents = True
End Sub
Gruß
Peter
Betrifft: AW: MSGBOX BEI EINGABE IN ZELLE
von: karli
Geschrieben am: 27.09.2003 13:31:12
hi peter
der code sieht super aus aber da tut sich nichts
ich habe den code 1:1 in tabelle1(ALT+F11) von Leeres Muster kopiert!
irgendwas spricht die tabelle nicht an aber was??
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
If Sh.Name = "Leeres Muster" Then
If Target.Address <> "$K$3" Then
MsgBox "Eingaben nur in K3"
Target = ""
End If
End If
Application.EnableEvents = True
End Sub
danke
karli
Betrifft: AW: MSGBOX BEI EINGABE IN ZELLE
von: PeterW
Geschrieben am: 27.09.2003 13:36:16
Hallo Karli,
versuch es mal mit genauem Lesen. Wohin sollte der Code kopiert werden? Es war von DIESE ARBEITSMAPPE die Rede. :-)
Gruß
Peter
Betrifft: AW: MSGBOX BEI EINGABE IN ZELLE
von: karli
Geschrieben am: 27.09.2003 13:49:09
HI PETER
VIELEN DANK VERZEIH MIR MEINE UNACHTSAMKEIT.
Jetzt funkt es prima!!
KARLI
Excel-Beispiele zum Thema " MSGBOX BEI EINGABE IN ZELLE"