Thema Datum  Von Nutzer Rating
Antwort
08.12.2021 12:00:21 S. Lange
NotSolved
08.12.2021 17:21:49 Gast7777
NotSolved
08.12.2021 18:07:34 Gast91760
NotSolved
Blau Werte in Range durch 100 dividieren
 08.12.2021 18:14:21 volti
NotSolved
09.12.2021 07:51:29 S. Lange
NotSolved
09.12.2021 08:37:37 volti
NotSolved
09.12.2021 08:43:55 S. Lange
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
08.12.2021 18:14:21		 Views:
489		 Rating:
     
Antwort:
  Ja
Thema:
Werte in Range durch 100 dividieren

Hallo S.,

hier eine Anregung...

Dauert bei mir 0,1 Sekunde :-)

Code:
01
02
03
04
05
06
07
08
09
10
11		  
Sub Werte_Eintragen(ByVal n As Long)
  Dim vArr As Variant

  vArr = Worksheets("Output").Range("W" & n & ":AA" & n)
  vArr = WorksheetFunction.Transpose(vArr)
  For n = 1 To UBound(vArr)
      vArr(n, 1) = vArr(n, 1) / 100
  Next n
  Workbooks(m_str_Modellbezeichnung).Worksheets("Input").Range("D14").Resize(UBound(vArr), 1).Value = vArr

End Sub
_________
viele Grüße
Karl-Heinz

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.12.2021 12:00:21 S. Lange
NotSolved
08.12.2021 17:21:49 Gast7777
NotSolved
08.12.2021 18:07:34 Gast91760
NotSolved
Blau Werte in Range durch 100 dividieren
 08.12.2021 18:14:21 volti
NotSolved
09.12.2021 07:51:29 S. Lange
NotSolved
09.12.2021 08:37:37 volti
NotSolved
09.12.2021 08:43:55 S. Lange
NotSolved