title image


Smiley Re: Bereichseingabe (Range) des Benutzers verarbeiten!?
wie wärs damit:



Dim Multipl

Dim Row1 As Long, Col1 As Long

Dim cellVal, objCELL



For Each objCELL In Selection



Col1 = objCELL.Column

Row1 = objCELL.Row

Cells(row1, col1 + 1).Value = objCELL.Value * Multipl



Next objCELL



also Eingabe das Multiplikators über die Form, Auswahl getroffen - und dann in der Nachbarzelle jedes Feldes das Ergebnis ausgeben


mfg Mike

Snafu



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: