06.07.2017, 09:21
(Dieser Beitrag wurde zuletzt bearbeitet: 06.07.2017, 09:22 von technoente.)
Hallo , es geht um folgenden Code:
Ich möchte den Wert aus der URsprungstabelle ( Range("F2").Select
Selection.Copy
Range("A1").Select
ActiveSheet.Paste)
nachdem alles formatiert ist, in Zeile A1 einfügen.
Sozusagen dass sich Excel , den wert in F2 "merkt " ( kann man einfach eine Variable nehmen, diese als wert von F2 bestimmen und spatter dann einfach A1 = Variable?)
Gruß!
Code:
Option Explicit
Sub aSpaltenSortieren()
""""""""""" Range("F2").Select
Selection.Copy
Range("A1").Select
ActiveSheet.Paste""""""""""""""
ActiveSheet.Range("A1,C1,E1,F1,H1,I1,J1,K1,L1").EntireColumn.Delete 'löschen von Spalten
ActiveSheet.Rows("1:2").Insert ' Spalte einfügen ( 1 und 2 )
ActiveSheet.Range("A7:D7").AutoFilter ' Spalten A bis D filtern
ActiveSheet.Range("A7:D7").Interior.ColorIndex = 42 'hellblau Zellen markieren alle in A7 bis D7
Columns("A:D").EntireColumn.AutoFit ' automatische Spaltenbreite festlegen
Range("D7").Select
ActiveCell.FormulaR1C1 = "APZ" ' das Wort APZ in Celle D7 einfügen
Dim BTxt As String
BTxt = InputBox("Bitte das betroffene Werk eingeben:", "-")
If BTxt = "" Then Exit Sub
Range("A2").Value = BTxt
' Öffnet ein Eingabefeld, die Eingabe wird dann in Zeile A2 "geschrieben"
Range("A1:H7").Select
Selection.Font.Bold = True
Range("A1:H7").Select
Range("A2").Activate
' Von Zeile A1 bis H7, wird der ganze Bereich, falls Worte vorhanden sind , fett geschrieben
Columns("C:C").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False ' Spalte C ( komplett ) wird zentriert
End With
Columns("D:D").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With ActiveWindow
.SplitRow = Range("8:8").Row - 1
.SplitColumn = Range("8:8").Column - 1
.FreezePanes = True
End With 'friert den Bereich bis 7 ein
Range("A7:D257").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End Sub
Selection.Copy
Range("A1").Select
ActiveSheet.Paste)
nachdem alles formatiert ist, in Zeile A1 einfügen.
Sozusagen dass sich Excel , den wert in F2 "merkt " ( kann man einfach eine Variable nehmen, diese als wert von F2 bestimmen und spatter dann einfach A1 = Variable?)
Gruß!