ich versuche gereade ein Problem zu lösen und komme nur sehr schleppend voran.
Ich habe ein Makro mit dem man die Spalte einer Tabelle in eine andere kopieren kann:
Sub ArtNr_kopieren2()
Windows("Jul09.xls").Activate
Range("B10:B56").Select
Selection.Copy
Windows("Berlin.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E10").Select
End Sub
Nun möchte ich eine Inputbox einrichten, mittels derer ich durch die Eingabe von bspw. "Aug09.xls" oder ähnlichem das Makro veranlasse, aus der Datei Aug09.xls die relevante Spalte zu kopieren und nicht aus Jul09.xls..
Inputbox:
Sub inputbox()
Dim i As Integer
Dim Eingabe As String
Eingabe = Application.inputbox("Die Produktivität welchen Monats wollen Sie bestimmen?")
For i = 1 To ActiveSheet.UsedRange.Columns(2).Cells.Count
If Cells(i, 2).Value = Eingabe Then
Rows(i).Copy
ActiveSheet.Paste Destination:=Worksheets(2). _
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Application.CutCopyMode = False
End If
Next i
End Sub
Ist es möglich diese in das Makro einzubauen? Ich hoffe jemand kann mir helfen.
Vielen Dank im Voraus für die Mühe!
Gruß
Christopher