MakroZählenAnzahlKopieren

Forumthread: MakroZählenAnzahlKopieren

26.10.2005 12:41:18

achim

Hallo Excel Freunde
Wer kann dieses Makro bearbeiten:


Sub Test()
With Sheets("DatenAusSheet1")
anzd = .Cells(Rows.Count, 1).End(xlUp).Row
'Anstatt AutoFill geht auch "soviel kopieren  C1 wie gezählt"?
.[c1].AutoFill Destination:=.Range("C1:C" & anzd), Type:=xlFillDefault
End Sub

Danke
achim h.

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: MakroZählenAnzahlKopieren

26.10.2005 12:45:02

Leo
AW: MakroZählenAnzahlKopieren

26.10.2005 12:48:14

achim
AW: MakroZählenAnzahlKopieren

26.10.2005 13:01:30

Harald
AW: MakroZählenAnzahlKopieren

26.10.2005 13:13:55

achim
AW: MakroZählenAnzahlKopieren

26.10.2005 13:19:15

u_
o.T. danke

26.10.2005 13:24:19

achim
AW: MakroZählenAnzahlKopieren

26.10.2005 13:20:52

Harald
o.T. Danke

26.10.2005 13:26:31

achim
AW: Danke für die Rückmeldung m.T

26.10.2005 13:36:31

Harald

AW: MakroZählenAnzahlKopieren

26.10.2005 12:45:02

Leo

Hi,
End With fehlt
mfg Leo

AW: MakroZählenAnzahlKopieren

26.10.2005 12:48:14

achim

Hallo Leo
auch mit end with bekomme ich nicht das gewünschte ergebnis.
kannst du noch mal schauen ob das ändern geht.
guruss
achim h.

AW: MakroZählenAnzahlKopieren

26.10.2005 13:01:30

Harald

Hallo Achim,


Sub Test()
If IsEmpty([c1]) Then
MsgBox "Na, dann schreib mal was nach Zelle C1"
Exit Sub
End If
With Sheets(1)
anzd = .Cells(Rows.Count, 1).End(xlUp).Row
'Anstatt AutoFill geht auch "soviel kopieren  C1 wie gezählt"?
.[c1].AutoFill Destination:=.Range("C1:C" & anzd), Type:=xlFillDefault
End With
End Sub

Gruß
Harald

AW: MakroZählenAnzahlKopieren

26.10.2005 13:13:55

achim

Hallo Haralt
Kannst du noch mal schauen?
Ich erkenne keine Änderungen. Den in der Zelle C1 steht schon ein Monatsname und wenn AutoFill
macht das Makro Oktober November usw.
Von daher möchte ich das der Wert aus C1 soviel herunterkopiert wird wie in( "A" Werte )gezählt.
gruss achim h.

AW: MakroZählenAnzahlKopieren

26.10.2005 13:19:15

Hallo,


Sub Test()
With Sheets("DatenAusSheet1")
anzd = .Cells(Rows.Count, 1).End(xlUp).Row
Range(cells(2,3),cells(anzd,3))=Range("C1")
end with
End Sub

Gruß
Geist ist geil!

o.T. danke

26.10.2005 13:24:19

achim

hallo U_
Genau das was ich brauche. Danke achim h. aus dem Ruhrgebiet

AW: MakroZählenAnzahlKopieren

26.10.2005 13:20:52

Harald

Hi Achim
der Code läuft 1a.
Hast Du den Code ohne Änderung kopiert ?
With Sheets(1)...hatte ich nämlich zum testen abgeändert.
Gruß
Harald

o.T. Danke

26.10.2005 13:26:31

achim

Hallo haralt
VBA lernen ist ganz schön schwer auch dir danke für die hilfe.
Gruß achim h.

AW: Danke für die Rückmeldung m.T

26.10.2005 13:36:31

Harald

Jaaaa...wenn's einfach wäre, könnt's jeder ;-))
Und das Beste....das Lernen hört nie auf.
Viel Spaß noch
Harald

Beliebteste Forumthreads (12 Monate)

Forumthread: MakroZählenAnzahlKopieren

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread