AW: Aktive Zeile in andere Mappe kopieren
22.08.2005 11:09:55
andi
Hi,
leider noch nicht... Er macht nichts... Außer, dass die Mappe geschlossen wird.
Hier mal der komplaette Code:
Sub blatt_aendern()
Dim Ws As Worksheet, wb As Workbook, strBook As Variant
Dim bolExist As Boolean, n As Integer, strWb As String
Dim strSheet As String
Dim tarRow As Integer
'On Error Resume Next
If i = "A." Or i = "" Then Exit Sub
strSheet = i
strBook = Array(ThisWorkbook.Path & "\Prüfblätter2.xls", ThisWorkbook.Path & "\Prüfblätter3.xls", ThisWorkbook.Path & "\Prüfblätter1.xls")
For n = 0 To UBound(strBook)
On Local Error Resume Next
Workbooks.Open strBook(n)
For Each Ws In ActiveWorkbook.Worksheets
If Ws.Name = strSheet Then
bolExist = True
strWb = ActiveWorkbook.Name
GoTo Ende
End If
Next Ws
Next n
Ende:
If bolExist Then
Sheets(strSheet).Select
m = InputBox("Bitte geben Sie die ZeilenNr ein, in der die Änderung erfolgen soll")
jj = MsgBox("Ist das die richtige Zeile?", vbYesNo)
If jj = vbYes Then
tarRow = Workbooks("AenderungArchiv.xls").Sheets("Aenderungen").Cells(65536, 1).End(xlUp).Row + 1
Range("A" & m).Select
ActiveSheet.ActiveCell.EntireRow.Copy after:=Workbooks("AenderungArchiv.xls").Sheets("Aenderungen").End(xlUp).Cells(tarRow, 1)
Workbooks("AenderungArchiv.xls").Close savechanges:=True
frmDatensAendern.Show
Else
m = InputBox("Bitte geben Sie die ZeilenNr ein, in der die Änderung erfolgen soll")
End If
Else
MsgBox "Blatt nicht gefunden!"
End If
End Sub
Bitte schaue es dir nochmals an.
Danke und Gruß
Andi