Index-Vergleich-als Makro
20.02.2009 11:25:00
Klaus
ich habe ein ExcelSheet in dem die Tabellen mit "Gemüsesorten" beschriftet sind und die Zeilen mit "Gewichtseinheiten". Da auf jedem Tabellenblatt die entsprechende Zeile und Spalte nicht an der gleichen Stelle steht, brauche ich ein Makro, das mir in einer von mir vorgegebenen Zelle den Wert einträgt, den bspw. Spalte Tomate bei der Gewichtseinheit 5Kg anzeigt.
(die Funktion Index und Vergleich geht nicht, da ich keinen festen Bereich habe, sondern diesen erst per Makro ...usedrange..offset ermitteln muss)
ich habe schonmal angefangen und das makro zeigt mir auch die Zellenaddresse in der der Wert steht.
Ich kann diesen Wert aber nicht ein eine andere Zelle kopieren. Wie bekomme ich den Wert den diese Zelle hat ausgelesen?
Sub Zellenwertfinden()
Dim Zeile As Long
Dim ZeileMax As Long
Dim zellenbereichGewicht As Range
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
For Zeile = 1 To ZeileMax
If .Cells(Zeile, 1).Value = "5KG" Then
Set zellenbereichGewicht = .Rows(Zeile)
Debug.Print zellenbereichGewicht.Address
Else
.Rows(Zeile).Hidden = False
End If
Next Zeile
'Spalte ausfindig machen!!!!!!!!!!!!
Dim spalte As Integer
Dim SpalteMax As Integer
Dim SpaltenbereichGemuese As Range
SpalteMax = .UsedRange.Columns.Count
For spalte = SpalteMax To 1 Step -1
If .Cells(1, spalte).Value = "Tomate" Then
Set SpaltenbereichGemuese = .Columns(spalte)
Debug.Print SpaltenbereichGemuese.Address
Else
.Columns(spalte).Hidden = False
End If
Next spalte
End With
End Sub