Macro ändert zweites Macro

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Daniel,
man kann, frau auch!
Das Makro würde dann so aussehen:

Option Explicit
Public Sub Makro_suchen_Zeile_tauschen()
    Dim myVBC As Object, intCounter As Integer, intRow As Integer
    Workbooks.Open "D:\Eigene Dateien\file2.xls"
    For Each myVBC In Workbooks("file2.xls").VBProject.VBComponents
        With myVBC.CodeModule
            For intCounter = 1 To .CountOfLines
                If .ProcOfLine(intCounter, 0) > "" Then
                    If .ProcOfLine(intCounter, 0) = "kopieren" Then
                        For intRow = intCounter To .CountOfLines
                            If Trim$(.Lines(intRow, 1)) = "Cells(6, 3) = Cells(5, 1).Value" Then
                                .DeleteLines intRow, 1
                                .InsertLines intRow, "    Cells(6, 4) = Cells(5, 1).Value"
                                Exit Sub
                            End If
                        Next
                    End If
                End If
            Next
        End With
    Next
    Workbooks("file2.xls").Close Savechanges:=True
End Sub
'Kopiermakro in Mappe "file2.xls"
Public Sub kopieren()
    Cells(6, 3) = Cells(5, 1).Value
End Sub

Gruß
Nepumuk

so sollte es richtig lauten:

Public Sub Makro_suchen_Zeile_tauschen()
    Dim myVBC As Object, intCounter As Integer, intRow As Integer
    Workbooks.Open "D:\Eigene Dateien\file2.xls"
    For Each myVBC In Workbooks("file2.xls").VBProject.VBComponents
        With myVBC.CodeModule
            For intCounter = 1 To .CountOfLines
                If .ProcOfLine(intCounter, 0) <> "" Then
                    If .ProcOfLine(intCounter, 0) = "kopieren" Then
                        For intRow = intCounter To .CountOfLines
                            If Trim$(.Lines(intRow, 1)) = "Cells(6, 3) = Cells(5, 1).Value" Then
                                .DeleteLines intRow, 1
                                .InsertLines intRow, "    Cells(6, 4) = Cells(5, 1).Value"
                                Workbooks("file2.xls").Close Savechanges:=True
                                Exit Sub
                            End If
                        Next
                    End If
                End If
            Next
        End With
    Next
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread