VBA range

du har en eller en gruppe celler der er navngivet som "minvaegt"

du danner nu en variabel (minvaegt) som indeholder der samme som området "minvaegt"
minvaegt = Range ("minvaegt")

ubound(minvaegt) finder antaller af rækker

for i = 0 to ubound(minvaegt)
msgbox minvaegt(i)
next

det er hvis der kun er 1 kolonne i området

hvis der er flere findes de med

minvaegt(i,0)
minvaegt(i,1)

o.s.v

Tak for dit svar, kan du så forklare mig hvorfor jeg ikke kan få lov at oprettet skaal = range("skaal") i nedenstående kode. Den vil ikke acceptere den når jeg kører debugger, men den har ingen problemer med minvaegt = range ("minvaegt")



Option Explicit
Option Base 1

Sub SimMasterFirstBestWorstOutputPaaArk()
  Dim MinVaegt As Integer 'Mindste vægt af en enhed
  Dim MaxVaegt As Integer 'Største vægt af en enhed
  Dim Q As Integer 'Kapacitet af hver bin
  Dim AntalEnhederIalt As Integer 'Antal ankommende enheder ialt i simulationen
  Dim MaxBins As Integer 'Max. antal bins, som kan være åbne samtidigt
  Dim EnhedNr As Integer
  Dim BinIdx As Integer 'Bruges som tæller til at gennemløbe RestKap-tabel.
  Dim BinNr As Integer
  Dim LukBinNr As Integer
  Dim Vaegt As Integer
  Dim AntalLukkedeBins As Integer
  Dim AntalBenyttedeBins As Integer
  Dim RestKap() As Integer
  Dim skaal As Integer
 
  Dim W As Worksheet
  Dim FoersteRaekke As Integer
  Dim RNr As Integer
 
  Set W = Worksheets.Add(after:=Worksheets(Worksheets.Count))
  W.Range("A3") = "Inddata:"
  W.Range("A5") = "Min. vægt:"
  W.Range("A6") = "Max. vægt:"
  W.Range("A7") = "Kapacitet:"
  W.Range("A8") = "Antal enheder ialt:"
  W.Range("A9") = "Skaal:"
  W.Range("A10") = "Max. åbne bins:"
 
  W.Range("A11") = "Uddata:"
  W.Range("A13") = "Antal benyttede bins:"
 
  W.Range("A3:A13").Font.Bold = True
 
  W.Columns("A:A").AutoFit
 
  W.Range("A1") = "Output fra simulationsmodel"
  W.Range("A1").Font.Bold = True
 
  MinVaegt = Range("MinVaegt")
  MaxVaegt = Range("MaxVaegt")
  Q = Range("Kapacitet")
  AntalEnhederIalt = Range("EnhederIalt")
  skaal = Range("Skaal")
  MaxBins = Range("MaxAabneBins")

  W.Range("B5") = MinVaegt
  W.Range("B6") = MaxVaegt
  W.Range("B7") = Q
  W.Range("B8") = AntalEnhederIalt
  W.Range("B9") = skaal
  W.Range("B10") = MaxBins

har du en celle der er navngivet skaal

du har:
Dim skaal As Integer
W.Range("A9") = "Skaal:" ' en tekst i cellen
skaal = Range("Skaal") ' du skal have navngivet cellen som skaal

W.Range("B9") = skaal ' igen bruges navnet skaal

måske er det noget med aa oversættes til å, prøv et andet navn til cellen

enig med kabbak, jeg tror du mangler en navngivet celle Skaal

ja jeg har en celle i et excel ark jeg har kald skaal ligesom jeg har en celle jeg har kaldt minvaegt - og jeg begriber ikke hvad forskellen er på minvaegt som virker om på skaal som ikke virker