Thema Datum  Von Nutzer Rating
Antwort
02.02.2015 11:22:26 Daniel Trampisch
NotSolved
02.02.2015 16:36:42 Holger
NotSolved
02.02.2015 17:05:04 Daniel Trampisch
NotSolved
02.02.2015 18:10:54 MarkusK
NotSolved
Rot mal für die Addition 'n Beispiel
 02.02.2015 19:35:51 Gast98097
NotSolved

Ansicht des Beitrags:
Von:
Gast98097		 Datum:
02.02.2015 19:35:51		 Views:
920		 Rating:
     
Antwort:
  Ja
Thema:
mal für die Addition 'n Beispiel		 
Option Explicit

Sub Bsp01()
  
  Dim mtx(1 To 3) As Variant
  Dim m As Long
  Dim n As Long
  
  With Range("A1:C3") '3x3 Matrix
    'Beispiel-Matrix A erstellen
    .Formula = "=RANDBETWEEN(1,100)"
    .Value = .Value
    'Spaltenbreite / Zeilenhöhe anpassen
    .Columns.AutoFit
    .Rows.AutoFit
    'Matrix Zwischenspeichern
    mtx(1) = .Value
  End With
  
  With Range("E1:G3") '3x3 Matrix
    'Beispiel-Matrix B erstellen
    .Formula = "=RANDBETWEEN(1,100)"
    .Value = .Value
    'Spaltenbreite / Zeilenhöhe anpassen
    .Columns.AutoFit
    .Rows.AutoFit
    'Matrix Zwischenspeichern
    mtx(2) = .Value
  End With
  
  'Matrix C wird berechnet
  'und zwischengespeichert in
  mtx(3) = CreateMatrix(3, 3) '3x3 Matrix (ohne Inhalt) erstellen
  
  'Addition
  For m = 1 To 3 'Zeilen
    For n = 1 To 3 'Spalten
      mtx(3)(m, n) = mtx(1)(m, n) + mtx(2)(m, n)
    Next
  Next
  
  'Ausgabe
  With Range("I1:K3") '3x3 Matrix
    .Value = mtx(3)
    'Spaltenbreite / Zeilenhöhe anpassen
    .Columns.AutoFit
    .Rows.AutoFit
  End With
  
End Sub

Private Function CreateMatrix(m As Long, n As Long) As Variant
  Dim t As Variant
  ReDim t(1 To m, 1 To n)
  CreateMatrix = t
End Function

 

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
02.02.2015 11:22:26 Daniel Trampisch
NotSolved
02.02.2015 16:36:42 Holger
NotSolved
02.02.2015 17:05:04 Daniel Trampisch
NotSolved
02.02.2015 18:10:54 MarkusK
NotSolved
Rot mal für die Addition 'n Beispiel
 02.02.2015 19:35:51 Gast98097
NotSolved