Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Excel VBA: MsgBox-Inhalt in Textfile schreiben
#1
Hallo zusammen,

ich such mal wieder eine Lösung um z.B den Inhalt einer MsgBox in ein Text-File zu schreiben.
Das beigefügte Makro findet alle doppelten Eintäge in der Spalte 1 der Tabelle.
Diese Fundstellen möchte ich auflisten....was mir mit einer MsgBox auch gelingt, auch die Textdatei wird geschrieben.
Die Fundstellen im Textfile sollen aber immer durch einen Zeilenumbruch getrennt sein.

Kann mir jemand helfen bzw. den Code so korrigieren damit das so funktioniert? Wäre super!

Code:
Sub doppelte_Eintraege_finden()
 Dim int_Spalte As Integer, int_erste_Zeile As Integer, int_letzte_Zeile As Long, int_x As Integer
 Dim str_Auswahl As Variant
 
 Dim Datei As String
 Datei = "C:\Users\User\Documents\Test.txt"
 Close #1
 Open Datei For Output As #1
 
 int_erste_Zeile = 7
 int_Spalte = 1
 int_letzte_Zeile = Cells(Cells.Rows.Count, int_Spalte).End(xlUp).Row
 
 For int_x = int_letzte_Zeile To int_erste_Zeile Step -1
   If Range(Cells(int_x, int_Spalte + 1), Cells(int_x, int_Spalte + 1)).Text <> "X" Then
     If WorksheetFunction.CountIf(Range(Cells(int_erste_Zeile, int_Spalte), Cells(int_letzte_Zeile, int_Spalte)), Cells(int_x, int_Spalte)) > 1 Then
       str_Auswahl = str_Auswahl & "Zelle: " & Cells(int_x, int_Spalte).Address & "mit Inhalt: " & Cells(int_x, int_Spalte).Value & Chr(13)
       'Cells(int_x, int_Spalte).Value = ""
       Cells(int_x, int_Spalte).Interior.ColorIndex = 6
     End If
   End If
 Next int_x
 
 MsgBox "folgende Zellen sind doppelt und wurden gelöscht" & Chr(13) & str_Auswahl
 
 Print #1, "folgende Zellen sind doppelt und wurden gelöscht" & Chr(13) & str_Auswahl
 Close #1
End Sub
Mit freundlichen Grüßen / Best regards
                          //
----------o00o---°(_)°---o00o----------------------

Erich
Antworten Top
#2
Habe es selbst gelöst.....

Code:
Sub doppelte_Eintraege_finden()
 Dim int_Spalte As Integer, int_erste_Zeile As Integer, int_letzte_Zeile As Long, int_x As Integer
 Dim str_Auswahl As Variant
 
 Dim Datei As String
 Datei = "C:\Users\User\Documents\Test.txt"
 Close #1
 
 Open Datei For Output As #1
Print #1, "Folgende Zellen sind doppelt und wurden eingefärbt";
 
 int_erste_Zeile = 7
 int_Spalte = 1
 int_letzte_Zeile = Cells(Cells.Rows.Count, int_Spalte).End(xlUp).Row
 
 For int_x = int_letzte_Zeile To int_erste_Zeile Step -1
   If Range(Cells(int_x, int_Spalte + 1), Cells(int_x, int_Spalte + 1)).Text <> "X" Then
     If WorksheetFunction.CountIf(Range(Cells(int_erste_Zeile, int_Spalte), Cells(int_letzte_Zeile, int_Spalte)), Cells(int_x, int_Spalte)) > 1 Then
       str_Auswahl = str_Auswahl & "Zelle: " & Cells(int_x, int_Spalte).Address & "mit Inhalt: " & Cells(int_x, int_Spalte).Value & Chr(13)
        Cells(int_x, int_Spalte).Interior.ColorIndex = 6
         Print #1, str_Auswahl
           str_Auswahl = ""
     End If
   End If
 Next int_x
 Close #1
End Sub
Mit freundlichen Grüßen / Best regards
                          //
----------o00o---°(_)°---o00o----------------------

Erich
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste