Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
684to688
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

MakroZählenAnzahlKopieren

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
Anzeige
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.
Anzeige
AW: MakroZählenAnzahlKopieren
26.10.2005 13:19:15
u_
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige