Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Nach Enter Makrostart | Herbers Excel-Forum


Betrifft: Nach Enter Makrostart von: Tom
Geschrieben am: 22.10.2008 15:34:00

Hallo,

ich möchte erreichen, dass ein Makro startet, sobald in Zelle I (I31:I207) eine Zahl eingegeben wird und danach die Entertaste bestätigt wird.

Hat jemand ne Idee?

Gruß und Danke vorab

TOM

  

Betrifft: AW: Nach Enter Makrostart von: David
Geschrieben am: 22.10.2008 15:37:02

Hallo Tom.

Schreibe ins VBA-Fenster der betreffenden Arbeitsmappe:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("I31:I207")) Is Nothing Then
      'hier kommt dann dein Code, ggf. auch per Call
   End If
End Sub



Gruß
David


  

Betrifft: AW: Nach Enter Makrostart von: Rudi Maintaire
Geschrieben am: 22.10.2008 15:38:19

Hallo,
sowas?
In das Modul der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("I31:I207")) Is Nothing And Target.Count = 1 Then
    If IsNumeric(Target) Then
      MsgBox "Zahl eingetragen."
    End If
  End If
End Sub


Gruß
Rudi


  

Betrifft: AW: Nach Enter Makrostart von: Chris
Geschrieben am: 22.10.2008 15:41:37

Servus,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 9 then Exit Sub
If Target.Cells.Count > 1 then Exit Sub
If Target = "" Then Exit Sub
If Not Intersect(Target, Range("I31:I207")) is Nothing Then
   If IsNumeric(Target) Then
       'Hier dein Makro
   End if
End if
End Sub



Gruß

Chris


  

Betrifft: AW: Nach Enter Makrostart von: Tom
Geschrieben am: 22.10.2008 15:47:30

Danke Euch allen - klappt super!

Gruß
TOM


Beiträge aus den Excel-Beispielen zum Thema "Nach Enter Makrostart"