Daten zwischen Sheets kopieren
16.02.2007 19:07:00
Manfred
ich möchte gerne ein makro schreiben dass folgendes kann:
Eingabe einer Zahl per Input Box (funktioniert, oh wunder).
Dann sollen alle Zeilen die den Wert der in der InputBox übergeben wurde kopiert werden, und zwar in einen Zwischenspeicher in form eins weiteren bereits vorhandenen Sheets. Das ursprungssheet heisst "Datenbasis". Der Wert nach dem gesucht wird befindet sich in Spalte 5 (F) in der "Datenbasis".
Mein nicht funktionierendes Makro sieht so aus:
Sub fkt_bericht_erstellen()
Dim i, fkt_nr As Integer
'ActiveWorkbook.Sheets("Datenbasis").Active
fkt_nr = InputBox("Funktionsnummer?", "Bericht zu Funktionsnummer", 41)
If fkt_nr = 0 Then
MsgBox ("0 ist keine gültige Funktionsnummer")
Exit Sub
End If
For i = 6 To ActiveSheet.UsedRange.Rows.Count
If (Cells(i, 5).Value <> "41") Then
Range("A9:F9").Select 'vielleicht auch Range("Ai:Fi")?
Selection.Copy
Sheets("Test").Active
Range("A1").Select
ActiveSheet.Paste
Sheets("Datenbasis").Active
End If
Next i
MsgBox (i) 'nur zur kontrolle
End Sub
Warum zum Henker funktioniert das so nicht, bzw wer kann mir sagen wie es richtig gehen würde?
Viele Grüße
Manfred Schreistetter
Anzeige