Office: Makro Textdatei speichern und Dateiname aus Zelle vorgeben

Bishu · 2. März 2021

von Hasso

Hallo Bishu,Das geht so: Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sub KommaInPunkt()

Dim intLetzteZeile As Integer
Dim rngZelle As Range

intLetzteZeile = Worksheets("Ausgabe").Cells(Rows.Count, 3).End(xlUp).Row
For Each rngZelle In Worksheets("Ausgabe").Range("C2:C" & intLetzteZeile)
rngZelle = Replace(rngZelle, ",", ".")
Next rngZelle

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich hoffe, ich habe das richtig verstanden. Das würde dann so gehen: Code:

Private Sub CommandButton1_Click()

Dim intLetzteZeile As Integer
Dim intZaehler As Integer
Dim txtN22 As String

intLetzteZeile = Worksheets("Ausgabe").Cells(Rows.Count, 8).End(xlUp).Row

If Application.WorksheetFunction.CountA("H2:H" & intLetzteZeile) > 0 Then
For intZaehler = 2 To intLetzteZeile
txtN22 = txtN22 & Cells(intZaehler, 8) & vbCrLf
Next intZaehler
Range("N22") = txtN22
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das Ergebnis sähe dann so aus:

Hallo, erstmal vielen Dank hat bisher prima geklappt.
Habe jedoch noch ein problem, wenn ich das Makro"KommainPunkt" drüber laufen lasse löscht er mir die formel die ich in der Spalte C habe. Gibts dafür eine Lösung? Bin wiedereinmal nach zig versuchen verzweifelt.

Hasso · 11. Oktober 2013

Hallo Bishu,

Habe jedoch noch ein problem, wenn ich das Makro"KommainPunkt" drüber laufen lasse löscht er mir die formel die ich in der Spalte C habe. Gibts dafür eine Lösung? Bin wiedereinmal nach zig versuchen verzweifelt.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn du alle Kommas in einen Punkt umwandelst und in der Zelle steht eine Formel, dann stimmt doch anschließend die Formel nicht mehr!
Soll die Umwandlung in Zellen mit Formeln nicht vorgenommen werden, musst du den Code ändern: Code:

Sub KommaInPunkt()

Dim intLetzteZeile As Integer
Dim rngZelle As Range

intLetzteZeile = Worksheets("Ausgabe").Cells(Rows.Count, 3).End(xlUp).Row
For Each rngZelle In Worksheets("Ausgabe").Range("C2:C" & intLetzteZeile)
If Not HasFormula(rngZelle) Then rngZelle = Replace(rngZelle, ",", ".")
Next rngZelle

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Am besten lädst du die neueste Version deiner Mappe, in der das Problem auftritt, hoch.

Bishu · 2. März 2021

von Hasso

Hallo Bishu,Wenn du alle Kommas in einen Punkt umwandelst und in der Zelle steht eine Formel, dann stimmt doch anschließend die Formel nicht mehr!
Soll die Umwandlung in Zellen mit Formeln nicht vorgenommen werden, musst du den Code ändern: Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sub KommaInPunkt()

Dim intLetzteZeile As Integer
Dim rngZelle As Range

intLetzteZeile = Worksheets("Ausgabe").Cells(Rows.Count, 3).End(xlUp).Row
For Each rngZelle In Worksheets("Ausgabe").Range("C2:C" & intLetzteZeile)
If Not HasFormula(rngZelle) Then rngZelle = Replace(rngZelle, ",", ".")
Next rngZelle

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Am besten lädst du die neueste Version deiner Mappe, in der das Problem auftritt, hoch.

Guten Morgen Hasso,

entschuldige habe vergessen die Datei anzuhängen.
Die Formel überstreckt sich über die ganze Spalte und verkettet die Spalte A und B, wenn ich nun das Makro KommainPunkt laufen lasse funktioniert es aber wenn ich neue Daten in Spalte A und B einlese funktioniert das ganze nicht mehr.

Danke für deine Antwort, aber er soll das Makro für die ganze Spalte anwenden und anschließend sollen alle Formeln noch erhalten bleiben, für den Fall das sich die Spalte A oder B ändert das C aktualisiert wird.
Gibt es eigentlich auch die Möglichkeit vorher zu lesen wieviele Zeilen in der Spalte A oder B beschrieben sind und dann das Makro in Spalte C auf die Anzahl an Zeilen in Spalte A oder B (die beschrieben sind) anzuwenden?

Viele Grüße

Hasso · 13. Oktober 2013

Hallo Bishu,

Gibt es eigentlich auch die Möglichkeit vorher zu lesen wieviele Zeilen in der Spalte A oder B beschrieben sind und dann das Makro in Spalte C auf die Anzahl an Zeilen in Spalte A oder B (die beschrieben sind) anzuwenden?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mit Code:

intletzteZeile = Cells(Rows.Count, Spalte).End(xlUp).Row
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ermittelst du die letzte Zelle mit Inhalt in der betreffenden Spalte. Dabei nicht den Spaltenbuchstaben, sondern die Nummer angeben (A=1, B=2 usw.)
Das Problem mit dem Makro zur Kommaersetzung werde ich mir gleich einmal ansehen.

P.S.: Ich habe in der Datei leider kein Makro KommaInPunkt() gefunden. Wo steht denn das? Außerdem gibt es in Spalte C keine Zahlen mit Komma. Und was soll das letzte Argument in Code:

VERKETTEN(A2;";";RUNDEN(B2;1);"")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du erzeugst einen String und hängst am Ende noch Nichts ("") an?
Die Beispielmappe ist wohl nicht optimal, um das Problem zu zeigen...

Bishu · 13. Oktober 2013

Super das mit dem Zählen klappt schonmal.

Hier die Datei nochmal mit dem zugefügten Makro, habe die Datei erstellt als abgespeckte Version weil ich die Original-Datei nicht veröffentlichen sollte.

Viele Grüße

Edit: Ich habe jetzt die Zahlen mit Kommas versehen und die Formel in Spalte C eingespeichert, schauen Sie sich das an und wenn Sie dann auf den Button drücken KommainPunkt dann funktioniert das so aber die Formel wird dann dafür gelöscht.

Mein Ziel ist es wenn Zahlen in Spalte A oder B geändert werden, diese in Spalte C aktualisiert werden und dann das Komma in Punkt ersetzen.

Das mit dem "" verbesser ich gleich mal.

Hasso · 13. Oktober 2013

In der Datei stehen in Spalte C keine Formeln mehr, sondern Werte.

Jetzt ist die Datei plötzlich wieder weg.

Ich begreife langsam nicht mehr, was du eigentlich willst.

Bishu · 2. März 2021

von Hasso

In der Datei stehen in Spalte C keine Formeln mehr, sondern Werte.

Jetzt ist die Datei plötzlich wieder weg.

Ich begreife langsam nicht mehr, was du eigentlich willst.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Habe meinen vorherigen Beitrag editiert und eine erklärung geschrieben, jetzt müsste es verständlich sein!!

Hasso · 13. Oktober 2013

Hallo Bishu,

das ist ganz einfach. In den Code des Blatts "Ausgabe" Folgendes einfügen: Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Or Target.Column = 2 And Target.Rows.Count = 1 Then
Cells(Target.Row, 3) = Replace(Cells(Target.Row, 1), ",", ".") & ";" & Replace(Cells(Target.Row, 2), ",", ".")
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann brauchst du in C keine Formel mehr. Bei einer Eingabe oder Änderung in Spalte A oder B wird in C automatisch der gewünschte Wert eingetragen.

Bishu · 2. März 2021

von Hasso

Hallo Bishu,

das ist ganz einfach. In den Code des Blatts "Ausgabe" Folgendes einfügen: Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Or Target.Column = 2 And Target.Rows.Count = 1 Then
Cells(Target.Row, 3) = Replace(Cells(Target.Row, 1), ",", ".") & ";" & Replace(Cells(Target.Row, 2), ",", ".")
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann brauchst du in C keine Formel mehr. Bei einer Eingabe oder Änderung in Spalte A oder B wird in C automatisch der gewünschte Wert eingetragen.

Hallo Hasso,

die Spalte A oder B ändert sich nicht immer wenn Daten nur teilweise geändert werden funktioniert es nicht mehr.
Der Code von dir beeinhaltet nicht die Verkettung in Spalte 3 oder?
Kann man das dem Code noch zufügen? Denn dieser wird durch das ersetzen von Komma in Punkt in Spalte A und B wieder gelöscht.

Ich weiß nicht ob ich den Grund richtig erkannt habe, aber wenn du mir den Code so anpassen könntest das wir das auch gleich über ein Makro nachdem KommainPunkt geändert worden ist, Spalte A und B verketten und in C einfügen würde es die Fehler wahrscheinlichkeit auch um einiges verringern

Hasso · 16. Oktober 2013

Hallo Bishu,

Der Code von dir beeinhaltet nicht die Verkettung in Spalte 3 oder?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hast du meine Datei überhaupt schon mal ausprobiert? Wenn du in A oder B etwas änderst, wird der Text, den dur vorher mit der Funktion "Verketten" erzeugt hast, automatich in Spalte C geschrieben - ohne die Formel. Aber es geht doch wohl darum, dass am Ende der gewünschte Text dort erscheint.

die Spalte A oder B ändert sich nicht immer wenn Daten nur teilweise geändert werden funktioniert es nicht mehr.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn es immer passieren soll, wenn in einer Zelle (außer in Spalte B) etwas geändert wird, dann muss man den Code etwas anpassen: Code:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim intLetzteZeile As Integer

intLetzteZeile = Worksheets("Ausgabe").Cells(Rows.Count, 1).End(xlUp).Row

If Target.Column 3 And Target.Rows.Count = 1 Then
For Each rngZelle In Worksheets("Ausgabe").Range("A2:A" & intLetzteZeile)
Cells(rngZelle.Row, 3) = Replace(Cells(rngZelle.Row, 1), ",", ".") & ";" & Replace(Cells(rngZelle.Row, 2), ",", ".")
Next rngZelle
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Makro Textdatei speichern und Dateiname aus Zelle vorgeben

Makro Textdatei speichern und Dateiname aus Zelle vorgeben

Makro Textdatei speichern und Dateiname aus Zelle vorgeben

Makro Textdatei speichern und Dateiname aus Zelle vorgeben

Makro Textdatei speichern und Dateiname aus Zelle vorgeben

Makro Textdatei speichern und Dateiname aus Zelle vorgeben - Similar Threads - Makro Textdatei speichern

Name der Datei durch Excel geändert

Ein Makro für mehrere Register

Makro öffnet unerwartete Datei

Leerzeilen entfernen

Makro Schaltflaechen vervielfaeltigen sich....

Seit Win 11 Zugriffsprobleme bei Excel über Makros

suchen/ersetzen Textdatei Makro