Arbeiten mit den Column-Eigenschaft von Range-Obje
27.07.2006 11:21:36
Range-Obje
Ich habe eine Suchfunktion und wenn der Suchbegriff gefunden wird, soll die Zeile bzw. Spalte, in der dieser Begriff steht, gespeichert werden, um später in der Zeile bzw. Spalte Einträge vorzunehmen. Wenn ich es mit Row für die Zeile mache, funktioniert es auch und die Ausfallzeit wird in der Zeile z in der Spalte 52 eingetragen:
Dim suchbegriff As String, zelle
Dim z As String
suchbegriff = Cells(2, 52)
Set zelle = ActiveSheet.Cells.Find(suchbegriff)
If Not zelle Is Nothing Then
z = zelle.Row
End If
Cells(z, 22) = Ausfallzeit
Wenn ich nun aber Column für die Spalte eingebe, funktionert es nicht mehr? Was habe ich falsch gemacht?:
Dim suchbegriff2 As String, zelle2
Dim x As String
suchbegriff2 = Cells(2, 52)
Set zelle2 = ActiveSheet.Cells.Find(suchbegriff2)
If Not zelle2 Is Nothing Then
x = zelle2.Column
End If
Cells(52, x) = Ausfallzeit
Danke und Gruß,
Stefanseevetal