Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellenbezüge mit "For Next" Schleife

Forumthread: 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
Anzeige

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).
Anzeige
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
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige