MultiSeek und aktive Zelle kopieren
15.10.2007 17:20:55
Friedrich,
ich suche mit Hilfe Herbers Suchfunktion 015598h.htm in Tabellen eine Zahl.
Diese gefundene Zahl soll in Spalte AS gleiche Zeile kopiert werden.
015598h.htm
.
.
MsgBox promt:="Keine..............!"
Call Makro200
End Sub
Sub Makro200()
' Makro am 12.10.2007 von Bernd aufgezeichnet
'
' Tastenkombination: Strg+x
' Option Explicit
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("ActiveCell")) Is Nothing Then
Call Makro400
End If
End Sub
Sub Makro400() das ist ähnlich 198803h.htm ohne Löschen und auf das gleiche Worksheet
'Sub Übertragen
Dim iRow As Integer
Dim iColumn As Integer
With Worksheets("ActiveCell")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveCell.EntireColumn("AS").Copy
.Columns.AutoFit
End With
End Sub
Wer kann mir da bitte einmal helfen?
Mit bestem Dank in voraus
friedrich