#1 3. März 2014 Zuletzt von einem Moderator bearbeitet: 14. April 2017 hallo Allerseits, ich suche entweder eine Funktion oder ein Marko in Excel, welches mir automatisch T-konten einfügt. So sollte das gerne aussehen: Kennt da jemand eine möglichkeit? Danke für Eure Hilfe + Multi-Zitat Zitieren
#2 3. März 2014 AW: T-konto automatisch in Excel einfügen Hast du mal mit der Makro Aufnahme Funktion probiert? + Multi-Zitat Zitieren
#3 3. März 2014 AW: T-konto automatisch in Excel einfügen Danke schön, dass + Relative Aufzeichnung hat es gemacht. Hier der Code, falls jemand es braucht, wobei Makro aufnehmen leichter ist Code: Sub Makro5() ' ' Makro5 Makro ' ' ActiveCell.Range("A1:B1").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone ActiveCell.Offset(1, 0).Range("A1").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With Selection.Borders(xlEdgeBottom).LineStyle = xlNone With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone ActiveCell.Offset(1, 0).Range("A1").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone ActiveCell.Offset(1, 0).Range("A1").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone End Sub + Multi-Zitat Zitieren
#4 4. März 2014 AW: T-konto automatisch in Excel einfügen Wenn du häufiger mit T-Konten arbeitest, würde sich vielleicht das Erstellen einer Excel-Vorlage anbieten. Die ließe sich ggf. sogar soweit anpassen, dass nur noch die Nummer des (Gegen-)Kontos eingegeben werden muss, um dann per SVERWEIS die Kontenbezeichnung eintragen zu lassen. Benötigt natürlich z.B ein Tabellenblatt, auf dem die Konten des SKR hinterlegt sind. + Multi-Zitat Zitieren