Re: Fehler-Meldung
06.03.2003 16:51:27
TF
Hallo Hajo,Anbei der Code:
' 1. Dort werden die Daten von Tabelle1 in TAbelle2 übertragen --> von Hans Herber --> MAkro ist Schaltfläche zugewiesen
Sub Transferieren()
Sheets("Tabelle2").Select
Range("c5:i500").Select
Selection.ClearContents
Dim wksSource As Worksheet, wksTarget As Worksheet
Dim varRow As Variant, varCol As Variant
Set wksSource = Worksheets("Tabelle1")
Set wksTarget = Worksheets("Tabelle2")
Dim intRow As Integer
intRow = 3
Do Until IsEmpty(wksSource.Cells(intRow, 3))
varRow = Application.Match(wksSource.Cells(intRow, 2), wksTarget.Columns(2), 0)
If Not IsError(varRow) Then
varCol = Application.Match(wksSource.Cells(intRow, 3), wksTarget.Rows(2), 0) 'wksTarget.Rows(2)=Zeile 2, Tabelle2
If Not IsError(varCol) Then
wksTarget.Cells(varRow, varCol) = wksSource.Cells(intRow, 4) & " " & vbLf & wksSource.Cells(intRow, 5) & " " & vbLf & wksSource.Cells(intRow, 6) & " " & vbLf & wksSource.Cells(intRow, 7)
End If
End If
intRow = intRow + 1
Loop
Range("c2").Select
End Sub
' 2. Hier werden die Daten in Tabelle1 sortiert --> MAkro ist Schaltfläche zugewiesen
Sub Sortieren()
Range("A2:G1465").Select
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("C3") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Range("A3").Select
End Sub