kopieren von bestimmten Spalten
07.09.2003 16:57:04
Andreas
hier mein Macro
Sub kopieren1()
Sheets("Tabelle1").Activate
Dim Nummer As Variant
Dim rngAct As Range
Dim strFindFirst As String
Dim strDestAddr As String
Dim intLoopCount As Integer
Dim varFind As Variant
Sheets("Tabelle2").Select
Rows("2:10000").Select
Selection.Clear
Range("A1").Select
Sheets("Tabelle1").Activate
Nummer = InputBox("Nummer bitte eingeben!")
With ActiveSheet.Columns(1)
Set varFind = .Find(What:=Nummer, After:=Range("A1"), LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
If Not varFind Is Nothing Then
strFindFirst = varFind.Address
Do
intLoopCount = intLoopCount + 1
strDestAddr = Worksheets("Tabelle2").Range("A65536").End(xlUp).Offset(1, 0).Address
Range("A" & varFind.Row & ":BG" & varFind.Row).Copy Destination:=Worksheets("Tabelle2").Range(strDestAddr)
Set varFind = .FindNext(varFind)
Loop While Not varFind Is Nothing And varFind.Address <> strFindFirst
End If
End With
Worksheets("Tabelle2").Columns("A:BG").AutoFit
Cells(1, 1).Select
End Sub
ich habe mal meine Excel Arbeitsmappe zur besseren Veranschaulichung mit hochgeladen.
Problem 1 bei meinem Makro ist,wenn in der Spalte A in Tabelle1 Datumswerte stehen, funktioniert mein Makro nicht mehr.
Wie müßte mein Code dahin abgeändert werden das in Spalte A auch nach Datumswerten sortiert weren kann?
Und Problem 2 das nicht die ganze Zeile in Tabelle2 kopiert wird sondern nur die Spalten B, D, G und H
für ein eine Lösung und Antwort wäre ich Euch sehr Dankbar
https://www.herber.de/bbs/user/911.xls
Gruß Andreas
Anzeige