Zeile über Inputbox abfragen und dann kopieren
06.11.2013 15:26:30
Mießner
ich habe ein kleines Problem. Ich lasse über eine Inputbox eine beliebige Zeile abfragen und möchte dann Werte aus bestimmte Zellen aus dieser Zeile in bestimmte Zellen eines anderen Tabellenblattes kopieren.
Aktuell sieht mein Makro so aus:
Option Explicit
Sub Druck()
Dim rngRow As Range
Dim iRow As Integer
Dim wksSource As Worksheet
Dim wksTarget As Worksheet
Set wksSource = Worksheets("Tabelle1")
Set wksTarget = Worksheets("DRUCK")
Set rngRow = Application.InputBox("Zu druckende Zeile auswählen:", "Zeilenauswahl", 10, _
Type:=8)
iRow = rngRow.Row
With wksSource
.Cells(iRow, 12).Value = wksTarget.Cells(8, 3).Value
End With
End Sub
Leider kommte es immer zu einem Fehler. Konnte bisher auch keine Lösung im WWW finden. Später soll da Formular mit den Werten im anderen Tabellenblatt noch gedruckt werden. Aber soweit bin ich noch nicht.
Vielleicht kann mir ja hier jemand weiterhelfen.
Gruß Michel