Thema Datum  Von Nutzer Rating
Antwort
01.11.2019 21:41:08 Waldow
NotSolved
01.11.2019 23:06:18 Gast84384
*
NotSolved
02.11.2019 21:41:13 Waldow
NotSolved
Blau Übertragungs-Fehler
02.11.2019 23:04:54 Gast12377
*
NotSolved
02.11.2019 23:24:49 Gast8854
*
NotSolved
03.11.2019 00:55:33 Gast1803
*
Solved

Ansicht des Beitrags:
Von:
Gast12377		 Datum:
02.11.2019 23:04:54		 Views:
657		 Rating:
     
Antwort:
  Ja
Thema:
Übertragungs-Fehler

Dachte ich mir,

Makro1 macht nichts weiter als die Zahl in M23 um 1 hochzusetzen. Dadurch wird eine Neukalkulation ausgelöst die die Zufallszahlen in spalte IQ verändert, welche du wahrscheinlich per Formel berechnest. Das Problem liegt darin dass du in Makro2 das gleiche für Zelle M22 machst. Auch dadurch wird eine Neuberechnung der Zufallszahlen ausgelöst bevor du die Werte aus R in das Array schreibst. Stelle die Zeile ans Ende deines Codes oder lass sie ganze weg und alles ist gut.

Sub Makro2()

'Private Sub CommandButton1_Click()
Dim arr(), c As Range
 
   
   arr = Range("R16:R21").Value
   With Range("R1")
      If .Value = "" Then
         Set c = Range("R1")
      Else
         Set c = Range("R1").Offset(, Range("R1").CurrentRegion.Columns.Count)
      End If
   End With
   c.Resize(UBound(arr, 1)).Value = arr 'von er anfängt
   Set c = Range("r8")
   c.Resize(UBound(arr, 1)).Value = arr
 

  Range("M22").Value = Range("M22").Value + 1 

End Sub

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
01.11.2019 21:41:08 Waldow
NotSolved
01.11.2019 23:06:18 Gast84384
*
NotSolved
02.11.2019 21:41:13 Waldow
NotSolved
Blau Übertragungs-Fehler
02.11.2019 23:04:54 Gast12377
*
NotSolved
02.11.2019 23:24:49 Gast8854
*
NotSolved
03.11.2019 00:55:33 Gast1803
*
Solved