Microsoft Excel

Herbers Excel/VBA-Archiv

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

Zeilennummer gerade oder ungerade? | Herbers Excel-Forum


Betrifft: Zeilennummer gerade oder ungerade? von: Franz W.
Geschrieben am: 04.03.2010 07:57:30

Hallo Fachleute,

vielleicht nur ne Kleinigkeit, ich weiß nicht: wie kann ich im Worksheet.Change-Ereignis ermitteln, ob die Target.Row gerade oder ungerade ist? Geht das?

Danke schonmal und Grüße
Franz

  

Betrifft: AW: Zeilennummer gerade oder ungerade? von: Josef Ehrensberger
Geschrieben am: 04.03.2010 08:00:58


Hallo Franz,


Private Sub Worksheet_Change(ByVal Target As Range)
  MsgBox IIf(Target.Row Mod 2, "Ung", "G") & "erade!"
End Sub


Gruß Sepp



  

Betrifft: AW: Zeilennummer gerade oder ungerade? von: Franz W.
Geschrieben am: 04.03.2010 08:16:51

Hallo Sepp,

vielen Dank, war mir neu; hab's kapiert.


Grüße
Franz


  

Betrifft: AW: Zeilennummer gerade oder ungerade? von: welga
Geschrieben am: 04.03.2010 08:06:28

Hallo,

ist zwar bestimmt etwas umständlich, aber vielleicht hilft es:

If target.Row - (2 * Round(target.Row / 2)) = 0 Then
MsgBox "Ist gerade"
Else
MsgBox "Ist ungerade"
End If

Jedoch glaube ich, dass es auch noch einfacher geht:

z.B. wenn Ganzzahl(target.row/2) dann gerade sonst ungerade, oder so.

Gruß
welga


  

Betrifft: AW: Zeilennummer gerade oder ungerade? von: Franz W.
Geschrieben am: 04.03.2010 08:17:54

Hallo Welga,

danke, gibt ne gute Lösung von Sepp


Grüße
Franz


Beiträge aus den Excel-Beispielen zum Thema "Zeilennummer gerade oder ungerade?"