Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellenbezüge mit "For Next" Schleife

Zellenbezüge mit "For Next" Schleife
07.11.2003 12:01:52
Florian
Hi Forum!

Mittels einer "For Next" Schleife würde ich gerne Zellbezüge erstellen, weiss aber leider nicht so genau wie das geht.

Die Zelle D2 soll den in Zelle N1 stehenden Wert übernehmen. Dann soll D3 den Wert von O1 und so weiter (D4-P1; D5-O1...), solange Werte im Bereich N1:IV1 vorhanden sind.

Hab mir mal einen Code zusammengezimmert, wäre spitze wenn mir jemand auf die Sprünge helfen könnte!


Sub Try()
For i = 14 To 243
If Cells(1, i).Value <> 0 Then
Range("D2").Select
ActiveCell.FormulaR1C1 = Cells(1, i).Value
ActiveCell.Offset(1, 0).Range("d2").Select
ActiveCell.FormulaR1C1 = Cells(1, i+1).Value
Next
End Sub


Schöne Grüße,
Florian

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellenbezüge mit "For Next" Schleife
07.11.2003 12:18:45
WernerB.
Hallo Florian,

wie gefällt Dir das:

Option Explicit

Sub Try()
Dim i As Long
Range("D2:D244").ClearContents
For i = 2 To 244
If Cells(1, i + 12).Value <> "" Then
Cells(i, 4).Value = Cells(1, i + 12).Value
End If
Next i
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).
AW: Zellenbezüge mit "For Next" Schleife
07.11.2003 13:07:30
Florian
Hi Werner!

Dankeschön, funktioniert wunderbar!

Schönes Wochenende, sitzt nicht zu lange am Rechner;-).

Gruß,
Florian
AW: Zellenbezüge mit "For Next" Schleife
07.11.2003 12:22:16
xXx
Hallo,
so sollte es gehen:

Sub Try()
n=2
For i = 14 To 256
If Cells(1, i) <> 0 Then
cells(n,4)=cells(1,i)
n=n+1
Next i
End Sub

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige