Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1176to1180
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
1176to1180
1176to1180
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro ergänzen

Makro ergänzen
walli
Guten Abend,
habe ein kleines Problem, die Formel soll nur kopiert werden, wenn in der gleichen Zeile
in der Spalte "AO" ein Wert steht.
ActiveSheet.Range("AQ4").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-2]="""","""",ROUND(SUM(RC[-2]*R1C1%+RC[-2]),-1))"
With ActiveSheet
actspal = ActiveCell.Column
Application.Calculation = xlCalculationManual
.Cells(4, actspal).Copy
With .Range(.Cells(5, actspal), .Cells(.Cells(.Rows.Count, 2).End(xlUp).Row, actspal)).Select
ActiveSheet.Paste
End With
Range("AQ4").Select
Application.Calculation = xlCalculationAutomatic
End With
mfg walli

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

Betreff
Benutzer
Anzeige
AW: Makro ergänzen
10.09.2010 22:05:38
fcs
Hallo Walli,
Makro sollte etwa wie folgt aussehen.
Die Code-Zeile in der in dem Bereich, in den anschliessend die Formeln eingetragen werden, die Inhalte gelöscht werden ggf. wieder löschen.
Gruß
Franz 
  Dim Zelle As Range, actspal As Long
With ActiveSheet
With .Range("AQ4")
.FormulaR1C1 = "=IF(RC[-2]="""","""",ROUND(SUM(RC[-2]*R1C1%+RC[-2]),-1))"
actspal = .Column
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
End With
'vorhandene Inhalte löschen
.Range(.Cells(5, actspal), _
.Cells(.Cells(.Rows.Count, 2).End(xlUp).Row, actspal)).Clear
.Range("AQ4").Copy
For Each Zelle In .Range(.Cells(5, actspal), _
.Cells(.Cells(.Rows.Count, 2).End(xlUp).Row, actspal))
If IsEmpty(Zelle.Offset(0, -2)) = False Then 'Spalte AO auf Inhalt prüfen
Zelle.PasteSpecial Paste:=xlPasteFormulas
End If
Next
End With
Application.CutCopyMode = False
Range("AQ4").Select
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

Anzeige
Danke habe die Lösung gefunden -)
11.09.2010 18:28:12
walli
Hallo Franz,
habe die Lösung gefunden, da in der Zelle aq4 nicht gelöscht wurde,
danke walli

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige