Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1112to1116
1112to1116
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel kopieren mit VBA

Forumthread: Formel kopieren mit VBA

Formel kopieren mit VBA
jo_cindy
HAllo, habe einen Fehler in meinem Makro und weiß nicht, wo er steckt. Ich möchte gerne in Spalte AC, AD, AE, AF und AG das Format auf Euro ändern. Es soll jeweils in der zweiten Zeile begonnen werden und bis zum Ende der Tabelle (Zeilenanzahl ist individuell) kopiert werden. Die enthaltenen Formel dürfen dabei nicht überschrieben werden. Ich habe folgendes eingegeben:
Range("AC2").Select
With Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Offset
Selection.NumberFormat = "#,##0.00 $"
Ich erreiche damit aber nur die Formatierung Euro in AC2 und nicht bis zum Ende der Datentabelle. Was fehlt?
Anzeige
AW: Formel kopieren mit VBA
27.10.2009 21:53:57
hary
hi
versuch mal das. Bereich von AC2 bis AG(letzte belegte zelle),evtl. aendern. 

With Range("AC2:AG" & Cells(Rows.Count, 33).End(xlUp)) 'bis letzte belegte zelle in Spalte AG
.NumberFormat = "#,##0.00 €"
End With

gruss hary
da fehlt aber noch die Zeile ...
27.10.2009 22:16:57
Christian
... oder wie läuft das bei 2007, Hary?
also:
Range("AC2:AG" & Cells(Rows.Count, 1).End(xlUp).Row).NumberFormat = "#,##0.00 €"
Außerdem würde ich vollständig referenzieren und auch die Adressen nicht mit Strings zusammensetzen sondern zB mit Resize arbeiten, aber das ist ein anderes Thema.
Warten wir erst mal auf 'ne Rückmeldung von Jo.
Grüße
Christian
Anzeige
AW: da fehlt aber noch die Zeile ...
27.10.2009 22:21:32
jo_cindy
Hallo Christian und Hary,
habe bei "AC2:AG die 2 ergänzt. Jetzt bekomme ich keinen Fehler mehr, aber auch keine Formatierung auf Euro?
Gruß, Jo
da hab ich den neuen Fehler mit dem alten ersetzt
27.10.2009 22:41:16
Christian
Hallo Jo,
Hary hatte schon die richtige Idee, nämlich den Bezug auf Spalte 33 (=AG) zu setzen.
Er hatte aber hier einen Flüchtigkeitsfehler - da End(xlUp) statt End(xlUp).Row
Ich hab das dan korrigiert, hab aber wieder Spalte 1 (=A) eingesetzt (zwei mal "falsch" gibt nicht immer "richtig").
also probier mal:
Range("AC2:AG" & Cells(Rows.Count, 33).End(xlUp).Row).NumberFormat = "#,##0.00 €"
So wird bis zum letzten Eintrag (Zeile) aus Spalte AG das Format gesetzt.
Sollten in Spalte AC - AF mehr Zeilen gefüllt sein als in AG, dann funzt das allerdings immer noch nicht richtig. Und wenn du deine Tabelle zB mit Autofilter gefiltert hast, das bringt End(xlUp).Row auch nicht das erwartete Ergebnis - zumindest bei XL2003. Dann brauchst du andere Workarrounds.
Gruß
Christian
Anzeige
AW:nee,nee.....
27.10.2009 22:47:18
hary
Hi Christian
...wo ich Deine Antwort gelesen habe, habe ich wirklich gezweifelt. Aber es geht wirklich so!!!!!
Sollte das ein 2007'ner Wunder sein? Verstehen tu ich's auch nicht. Der Code steht wirklich so drin.
Gruss hary
AW: da fehlt aber noch die Zeile ...
27.10.2009 23:44:08
jo_cindy
Hi Christian,
habe eine neue Frage ins Forum gestellt, kannst du mir da vielleicht auch helfen? Bitte
Anzeige
AW: Formel kopieren mit VBA
27.10.2009 22:17:52
jo_cindy
Hallo Hary,
ich bekomme einen Laufzeitfehler: 1004 Die Methode Range für das Objekt _Global ist fehlgeschlagen
Gruß, Jo
AW: Formel kopieren mit VBA
27.10.2009 22:40:30
hary
hi
hier mal die 2007 mappe Bereich ist umrahmt die zZ. umformatiert wird.
https://www.herber.de/bbs/user/65383.xlsm
Gruss Hary
Anzeige
AW: Formel kopieren mit VBA
27.10.2009 22:46:30
jo_cindy
Hi, habe Probleme mit gezippten Dateien. Habe Progr. 7-zip. In den expandierten Ordnern finde ich keine Excelsheet xls?
AW: Formel kopieren mit VBA
27.10.2009 22:49:23
hary
Hi
ist doch nicht gezippt! Ist eine xlsm Datei. Oder Hast Du garkein 2007?
gruss hary
ok, und jetzt schreib mal in ...
27.10.2009 22:50:36
Christian
...AG12 einen Text.
mit Cells(Rows.Count, 33).End(xlUp) bekommst du den Wert der letzten Zelle, aber nicht die Zeilennummer der letzten Zelle, da Cells(x, y) als Cells8x,y).Value interpretiert wird.
korrigiere mich bitte, sollte ich da bei 2007 falsch liegen.
Grüße
Christian
Anzeige
AW: ok...
27.10.2009 23:03:52
hary
Hi Christian
ja, hast recht. Mit Zahlen geht's(weil Excel ja eine Zahl hat), mit Text kommt Fehlermeldung.Waren zwei Unbekannte die ein Ergebniss brachten.
also muss zwischen den beiden letzten .Row
Gruss hary
dann ist meine XLS-Welt wieder...
27.10.2009 23:10:49
Christian
eine Kugel...
Gruß
Christian
AW: ok...
27.10.2009 23:11:15
jo_cindy
Hi,
ich habe Excel 2007. Wenn ich auf deinen Link gehe, dann bekomme ich sofort ein Popup 65383.zip mit der Frage nach Öffnen oder speichern?
Ich hab mal die Datei hochgeladen und die Formatierung entfernt, da bei mir fehlerhaft. Soll als letzter Befehl ausgeführt werden.
Datei kommt gleich...
Anzeige
AW: Formel kopieren mit VBA
27.10.2009 23:12:54
jo_cindy
Hier die Datei

Die Datei https://www.herber.de/bbs/user/65384.xls wurde aus Datenschutzgründen gelöscht


AW: Formel kopieren mit VBA
27.10.2009 23:19:25
Christian
Hi Jo,
ersetze den Code in Mudul1 mit: 

Option Explicit
Sub n()
Range("AC2:AG" & Cells(Rows.Count, 33).End(xlUp).Row).NumberFormat = "#,##0.00 €"
End Sub
Gruß
Christian
Anzeige
AW: Formel kopieren mit VBA
27.10.2009 23:24:34
jo_cindy
Hi Christian,
hat geklappt, weiss zwar nicht was ich vorher falsch gemacht habe, aber ist ja auch egal. Ihr habt mich gerettet- DANKE!!!!!!!
Gruß, Jo
AW: mappe
27.10.2009 23:26:46
jo_cindy
Hat geklappt, DANKE auch dir Hary. Schade, dass ich nicht euer Wissen habe
AW: Formel kopieren mit VBA
27.10.2009 23:43:15
jo_cindy
Hallo Hary,
ich habe einen neuen Beitrag geschrieben, kannst du mir da auch helfen? Bitte

Forumthreads zu verwandten Themen

Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
Anzeige
Zeilenmerkmale in Spalten umwandeln
MG_Learning

Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18...
17.08.2008 18:31:50
Thread-ID: 1002449
4 Beiträge
Spalten mit Formeln mit 1 multiplizieren
Susanne99

Hallo, kriege hier per Datenbankverlinkung teilweise Zahlen eingespielt, die Excel nicht als Zahl, sondern als Text identifiziert. Dem kann ich abhelfen, indem ich den Zellinhalt jeweils mit 1 multipliziere. Wie kann ich die
"*1" in die Formeln in ganzen Spaltenreihen einfügen, ohne jeden...
31.08.2008 10:34:22
Thread-ID: 1006147
8 Beiträge
Spalten in Zeilen anhängen
Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
01.09.2008 18:03:42
Thread-ID: 1006570
11 Beiträge
Anzeige
wie Spalten in einem Arbeitsblatt zu Zeilen zusamm
Michael

Moin erstmal,
folgendes Problem als mittelmäßiger Anwender.
Ich habe mehrere identische Arbeitsblätter wo ich jeweils untereinander (eine Spalte) mehrer Werte habe. G1-G10.
Diese Werte möchte ich in einem Arbeitsblatt zusammenfassen , allerdings nun in einer Zeile. A1-J1.
Wi...
04.09.2008 19:48:05
Thread-ID: 1007497
4 Beiträge
Änderung Zeilen und Spaltenbezug
lass

Hallo, ich habe folgendes Problem.
Ist
(Zeile2/Spalte A2): Auftrag xyz; (Zeile2/Spalte B2):Mitarbeiter 1; (Zeile2/Spalte C2)= Mitarbeiter 2
(Zeile3/Spalte A3): Auftrag xyz; (Zeile3/Spalte B3):Mitarbeiter 3; (Zeile3/Spalte C3)= Mitarbeiter 4
(Zeile4/Spalte A...
15.09.2008 08:29:55
Thread-ID: 1009654
17 Beiträge
Anzeige
Zeilen mit Makro aus Mustertabelle kopieren
obelix-xxl

Hallo,
ich wende mich an dieses Forum mit der Bitte eine Makrolösung aufzuzeigen.
Udo hat mir gestern eine Lösung zum Kopieren von Zeilen hier ins Forum gestellt. Diese ist auch so genau richtig.
Nachdem ich diese nun einsetzen kann, benötige ich eine weiteres Kopiermakro.
In me...
26.09.2008 16:29:07
Thread-ID: 1012698
10 Beiträge
Zeilen löschen in Abhängigkeit von 2 Spalten
2

Hallo zusammen,
ich habe ein Makro über den Rekorder aufgezeichnet und versuche es anzupassen. Leider kenn ich mich in der Syntax nicht aus.
Ziel:
In einem markierten Bereich die Zeilen löschen, die in Abhängigkeit von zwei Spalten eine 0 enthalten.
D.h. Spalten X und Y enthalte...
06.10.2008 14:00:00
Thread-ID: 1014434
3 Beiträge
Wenn Formel mit Spalte
Maris

Hi zusammen,
ist das möglich, dass ich eine Wenn-Formel auf eine Spalte und eine Zelle in der Zeile beziehe? Bsp.:
Tabelle A B C Ergebnis ERM VOLL OHNE 1 x ERM 2 x...
05.11.2008 16:30:00
Thread-ID: 1021984
6 Beiträge
kopieren Formeln über mehrere Spalten
Maris

Hi,
ich ein kniffliges Problem das mich schon seit längerem im Excel wurmt und das ich bisher nicht lösen konnte. Ich weiß nicht ob es ohne VBA geht, aber am besten wärs mit excel Boardmitteln.
Ich habe 2 Tabellenblätter:
Tabelle1
Hier habe ich in jeder 6ten Spalte in Zeile 100...
25.11.2008 18:17:41
Thread-ID: 1027815
4 Beiträge
Spalten in Zeilen vor Import in Access DB
mat

Hallo,
ich soll im Rahmen eines kleines Projektes einen SAP Export in eine Access DB importieren.
Das Problem liegt darin, dass die Exceldatei alle Umsätze und Absätze in einer Zeile hat. Hierbei bildet jeder Monat eine Spalte.
Für eine Datenbank macht es natürlich mehr Sinn je Mona...
08.12.2008 19:10:00
Thread-ID: 1031167
3 Beiträge
Anzeige
Formel mit VBA kopieren
Hartmut_M

Hallo, ich möchte mit VBA aus einem Bereich die Formeln in einen anderen Bereich kopieren.
Nutze hierfür folgenden code, wobei die variablen spalte und spalteneu für die Spaltennummern stehen:
Range(Cells(5, spalte), Cells(130, spalte)).Select
Selection.AutoFill Destination:=Range(C...
12.12.2008 10:02:26
Thread-ID: 1032307
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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