Excel VBA - Formeln variabel nach unten kopieren (Makro)?

Hi Zusammen

Ich habe eine Tabelle, in der in Zellen A3:G3 Formeln sind. Ich will mittels Makro die Formeln nach unten kopieren. In Spalte I sind Datensätze. Wie kann ich ein Makro so erstellen, dass die Formeln in Spalten A:G nur soweit eingefügt werden, wie in Spalte I Daten vorhanden sind? Die Daten in Spalte I ist variabel (200, mal 300, etc.)

1 Antwort

Vom Fragesteller als hilfreich ausgezeichnet

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel, VBA

04.05.2020, 19:22

Mit "ANZAHL2" kannst du heraus finden welches die maximal verwendete zeile ist.
ACHTUNG: Es werden nur beschriebene Zelle gezählt. Man halt also günstiger Weise keine Lücke in den Daten:

LetzteZeile = Worksheetfunktion.CountA(Range("I3:I20000")) +2
  Range("A3:G3").Copy
   Range("A4:G" & LetzteZeile):PasteSpecial

DanKirpan

05.05.2020, 08:15

eine Ergänzung: Falls die Daten Lücken aufweisen kann man zum Bestimmen der letzten Zeile dies verwenden:

LetzteZeile = ThisWorkbook.Sheets("Tabelle1").Range("I" & Rows.Count).End(xlUp).Row

Hallo Zusammen,

Wie kann ich überprüfen, ob eine Spalte gruppiert ist in VBA? Die gruppierten Spalten möchte ich überspringen

Danke

...zur Frage

Durch ein VBA Makro nur Zeilen mit Inhalt in eine neue Tabelle kopieren?

Ich versuche vergeblich ein Makro für eine Exceltabelle zu erstellen und brauche dringend Hilfe. In der Tabelle1 befindet sich eine Liste mit 1200 Artikeln. In der Spalte A sind die Artikelnummern und in den Spalten C bis N die Stückzahl zu dem jeweiligen Artikel.

Durch ein Makro will ich nur die Zeilen in die Tabelle2 kopieren, bei denen ein Wert/Stückzahl zu dem jeweiligen Artikel in die Spalten C bis N eingetragen wurde.

Ich hoffe mir kann jemand weiterhelfen.... Vielen Dank

...zur Frage

Excel VBA activesheet statt tabellenname?

Hallo,

ich habe ein Makro aufgezeichnet und ich möchte dass die Formeln welche ich geschrieben habe immer von der aktiven Tabelle genommen werden.

Dadurch, dass ich das Makro aufgezeichnet habe, ist mir erst später aufgefallen, dass in den Formeln in den Zellen immer der Tabellenname steht: =WENNFEHLER(SVERWEIS(30;'42297033'!A5:T5;3;);"")

Ich möchte aber, dass diese Formeln immer die Tabelle nehmen, in der das Makro ausgeführt wurde.

Im Makro steht z.B. folgendes:

ActiveCell.FormulaR1C1 = _

"=IFERROR(VLOOKUP(30,'42297033'!R[3]C[-2]:R[3]C[17],3,),"""")"

'42297033' ist in dem Fall der Tabellennamen.

Noch zur Info was das gesamte Makro macht:

Ich erstelle eine neue Tabelle -> übertrage gewisse Daten von der alten Tabelle in die neue und das mit Formeln wie SVerweis() oder Wenn()

Kann ich Makro den Tabellenname durch etwas ersetzen, damit es richtig funktioniert?

Wäre schön wenn mir jemand helfen könnte, ich muss das spontan machen und bin ganz neu bei VBA

LG Benni

...zur Frage

Makro mit VBA in Excel zerschossen, brauche dringend Hilfe!?

Hallo zusammen,

vorab schonmal, nein ich habe hier absolut 0% Ahnung hiervon und brauche dringend Hilfe!

Ich habe auf der Arbeit bei einer wichtigen Excel Datei eine neue Spalte eingefügt, was dafür gesorgt hat, dass eine wichtige Spalte rechts davon weiter nach rechts verschoben wurde um eine Zelle.

In dieser Spalte wurden Enddatum eingetragen und diese wurden mit einem Makro über VBA Absteigend von jüngerem Datum oben, nach späteren Datum nach unten hin sortiert.

Nachdem ich die neue Spalte zugefügt habe, funktionierte eins nach dem anderen nicht mehr richtig und ich war so dumm zu versuchen das Makro minimal anzugleichen, sodass es funktioniert und habe es dann getestet.

Dadurch habe ich es nur schlimmer gemacht...

Zudem kann ich jetzt nicht mal mehr in der Tabelle scrollen, zumindest in diesem Reiter, in einem anderen Reiter unten, kann ich scrollen in der Datei.

Der Text in VBA Stand jetzt:

Sub Sortieren()

' Sortieren Makro

Rows("3:500").Select

Range("B3").Activate

ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Add Key:=Range( _

"H4:Hl34"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

xlSortNormal

With ActiveWorkbook.Worksheets("Übersicht").Sort

.SetRange Range("A3:L500")

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

ActiveWindow.SmallScroll Down:=3

ActiveSheet.Range("$A$3:$L$97").AutoFilter Field:=12, Criteria1:="="

ActiveWindow.SmallScroll Down:=-12

End Sub

...zur Frage

Excel,mehrere Spalten in eine Zeile?

Hallo,

ich habe in den Spalten B:NB jeweils 127 Datensätze. Diese Datensätze sollen alle untereinander in A stehen.

Außer copy von B einfügen in A und dann mit C weitermachen fällt mir nur die Möglichkeit via Makro ein (hier reichen mir die Kenntnisse aber nicht aus)

Hat vielleicht noch jemand eine Idee?

Beispiel siehe Bild:

Spalte 1-3 soll in A untereinander angezeigt werden

...zur Frage

Makro in Excel programmieren - Zeilen x-mal kopieren

Hallo,

ich brauche dringend Hilfe bei der Programmierung eines Makros in Excel. Ziel soll es sein Zeilen (Spalte B) aus Tabellenblatt1 x-mal (Zahl, die in Spalte A steht) in Tabellenblatt2 zu kopieren. Hier ein Beispiel, wie ich das meine:

Tabellenblatt 1:
Spalte A..... Spalte B
3................. Katze
2................. Vogel
4................. Hund

Ziel in Tabellenblatt 2:
Spalte A
Katze
Katze
Katze
Vogel
Vogel
Hund
Hund
Hund
Hund

Ich hab schon vieles probiert und es u.a. geschaft ganze Spalten mit Hilfe eines Makros von Tabellenblatt1 in Tabellenblatt2 zu kopieren, also z.B. Spalte A aus Tabellenblatt1 in Spalte A des Tabellenblattes2. Oder auch eine Zelle (A1) entsprechend der angegebenen Zahl (in Spalte A) darunter x-mal einzufügen. Aber ich schaffe es nicht, dass die Zelle in Spalte B in Abhängigkeit vom Wert, der in Spalte A steht, x-mal in einem neuen Tabellenbaltt einzufügen.

Ich brauche das Makro für die Arbeit, um die Erstellung von Rechnungen zu vereinfachen.

Ich freue mich über jede Hilfe und hoffe, dass mir jemand mit der Programmierung helfen kann. Excel-VBA für Dummies war mir bisher leider keine groe Hilfe :(

...zur Frage

VBA vergangene Tage seit bestimmtem Datum berechnen?

Hallo,

Ich habe in Excel in der Spalte E immer ein Datum im Format "tt.mm.jjjj". Anzahl der Zeilen ist variabel. Ich möchte ein Makro programmieren, welches mir die vergangenen Tage vom Datum bis heute ausrechnet und das Datum in der jeweiligen Zelle mit den berechneten Tagen überschreibt. Wenn größer 10, soll zudem rot markiert werden.

Kann mir jemand helfen? Hab das mit DateDiff probiert. Hat aber nicht hingehauen.

Danke !

...zur Frage

VBA Excel - Spalten kopieren und Einfügen?

Ich möchte mittels VBA-Button gerne eine Anzahl von Spalten kopieren um meine Kalkulation somit zu erweitern.

Spalte E:H bilden die "Master-Spalten-Set". Diese Spalten sollen immer vor der Spalte in der die Zelle "Total Qty" vorkommt kopiert werden.

Mein aktueller Code lautet:

Sub Makro1()
    Columns("E:H").Select
    Selection.Copy
    Columns("Q:Q").Select
    Selection.Insert Shift:=xlToRight
End Sub

Wie muss ich diese Code erweitern um variable vor der Spalte mit der Zelle "Total Qty" das "Master-Spalten-Set" einzufügen?

Danke

...zur Frage

Excel VBA Makros: Spalte mit bestimmter Überschrift in anderes Tabellenblatt kopieren?

Hallo zusammen,

ich stehe im Moment auf dem Schlauch.... Leider bin ich kein Profi in VBA.

Mein Problem ist folgendes: Ich möchte bestimmte Spalten aus einem Tabellenblatt in ein anderes kopieren. Da die Reiehnfolge der Spalten nicht immer gleich ist, ermittle ich die zu kopierenden Spalten anhand der Überschrift in der ersten Zeile. Soweit so gut...

Nun scheitere ich leider an der Umsetzung. Bis zum kopieren funktioniert es. Doch klappt das einfügen in das neue Tabellenblatt nicht...

Es tritt folgender Fehler auf:

"Laufzeitfehler 1004

Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden"

Ich hoffe ihr könnt mir weiterhelfen

Viele Grüße

...zur Frage

Makro Excel: Variable Spalte mit bestimmten Namen markieren?

Hallo,

ich möchte in Excel einen Makro aufnehmen: Es muss eine gesamte Spalte farbig markiert werden, welche den Namen "Müller" trägt.

Die Spalte ist immer variabel, welchen Code kann ich nutzen?

Bin absoluter anfänger und es muss makro sein. Danke

...zur Frage

Excel VBA Zellen färben, wenn best. Wert in anderer Zelle

Servus,

ich habe durch die Arbeit vermehrt mit Excel VBA und Makro zu tun, meine Aufgabe besteht darin, dass ich ein Makro erstellen soll, das Daten aus mehreren Dokumenten zu einem monatlichen Bericht zusammenstellt.

Ich bin schon recht weit, jetzt fehlts am Feinschliff, ich habe in Spalte A Werte von FF58200 bis FF59625. Ist der Wert in einer Zelle zwischen FF58200 und FF58425 ist, so sollen in den Spalten E und F diese Zellen Gelb gefärbt werden, sofern sie zwischen FF58430 und FF 58650 sind Grün.

Das Problem dabei ist, dass ich absolut keine Wenn-Funktion hinbekomme.

Könnt ihr mir helfen?

Danke vielmals :D

...zur Frage

Excel: Mehrfach Daten automatisch aus Spalte kopieren und neue Zelle erstellen?

Liebe Community,

ich bräuchte erneut eure Hilfe. :)

Aktuell lade ich täglich eine Excel Tabelle in meine Excel Vorlage hoch. Dort wird diese verarbeitet, wie z.B. sortiert usw.

Leider gibt es in der Spalte D oft mehrere Werte. Kann man diese mit VBA und Makro herausfiltern und eine neue Zeile damit befüllen? Wie ich das genau meine, siehe Screenshot.

Ich habe mir gedacht, dass man Excel hier mitteilt, dass in der Spalte D, wenn nur ein Wert mit einer Zeichenlänge von 6 Buchstaben hat, dass er dann nichts macht.

Beispiel nur Lag14 oder Lag7

Ist die Zeichenlänge länger als 6, dann soll er prüfen ob diese 15 Zeichen beträgt. Wenn ja, dann soll er den Wert zwischen 6 und 15 abschneiden und kopieren und im Anschluss in eine neue Zeile kopieren. Die anderen Spalten bleiben identisch. Eine Art Kopie sozusagen.

Beispiel für Lag/22 - Lag/51

Und dann noch das Gleiche für das Beispiel Lag/22 - Lag/51 - Lag/71

...zur Frage

Wie kann ich Zelleninhalte via Makro mit Zellenabstand kopieren?

Ich möchte diese Frage mit einem Beispiel stellen und anmerken, dass ich vorher noch nie Makros oder VBA benutzt habe.

Ich habe eine Spalte mit Zelleninhalten (z.B."a" bis "k") und möchte über ein Makro das Ergebnis in Spalte 2 erhalten (vorzugsweise auf einem anderen Tabellenblatt). Der Abstand zwischen den gefüllten Zellen soll dann immer gleich sein.

Edit:
Die Spaltenbreite ist nicht mein Problem.

Ich möchte die Inhalte aus Zelle "Tabelle1!A3" in "Tabelle2!C1" kopieren

Der Inhalt von Zelle "Tabelle1!A4" in "Tabelle2!C85"

Der Inhalt von Zelle "Tabelle1!A5" in "Tabelle2!C169"

Der Abstand beträgt immer 84 Zellen in Tabelle 2. Das ganze sollte dann 367 mal passieren, theoretisch bis Zelle "Tabelle2!C30829"

Weiß nicht ob es verständlich ist :/

...zur Frage

Excel - Daten aus Spalten mit Regel zusammenfassen?

Hallo,
ich habe noch eine andere Frage zu Excel:

Wenn ich die Daten mehrere Spalten zusammenfügen möchte, könnte ich die Daten alle manuell in eine Spalte kopieren und Duplikate entfernen. Kann ich aber auch eine Regel einfügen, dass die Daten automatisch eingefügt werden und ich nicht erst die Daten alle manuell kopieren muss. Im Screenshot ein Beispiel. Ich möchte in Spalte D alle Daten aus Spalte A - C haben. Kann ich in Spalte D eine Regel einfügen, so dass ich Spalte A - C nur noch markieren muss und ich die daten nicht manuell rüber kopieren muss?

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen