Office: for ... Next Schleife -- Werte aus Tabelle einlesen und in Tabelle wieder ausgeben

allo zusammen,

ich bin blutiger Progammieranfänger und versuche mich in VBA - klar, sonst wäre ich ja nicht hier.

Folgendes Problem:

Ich habe in die Zellen A1 bis A12 die Zahlen 1-12 eingegeben und - im Rahmen einer selbstgestrickten Übung - wieder in den Zellen A1 bis A12 ausgeben lassen. - Das funktioniert auch soweit.

Quelltext:

Code:

Leider funktioniert dies nicht wenn ich z.B. dasselbe mit Monaten machen möchte. - Klar, habe die Prozedur angepasst (Strings etc.), aber mit dem "intCounter" (weiterzählen) funktioniert es nicht.

Kann mir jemand weiterhelfen?

2.) Werte im Dirketfenste auszugeben zu lassen ist für mich i.d.R kein größers Problem. Gerne möchte ich jedoch bei Thema "Schleifen" Werte immer aus einer Tabelle aulesen und dann - nach der Verarbeitung durch das Programm - in einem Zellbereich wieder einfügen lassen. Kann mir jemand diesbezüglich auch Tipps geben, wie ich die bewerkstelligen kann?

Über Antworten freue ich mich. Viele Grüße Chucrute

:)

 

Hallo Chucrute,

deine Schleife kannst du auch einfacher machen, indem du den Umweg über die Variablen in denen gerechnet wird raus nimmst:

Public Sub For_each_Schleife()
Dim lngRow As Long
With Tabelle1
For lngRow = 1 To 12
.Cells(lngRow, 2).Value = .Cells(lngRow, 1).Value + 1
Next
End With
End Sub


Was hat es mit den Monaten auf sich? Sind das einfach die Namen der Monate welche du in die Zellen geschrieben hast, oder sind das formatierte Daten (Plural von Datum)?

 

allo Nepumuk,

viele Dank erst einmal für Deine Antwort. Ich habe Deine Quelltext verstanden und er hilft auf jeden fall weiter. - Prima.

Was ich mit den Monaten gerne anstellen möchte:
1) Monate in einer Prozedur deklarieren und dann die Monate mit einer for ...next Schleife im Zellbreich "SpalteB" einer Tabelle wieder ausgeben. Und je nachdem, wie dann der Zähler (intCounter) eingestellt ist sollen beispielsweise nur die ersten drei Monate wiedergegeben werden, oder die ersten 7 Monate.

Kannst Du nachvollziehen was ich machen möchte?

2) Wie Aufgabe eins nur, dass auf bereits in einer Tabelle vorhanden Monatsnamen zugegriffen werden soll. Je nach einstellung des Zählers sollen diese dann im Zellbereich "SpalteB" einer Tabelle ausgegeben werden.

Ich habe noch nicht so richtig raus, wie ich auf Werte in einer Tabelle zugreifen kann.


Vielleicht kann Du mir weiterhelfen. - Ganz vielen Dank an dieser Stelle.

 

Hallo Chucrute,

ich bin mir nicht ganz sicher, ob ich dich richtig verstanden habe. Teste mal das:

Public Sub Monate_ausgeben()
Dim lngRow As Long
With Tabelle1
For lngRow = 1 To 12
.Cells(lngRow, 2).Value = MonthName(lngRow)
Next
End With
End Sub

Public Sub Monate_Kopieren()
Dim lngStart As Long, lngEnd As Long
lngStart = 1
lngEnd = 12
With Tabelle1
.Range(.Cells(lngStart, 2), .Cells(lngEnd, 2)).Value2 = _
.Range(.Cells(lngStart, 1), .Cells(lngEnd, 1)).Value2
End With
End Sub

 

Option Explicit

Deine Prozedur 1:
Code:

Frage: Wie bekomme ich es hin, auch andere Worte (“Strings“), die ich deklariere und denen ich Werte zuweise in den angegebenen Zellbereich zu schreiben? Beispiel:
Code:

Deine Prozedur 2:
Habe ich auch soweit verstanden. Musste ich schon ein wenig drüber grübeln … . Habe dann ein wenig rumprobiert.
Mit den Begriffen und deren Anwendung habe ich noch echt Problem: ■ Range, ■ row, ■ Colum, ….. aber es wird

Code:

Habe mich über Deine Rückmeldung echt gefreut, bin gespannt, was Du antwortest. Ein prima WE und viele Grüße, Chucrute
*Smilie *Smilie *Smilie *Smilie *Smilie *Smilie *Smilie *Smilie

 

Begrüßung ganz vergessen!
Hallo Nepumuk.

sorry, war wohl zu schnell.:



cool*entsetzt

 

Hallo Chucrute,

dein Array könntest du z.B. so ausgeben:

Public Sub Namen_ausgeben()
Dim strPerson(11) As String
strPerson(0) = "Anton"
strPerson(1) = "Maya"
strPerson(2) = "Willy"
strPerson(3) = "Heinz"
strPerson(4) = "Sergej"
strPerson(5) = "Tonin"
strPerson(6) = "Sandra"
strPerson(7) = "Chantal"
strPerson(8) = "Monika"
strPerson(9) = "Katrina"
strPerson(10) = "Stefanie"
strPerson(11) = "Otto"
Tabelle1.Cells(1, 2).Resize(UBound(strPerson) + 1).Value2 = _
WorksheetFunction.Transpose(strPerson)
End Sub


Zu den angesprochenen Begriffen: Range, Cells, Rows und Columns sind Eigenschaften des Worksheets-Objektes die ein Objekt zurückgenen welches aus einer oder mehreren Zellen besteht. Row und Column sind Eigenschaften von Zellen, welche die Nummer der entsprechenden Zeile bzw. Spalte zurückgeben in welcher die Zelle liegt.

 

Danke Nepumuk,
prima Hinweis. Muss mich jetzt damit erst einmal beschäftigen ... . Ich melde mich wieder.
Das mit dem Ein- und Auslesen ist so eine Sache, aber ich hoffe, dass ich das auch lernen werden.

Viele Grüße und einen guten Adventssonntag und danke nochmal.

Bis dahinne

Chucrute *Smilie *Smilie *Smilie *Smilie

 

Mal sehen ob das jetzt einen Mail ist oder gepostet wird ... .
viele Grüße chucrute