Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Matrix mit Makro erstellen

Matrix mit Makro erstellen
10.06.2006 18:27:18
Stefan
Hi,
wie kann man denn solch eine Matrix mit Makro erzeugen?
Userbild
Die soll eine beliebige Größe haben aber immer Zeilen = Spalten.
Danke für Hilfe.
mfg Stefan

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Matrix mit Makro erstellen
10.06.2006 22:21:37
Josef
Hallo Stefan!
Viel Spass.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub MakeWiredMatrix(ByVal Dimension As Integer, ByVal TargetCell As Range)
Dim intR As Integer, intC As Integer, intIndex As Integer, intDim As Integer
Dim rng As Range

If Dimension > 256 Then Dimension = 256

intDim = Dimension - 1

Set rng = TargetCell.Cells(1, 1)

If rng.Column + Dimension - 1 > Columns.Count Then GoTo ErrExit
If rng.Row + Dimension - 1 > Rows.Count Then GoTo ErrExit

Redim varm(intDim, intDim)
intIndex = 1
For intC = 0 To intDim
  intIndex = intIndex - 1
  For intR = 0 To intDim
    If intIndex = Dimension Then intIndex = 0
    intIndex = intIndex + 1
    varm(intR, intC) = intIndex
  Next
Next

With TargetCell.Parent
  .Range(.Cells(rng.Row, rng.Column), .Cells(rng.Row + intDim, rng.Column + intDim)) = varm
End With

ErrExit:
Set rng = Nothing
End Sub



Sub test()
MakeWiredMatrix 12, Range("A1")

''Oder
'MakeWiredMatrix 25, Sheets("Tabelle3").Range("D25")
End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Matrix mit Makro erstellen
10.06.2006 22:25:48
Erich
Hallo Stefan,
noch ein Vorschlag: 
Sub Matrix_fuellen()
Const anz = 10
Range([A1], Cells(anz, anz)).FormulaR1C1 = "=ROW()-COLUMN()+1+" & anz & "*(ROW()<COLUMN())"
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Matrix mit Makro erstellen
10.06.2006 22:28:10
Erich
Hallo nochmal.
Wenn die Formel stören, dann so 
Sub Matrix_fuellen2()
Const anz = 10
Range([A1], Cells(anz, anz)).FormulaR1C1 = "=ROW()-COLUMN()+1+" & anz & "*(ROW()<COLUMN())"
Range([A1], Cells(anz, anz)) = Range([A1], Cells(anz, anz)).Value
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
Sensationell, ich danke euch! oT
10.06.2006 22:39:56
Stefan
s

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige