Namen in Excel
09.02.2019 13:05:32
Tobias
ich habe noch ein Problem:
ich möchte in Excel einen eigenen Sudoku-Solver bauen.
Dazu habe ich
a) mehrere Tabellenblätter in der für jede Sudoku-Art (3x3, 4x4, 5x5, mit Diagonale etc.) ein Muster-Sudoku vorbereitet ist.
b) per VBA Namen erstellt, die die jeweiligen Zeilen, Spalten und Blöcke darstellen sollen (abhängig eben von der Grund-Größe)
Hier ein Auszug aus dem Code
'gesamt
ActiveSheet.Names.Add "Feld_gesamt", Range(Cells(Start, Start), Cells(Ende, Ende))
'Zeilen
For Ze = Start To Ende
Bereich = ActiveSheet.Range(Cells(Ze, 2), Cells(Ze, Ende))
ActiveSheet.Names.Add "Zeile" & Ze - 1, Bereich
Next
'Spalten
For Sp = Start To Ende
Bereich = ActiveSheet.Range(Cells(2, Sp), Cells(Ende, Sp))
ActiveSheet.Names.Add "Spalte" & Sp - 1, Bereich
Next
'Quadrate
Z = 1
For Ze = Start To Ende Step Breite
For Sp = Start To Ende Step Hoehe
Bereich = ActiveSheet.Range(Cells(Ze, Sp), Cells(Ze + tmpBreite - 1, Sp + _
tmpHoehe - 1))
ActiveSheet.Names.Add "Rechteck" & Z, Bereich
Z = Z + 1
Next
Next
In Excel zeigt er mir auch jeden Namen (über 300 !) korrekt an, ich kann sie auswählen und er markiert mir dann auch die korrekten Bereiche.
Wenn ich jedoch das einmal testen möchte mit
Ber = Range("Zeile1")
Wo liegt mein (Denk)Fehler?
Gruß
Tobias