T-konto automatisch in Excel einfügen

Dieses Thema im Forum "Schule, Studium, Ausbildung" wurde erstellt von luks, 3. März 2014 .

  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:
    Bild

    Kennt da jemand eine möglichkeit?

    Danke für Eure Hilfe
     
  2. 3. März 2014
    AW: T-konto automatisch in Excel einfügen

    Hast du mal mit der Makro Aufnahme Funktion probiert?
     
  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
    
     
  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.
     
  5. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.