Thema Datum  Von Nutzer Rating
Antwort
06.12.2008 08:41:20 Chucy
NotSolved
Blau Aw:For Next Schleife
 08.12.2008 16:19:58 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
08.12.2008 16:19:58		 Views:
792		 Rating:
     
Antwort:
  Ja
Thema:
Aw:For Next Schleife
Hallo Chucy,
dein Code ist ziemlich umständlich und macht, wenn ich dein Ziel richtig verstanden habe, auch das nicht, was du beabsichtigst. Du schreibst in intWert_1 12 Mal den Wert der Zelle A1, um dann in der Spalte B diesen Wert jeweils um 1 erhöht auszugeben. Also brauchst du eigentlich nur in A1 eine Zahl einzugeben, um das Ergebnis in der Spalte B zu erhalten - unabhängig von dem, was in A2 bis A12 steht.
Wenn ich dich richtig verstanden habe, willst du aber A1 bis 12 nach B1 bis B12 kopieren. Hierzu empfehle ich

for i=1 to 12
cells(i,2)=cells(i,1)
next i

Mit dem Befehl Cells(Zeile,Spalte) wird dir auch dein zweites Anliegen gelingen.

Gruß
Holger

Chucy schrieb am 06.12.2008 08:41:20:

Hallo 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 B1 bis B12 ausgeben lassen. - Das funktioniert auch soweit.

Quelltext:

Sub For_each_Schleife()

Dim intWert_1 As Integer
Dim intWert_2 As Integer
Dim intCounter As Integer

With Sheets("Tabelle1")

For intCounter = 1 To 12
intWert_1 = .Range("A1").Value
intWert_2 = intWert_1 + intCounter - 1
.Range("B" & intCounter).Value = intWert_2
Next intCounter
End With

End Sub


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 Dirketfenster auszugeben zu lassen ist für mich i.d.R kein größeres 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 dies bewerkstelligen kann?

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
06.12.2008 08:41:20 Chucy
NotSolved
Blau Aw:For Next Schleife
 08.12.2008 16:19:58 Holger
NotSolved