Microsoft Excel

Herbers Excel/VBA-Archiv

Zellen überspringen

Betrifft: Zellen überspringen von: ralf
Geschrieben am: 07.11.2012 17:45:00

Hallo Forum

Habe ein Problem . Will in Spalte A , Datum eingeben . Das bekomme ich auch hin .
Das Problem ist das ich in Zelle A1 ein Datum habe möchte ,dann Zelle A2 leer ,
und in Zelle A3 wieder Datum usw. Benutze folgendes Makro.

Private Sub Datum()
Dim d As Date
Dim b, i
i = Day(DateSerial(Year(d), 1 + 1, 0))
For b = 1 To i
ActiveSheet.Cells(b, 1) = DateSerial(Year(Now), 1, b)
Next
End Sub

mfg
Ralf

  

Betrifft: AW: Zellen überspringen von: Hajo_Zi
Geschrieben am: 07.11.2012 17:46:32

Hallo Ralf,

For b = 1 To i Step 2

GrußformelHomepage


  

Betrifft: AW: Zellen überspringen von: ralf
Geschrieben am: 07.11.2012 18:06:16

Hallo Hajo , Hallo Forum

Habe ich schon versucht , dann habe ich in Zelle A3 , nicht den 2.1 sondern den 3.1 stehen usw .
Also er überspringt immer einen Tag .

mfg
Ralf


  

Betrifft: AW: Zellen überspringen von: Hajo_Zi
Geschrieben am: 07.11.2012 18:07:59

Hallo Ralf,

dann mußt Du für den Tag eine Extra Variable benutzen.

Gruß Hajo


  

Betrifft: AW: Zellen überspringen von: Hajo_Zi
Geschrieben am: 07.11.2012 18:09:16

Hallo Ralf,

Oder (b+1)/2

GrußformelHomepage


  

Betrifft: AW: Zellen überspringen von: hary
Geschrieben am: 07.11.2012 18:22:43

Hallo Ralf

Dim b As Long
Dim i As Long
Dim zwei As Long
 zwei = 1
 i = Day(DateSerial(Year(Date), 1 + 1, 0))
   For b = 1 To i
     ActiveSheet.Cells(zwei, 1) = DateSerial(Year(Date), 1, b)
      zwei = zwei + 2
   Next

gruss hary


  

Betrifft: AW: Zellen überspringen von: ralf
Geschrieben am: 07.11.2012 19:05:22

Hallo Hajo , Hallo hary

Tausend Dank . Habe es von Harry gerade probiert läuft wunderbar .

mfg
Ralf


 

Beiträge aus den Excel-Beispielen zum Thema "Zellen überspringen"