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

Forumthread: Eintrag in mehreren Spalten

Eintrag in mehreren Spalten
24.11.2005 13:46:02
Michael
An alle Tüftler
Ich hoffe das ist meine letzte Frage für heute.
Ich trage über ein Makro jeweils etwas in die Spalte C ein. Ich möchte daß der fortlaufende Eintrag (der ist um einiges länger als unten angegeben)nicht in einer Spalte erfolgt sondern Spalte C3 - C63 dann weiter F3 - F63 und weiter I3 - I 63 usw. und dann bei der nächsten Fundstelle wieder dort weitergeht. Ich hoffe ihr kennt euch aus mit meinen Angaben.

Sub test2()
For n = 1 To Range("c65536").End(xlUp).Row
If Weekday(Cells(n, 3)) = 2 And Cells(n, 2) = "4" Then
Cells(n + 1, 2) = 1
Cells(n + 2, 2) = ""
Cells(n + 3, 2) = ""
Cells(n + 4, 2) = 3
Cells(n + 5, 2) = 1
End If
Next
End Sub

Danke für eure Hilfe
Michael
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eintrag in mehreren Spalten
24.11.2005 17:44:00
ChrisL
Hi Michael
Deine Frage ist milde ausgedrückt etwas unverständlich :-)
System ist ja "Cells(Zeilennummer, Spalten-Index)"
Ersetze den Spalten-Index durch eine Variable z.B.

Sub test2()
Dim iZeile As Long, iSpalte As Integer
For iSpalte = 3 To 9 Step 3
For iZeile = 1 To Cells(65536, iSpalte).End(xlUp).Row
If Weekday(Cells(iZeile, iSpalte)) = 2 And Cells(iZeile, iSpalte - 1) = "4" Then
' mach etwas
End If
Next iZeile
Next iSpalte
End Sub

Gruss
Chris
Anzeige
Danke Chris
25.11.2005 07:54:05
Michael
Es tut mir leid, daß ich so unverständlich geschrieben habe. Aber trotzdem Danke für Deine Hilfe. Da hat mir sehr geholfen.
Gruß
Michae
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige