Office: Variable in Schleife hochzaehlen

Guten Abend ans Forum,

Fuer folgende Idee/Problem suche ich eine Loesung und eventuell weiss hier im Forum jemand Rat:

In einer Schleife moechte ich in einem Arbeitsblatt in Excel 2002 Werte aus einem Formular uebertragen lassen. Dabei wuerde ich gerne die Variable A1 bis A10 verwenden. Dimensionieren scheint soweit kein problem, doch wie formuliere ich nun innnerhalb der Schleife das ich bei jedem durchgang den 'Index' der Variable A um eins weiter setzte ?

n ist der 'Variablenzaehler' der jeweils um eins erhoeht werden soll pro durchlauf

Sheet("ABC").[...].Value = A(n) 'hat nicht funktioniert da dann eine Funktion gesucht wird

Sheet("ABC").[...].Value = An 'funktioniert ebenfalls nicht

Sheet("ABC").[...].Value = A ' funktioniert einmal aber ich bekomme dann kein A1 usw hin

Ich nehme an das das indexieren in VBA anderes gehandhabt wird ( wenn das moeglich ist ). Oder ist es eventuell noch ein viel simpler Fehler denn ich nicht sehe ?

Danke schon mal vorab fuer die Tips.

Gruss
wellbin

:)

 

Moin, wellbin,

vermelde: ich verstehe ob der Schilderung Bahnhof! Was möchtest Du: 10 Variable - wie werden die dann innerhalb der UF berechnet? Ein Array mit 10 Elementen? Warum für jeden Schreibvorgang eine Variable?

 

N'Abned Jinx,

thx fuer die schnelle Reaktion, ich sehe es braucht einer genaueren Beschreibung:

Also ich habe ein Formular in den diverse Dinge eingetragen werden und einige Chack boxen getickt werden sollen.

Nach druecken eines Buttons sollen die werte vom Schirm in ein dazupassendes Excelsheet uebernommen werden.

Alle Variablen heissen A, wobei ich zur unterscheideung jeweils eine Nummer vergeben habe. Also Eintrag 1 geht in die Variable A1, Eintrag 2 in die Variable A2 usw.

Nun wuerde ich gerne das eintragen in einer Schleige abarbeiten, was prinzipiell funktionieren muesste, wenn es moeglich ist A(n) zu setzten und beim erste durchgang n =1 => A1, beim zweiten Durchgang n = 2 => A2

Ich weiss nicht ob soetwas in VBA moeglich ist.

Sollte diese Beschreibung nicht ausreichen werde ich morgen Abend Quellcode Bsp besorgen ( auswendig kann ich ihn leider noch nicht).

Gruss
wellbin

 

Moin, wellbin,

normalerweise verwendet man doch dann aber eine Variable, um die Zeilenanzahl im Empfangsblatt festzustellen und die entsprechende Zeile für die Variablen herzuleiten - aber vielleicht sehe ich auch Probleme, wo keine sind...

Von Deiner Art der Benennung kann ich eigentlich nur abraten - Du weißt heute noch, was A7 ist; wie aber sieht es in einem Monat aus? Die Probleme des Verständnisses eines Außenstehenden möchte ich jetzt nicht weiter erörtern - ich halte diese Art nicht für "servicefreundlich".

 

Hallo zusammen,

Zugegeben so aus dem Bauch ohne Quellcode ist es schwierig, deshalb hier die Schleife:

Do While j < 12 ' loop

Sheets(SHEETNO).Cells(z, s).VALUE = A
s = s + 1
z= z + 1

Loop

Ich wuerde nun gerne A so modifiezieren das ich es hochzaehlen kann (s. auch erklaerungsversuche oben).

Was die bennenung der variablen betrifft so ist natuerlich der Quellcode auskommentiert das nachvollziehbar ist was A1, A2 usw enthalten.

Danke fuer die Tips schon jetzt.

Gruss
wellbin

 

Moin,

also, wenn Du den Code so wie oben geschrieben anwendest:
Sheets(SheetNo).Cells(z,s).Value = A1 bzw. A2 etc., dann würde in die entsprechende Zelle der wert aus entsprechender Variable geschrieben werden. Wenn ich Dich richtig verstehem, willst Du aber den Wert der zellen in die Variablen schreiben.

Hier könnte ein Array funzen:
Code:

 

Hallo Andre,

Danke fuer die Antwort.

Es ist tatsaechlich so das der Wert aus der Variable in die Zelle uebertragen werden soll. Anfangs dachte ich es ginge in dem ich A dimensioniere ( als public ) und dann "einfach"

Sheets(SHEETNO).Cells(z, s).VALUE = A(n)

angebe, wobei anfangs n=1 ist und ich n dann entsprechend hochzaehle. Allerdings versteht das System so nicht was ich moechte und gibt mir die Fehlermeldung:

"Sub oder Function nicht definiert"

beim kompelieren ausgibt.

Gruss
wellbin

 

Hi,

3 Fragen:
1. wie dimensionierst Du Dein Array ?
2. Wo tust du das?
3. Wann?

André

 

Moin, wellbin,

wie wäre es mit dem Code, der Probleme bereitet, und nicht mit Placebos? Ich weiß, wie schwer es sein kann, Fragen zu beantworten, bei denen die Fragenden sich um jede klare Antwort drücken: Du benötigst kein Array, um Daten aus einer UserForm in eine Tabelle zu übertragen - dies kann direkt geschehen. Meist liest man dazu die letzte genutzte Zeile einer Tabelle aus, um die Daten untereinander zu schreiben.

 

Danke fuer die Antworten.

Das der ganze Code etwas viel ist habe ich eine Ausschnitt erstellt:

Public Sub EditCheck()
Dim A(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
End Sub

Private Sub CID_Change() ‘ Text Feld
A1 = CID.VALUE
End Sub

[..] Hier wiederholt sich die Private Sub Prozedur XX_Change() von oben jeweils fuer ein neues Feld

Private Sub CB6_Click() ‘ Check Box
If CB6 = True Then
NOE.VALUE = False

A3 = 1 ‘ Checkbox 6 = yes
A10 = 0 ‘ No Error = no

[..] Hier kommen dann noch weitere Private Subs fuer weitere Checkboxen, jeweils gleiches Schema

Private Sub OK_Click() ' Dies ist der OK Button am Ende des Formulars umd die Werte nun in das Excelsheet zu uebertragen

SHEETNO = "1P"
Dim z, s, n, j
z = 6
s = 2
j = 0
n = 1

Do While j < 12 ' loop

Sheets(SHEETNO).Cells(z, s).VALUE = A(n)
s = s + 1
j = j + 1
n = n + 1
Loop

End If
End Sub

Hoffe es wird nun klarer was ich anstrebe.

Danke .

Gruss
wellbin

 

Hi wellbin,

zur Deklaration des Arrays:

gehe bitte im Modul ganz nach oben und deklariere außerhalb einer Prozedur:
Public A(1 To 12)
Damit wird ein Array deklariert, was die Items A(1) bis A(12) hat.

Wertzuweisung:
Private Sub CID_Change() ‘ Text Feld
A1 = CID.VALUE
End Sub

Hier musst Du, wenn Du dem ersten Item aus A den Wert zuweisen willst, dieses folgendermaßen ansprechen:( A1) und dies in allen Prozeduren.

Damit sollte dann auch unten das Eintragen in die Tabelle hinhauen.

Gruß
André

 

Hallo Sidewind,

Danke fuer den Tipp.

Klappt jetzt bis dahin.

Gruss
wellbin