Zelle in Spalte

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Halo Hajo,
im ersten Beitrag wolltest Du eine Zelle ansprechen. Warum hast Du dazu meinen Vorschlag nicht umgesetzt?
Sheets("Kosten_VR").Cells(2, spaltekoges )=123
Excel ist ein vielseitiges Programm und man kann viele Probleme damit lösen. Jede positive Seite hat aber auch negative Aspekte - einer davon ist im Makrorecorder enthalten.
Die Bücher, die es zu Excel VBA gibt, erklären viele Funktionen, aber ich habe bisher nur in einem gelesen, dass der vom Makrorecorder aufgezeichnete Code bereinigt werden sollte.
Der Makrorecorder zeichnet alle Aktionen auf, u. a. auch das Auswählen einer Zelle oder eines eingebetteten Objektes (Bild, Diagramm, Zeichnungsobjekt usw.) dabei wird generell Select und Activate aufgezeichnet. Diese Befehle sind in VBA zu 99,9% nicht notwendig. Sie lassen den Bildschirm flackern und senken die Geschwindigkeit bei der Ausführung des Codes. Man sollte also schon von Beginn an bei der Programmierung darauf achten, solche Befehle zu vermeiden. Meine Erfahrung mit dem Vorsatz: Das mache ich später ist, man schreibt das Programm später meist komplett neu. Also kostest es nicht nur Rechnerzeit sondern auch Deine Zeit und ist Dir Deine Zeit so wenig Wert?
Zum Vergleich mit und ohne Select schau Dir auch mal diese Beispielarbeitsmappe an: mit und ohne select Auf meiner Homepage sind alle meine Beispiele ohne Select. Da kann man sich also einige Lösungsansätze zu diesem Thema ansehen.
Gruß Hajo

intNr = Cells(2, Columns.Count).End(xlToLeft).Column = hier erhält intNr den Wert 30
Range(Columns(27), Columns(30)).Select = funktioniert
Selection.Cut = funktioniert
Range(Columns(31), Columns(34)).Select = funktioniert
ActiveSheet.Paste funktioniert
spaltekoges = intNr - 3 = funktioniert
Columns(" & spaltekoges & "), 2.Select = falscher Befehl
ActiveCell.FormulaR1C1 = "Kosten " & monat & " Gesamt"
Ich ermittle die letzte Spalte gefüllte Spalte einer Tabelle, schneide 4 bestimmte Spalten aus ( ich weiß vorher nicht welche). Füge die Spalten an anderer Stelle wieder ein. Dann will ich in die freigewordenen Spalten etwas einfügen. Um die Spalte anzusprechen benutze ich die Variable spaltekoges. Ich suche nach einer Möglichkeit die 2. Zelle in den freigewordenen Spalten anzusprechen.
Für Deine Hilfe währe ich sehr dankbar.
Gruss
HaJo

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread