20.07.2017, 15:23
Hallo Zusammen,
ich habe eine Tabelle erstellt und dort meine ersten zwei Makros platziert :19:
Das wars leider auch schon, denn komplexere schaffe ich grad in der Schnelle nicht :22:
Also kurz zur übersicht:
Ich habe einen Button der immer unten in der Tabelle eine Zeile einfügt (inkl Formatierungen etc).
Ich hätte aber gerne, dass sich am Anfang jeder Zeile direkt ein Button mit einfügt, mit dem man die gerade einfegügte Zeile wieder löscht.
Zusätzlich sollten zwei Zellen der eingefügten Zeile in eine Berechnung berücksichtigt werden.
Ich hoffe ihr könnt mir folgen????? wenn nicht bitte schreibt mich an Ich habe euch auch die Excel angehangen denn ich verzweifel hier gerade [Bild: shocked.gif] [Bild: undecided.gif]
Liebe Grüße
Eva
Hier das Makro zum einfügen der Zeile:
Sub Teilaufgabehinzufügen()
'
' Teilaufgabehinzufügen Makro
' Eine Teilaufgabe wird am Ende der Tabelle eingefügt
'
' Tastenkombination: Strg+t
'
Sheets("Makro").Select
Rows("14:14").Select
Selection.Copy
Sheets("Tabelle3").Select
LRow = Cells(Rows.Count, 5).End(xlUp).Row
Rows(LRow + 1).Insert Shift:=xlDown, _
CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
TEST.xlsb (Größe: 41,13 KB / Downloads: 3)
ich habe eine Tabelle erstellt und dort meine ersten zwei Makros platziert :19:
Das wars leider auch schon, denn komplexere schaffe ich grad in der Schnelle nicht :22:
Also kurz zur übersicht:
Ich habe einen Button der immer unten in der Tabelle eine Zeile einfügt (inkl Formatierungen etc).
Ich hätte aber gerne, dass sich am Anfang jeder Zeile direkt ein Button mit einfügt, mit dem man die gerade einfegügte Zeile wieder löscht.
Zusätzlich sollten zwei Zellen der eingefügten Zeile in eine Berechnung berücksichtigt werden.
Ich hoffe ihr könnt mir folgen????? wenn nicht bitte schreibt mich an Ich habe euch auch die Excel angehangen denn ich verzweifel hier gerade [Bild: shocked.gif] [Bild: undecided.gif]
Liebe Grüße
Eva
Hier das Makro zum einfügen der Zeile:
Sub Teilaufgabehinzufügen()
'
' Teilaufgabehinzufügen Makro
' Eine Teilaufgabe wird am Ende der Tabelle eingefügt
'
' Tastenkombination: Strg+t
'
Sheets("Makro").Select
Rows("14:14").Select
Selection.Copy
Sheets("Tabelle3").Select
LRow = Cells(Rows.Count, 5).End(xlUp).Row
Rows(LRow + 1).Insert Shift:=xlDown, _
CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
TEST.xlsb (Größe: 41,13 KB / Downloads: 3)