Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
944to948
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
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro

Makro
24.01.2008 18:54:00
Toni
Hallo Excel Experten,
ich habe ein Makro aufgezeichnet und es dann nicht zu Ende gebracht, weil ich der Meinung bin das es vielleicht eine kürzere VBA Lösung gibt.
Im Anhang sende ich die Tabellenblätter, in denen ihr seht was ich meine. wenn es eine Möglichkeit gibt
es in eine kürzere Form zu bringen, würde ich mich sehr freuen, da ich für alle 61 Mieter solch ein Makro aufzeichnen müsste.
https://www.herber.de/bbs/user/49345.xls
mfg. Toni

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

Betreff
Datum
Anwender
Anzeige
AW: Makro
24.01.2008 23:03:50
Rudi
Hallo,
ich glaube, dass du da großen Unsinn veranstaltest.
Die Daten kannst du dir doch einfach per SVERWEIS mit der WE in A2 als Kriterium aus der WP2007 holen.
Die Absolute Abhängigkeit von 182 ist auch unsinnig, da nicht flexibel.
Gruß
Rudi
Eine Kuh mach muh, viele Kühe machen Mühe.

AW: Makro
24.01.2008 23:54:04
ChrisL
Hallo Toni
Nur das Makro angeschaut, ohne ueber Sinn und Unsinn nachzudenken.
Schritt 1 waere select zu eliminieren...
Range("G4").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C=182,WP2007!R3C5,""0"")"
Range("G5").Select
Range("G5").Select
ActiveCell.FormulaR1C1 = "=IF(R[-2]C=182,WP2007!R3C8,""0"")"
Range("G6").Select
Range("G6").Select
ActiveCell.FormulaR1C1 = "=IF(R[-3]C=182,WP2007!R3C11,""0"")"
Range("G7").Select
ActiveCell.FormulaR1C1 = "=IF(R[-4]C=182,WP2007!R3C14,""0"")"
neu...
Range("G4").FormulaR1C1 = "=IF(R[-1]C=182,WP2007!R3C5,""0"")"
Range("G5").FormulaR1C1 = "=IF(R[-2]C=182,WP2007!R3C8,""0"")"
Range("G6").FormulaR1C1 = "=IF(R[-3]C=182,WP2007!R3C11,""0"")"
Range("G7").FormulaR1C1 = "=IF(R[-4]C=182,WP2007!R3C14,""0"")"
und dann kann man noch eine Schleife bauen...
Dim i As Integer
For i = 1 To 4
Range("G" & i + 3).FormulaR1C1 = "=IF(R[-" & i & "]C=182,WP2007!R3C" & (i * 3) + 2 & ",""0"")"
next i
Gruss
Chris
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige