EXcel & Vba

[mille]

Moin!

Wie bekomm ich in VBA den Zugriff auf Zellen meiner wahl hin?

ungefähr so:

zellvariable = "b5"
zellvariable.value = "hallo"


als was, wie und wo muss ich diese zellvariable deklarieren, damit ich den inhalt der zellvariable, nach freier Wahl ändern kann!

Möchte ich später im code (etwa durch eine etwaige Zähl Schleife) in B2, B3 und B4 ein " Hallo " eingeben, soll sich die Zuweisung des Zellvariable ändern lassen!
Es soll ohne worksheet_prozeduren gelöst werden!
Einfach eine Variable deklarierein, die die Zelle zugewiesen bekommt und dann über (name.value) sich ändern lässt!

Danke )


PS:
ich hab probiert

cells(B, 2).value = "hallo"

das geht aber nicht
aber damit versteht ihr vielleicht mehr was ich meine

 

[Thomas Darimont]

Hallo!

Versuchs mal hiermit...

For i = 1 To 100
 DieseArbeitsmappe.ActiveSheet.Range("A" & i).Value = "Test_" & i
Next i

Gruß Tom

 

[mille]

Fehler: #WERT!

Hier mein vollständiger VBA code:

Public anzahl As Integer

Sub Schleife()
   For t = 1 To anzahl
     DieseArbeitsmappe.ActiveSheet.Range("b" & t).Value = t
   Next t
End Sub

Function fuellefeld(wert As Integer) As String
 anzahl = wert
 Schleife
 fuellefeld = ""
End Function

gestetet mit "=fuellefeld(5)"

Ausgabe ist der besagte Fehler! Wieso verdammt? das ist doch richtig, selbst die EXCEL hilfe sagt das so! Bzw so ähnlich, aber auch änderungen verurschen den #WERT! Fehler

 

[Thomas Darimont]

Hallo!

Dieshier Funktioniert bei mir:

Public anzahl As Integer

Private Sub CommandButton1_Click()
   MsgBox fuellefeld(25)
End Sub

Sub Schleife()
   For t = 1 To anzahl
      DieseArbeitsmappe.ActiveSheet.Range("A" & t).Value = t
   Next t
End Sub

Function fuellefeld(ByVal wert As Integer) As String
   anzahl = wert
   Schleife
   fuellefeld = "Test"
End Function

Platzier einfach einen VBA CommandButton irgendwo auf dem Sheet und dann kannst du mit dem obigen Code loslegen...

Gruß Tom

 

[mille]

Ich muss das ohne commandbutton lösen, die Funktionsverwendung ist für mich essentiell!
Aber ich hab den Code eins zu eins übernommen, nur halt die ButtonProzedur ausgelassen!
Es ist zwingend notwendig das ich "=fuellefeld(WERT)" benutzen kann, da diese Funktion bei ca 10000 Datensätzen angewandt werden muss. Da hab ich kein bock für jeden ein button einzurichten