Wie kann ich per Makro die Spalten A-H als Textdatei speichern. Die Datei hat einen genauen Namen und Pfad und soll jedesmal überschrieben werden.
Wie geht das?
Grüße,
Daniel
Sub SpaltenSpeichern()
Const fn = "D:\SpalteA-H.txt" 'Dateiname
Dim sh1 As Worksheet
Dim sh2 As Worksheet
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
Set sh1 = ActiveSheet
Workbooks.Add
Set sh2 = ActiveWorkbook.Sheets(1)
sh1.Range("A:H").Copy sh2.Range("A:H")
With ActiveWorkbook
.SaveAs Filename:=fn, FileFormat:=xlTextWindows
.Close False
End With
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub
Sub SpaltenSpeichern()
Const fn = "D:\SpalteA-H.txt" 'Dateiname
Dim sh As Worksheet
Dim Bereich As Range
Dim Zeile As Range
Dim Zelle As Range
Dim s As String
Dim ff As Integer
Set sh = Sheets("Aufträge1")
Set Bereich = Intersect(sh.UsedRange, sh.Range("A:H"))
ff = FreeFile
Open fn For Output As ff
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
s = s & Zelle.Text & vbTab
Next
Print #ff, Left(s, Len(s) - 1) 'letzten [TAB] abschneiden
s = ""
Next
Close ff
End Sub
Problemstellung
Wie kann ich feststellen, ob sich die aktive Zelle in einem bestimmten Bereich befindet?
Problemstellung
Wie kann ich, wenn ich in Spalte A die Tage eines Jahres im Datumformat und in Spalte B zu jedem Tag einen Wert eingetragen habe, die Summe der Werte des in Zelle C2 hinterlegten Monats feststellen?
Problemstellung
Wie kann ich in einem Zug alle Links zu einer bestimmten Arbeitsmappe in einem Arbeitsblatt entfernen?
Problemstellung
Wie kann ich feststellen, wie oft ein bestimmter Wochentag in einem vorgegebenen Monat vorkommt?
Problemstellung
Wie kann ich in einem Tabellenblatt alle Dateien auflisten, deren letztes Änderunsdatum nach einem anzugebenden Datum liegt?
Problemstellung
Wie kann ich die Vereinseintritte eines bestimmten Jahres über eine Funktion zählen lassen? Die Eintrittsdaten stehen in den Zellen A2:A1200.
Problemstellung
Wie kann ich die in eine TextBox einzutragende Zeichenfolge auf 6 Zeichen begrenzen?
Problemstellung
Wie kann ich alle Zeilen eines Arbeitsblattes löschen, in denen in den Spalten B, D und J keine Werte stehen?