Marko erweitern
27.09.2017 13:41:42
thomas
kann mir bitte einer behilflich sein.
Immoment sieht mein Makro so aus:
Sub zht()
Dim WS2 As Worksheet
Dim letzteZeile As Long
Set WS2 = Worksheets("September")
Application.DisplayAlerts = False
Range("G1").Select
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("G1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
)), TrailingMinusNumbers:=True
Application.DisplayAlerts = True
Cells.Replace What:="ß", Replacement:="-", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
letzteZeile = WS2.Cells(Rows.Count, 3).End(xlUp).row + 1
WS2.Range(WS2.Cells(letzteZeile, 3), WS2.Cells(letzteZeile, 6)) = WS2.Range("AD1:AG1").Value _
_
WS2.Range(WS2.Cells(letzteZeile, 3), WS2.Cells(letzteZeile, 7)).PrintOut
WS2.Range("G1:AB1").ClearContents
End Sub
Die Erweiterung soll so aussehen das nach der Fett-Makierung der Makro noch zusätzlich aus Zelle AH1 ein Wert in die letzte Zeile in Spalte 12 einträgt.Zwischen Spalte 6 und 12 sind die Zellen formatiert und können nicht überschrieben werden. Somit kann ich leider die Range nicht erweitern.Komm da leider nicht weiter und benötige Hilfe.
Danke euch im Vorraus.
Gruß Thomas