Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
252to256
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
252to256
252to256
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro für Zeilen einfügen mit Formel

Makro für Zeilen einfügen mit Formel
13.05.2003 11:20:54
Dominik
Hallo!

Ich brauche ein Makro, welches mir Zeilen einfügt und zudem noch eine Formel in Spalte D.

Das ist was ich bisher habe:

Sub Makro()
'
' Makro
'

Selection.Insert Shift:=xlDown
For Each Cell In Range("D:D")
If Cell.Interior.ColorIndex = 15 Then Cell.Formula = "=IF(ISNA(VLOOKUP(A4:A10000,'C:\Excel\[test.xls]Tabelle1'!$B$2:$H$10000,7,FALSE)),0,VLOOKUP(A4:A10000,'C:\Excel [test.xls]Tabelle1'!$B$2:$H$10000,7,FALSE))"
Next Cell
End Sub

Allerdings wird hier in jede Zelle der Spalte D die Formel eingetragen.

Dürfte für Euch Excel-Cracks doch kein Problem sein, oder?

MfG
Dominik

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

Betreff
Datum
Anwender
Anzeige
Re: Makro für Zeilen einfügen mit Formel
13.05.2003 11:47:03
ICN

Probier doch mal statt
'For Each Cell In Range("D:D")'
For each Cell in Selection.Columns(4)

mfG
Ingo Christiansen


SUPER Ingo
13.05.2003 12:37:44
Dominik

Vielen Dank!!!

MfG
Dominik

Anzeige

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige