Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Spalten nach Wert durchsuchen

Betrifft: Spalten nach Wert durchsuchen von: Tobias Hoher
Geschrieben am: 27.06.2008 13:31:10

Hallo Excel Spezialisten,
ich habe folgendes Problem was mich wirklich noch zur Verzweiflung bring.
Ich möchte nach einem bestimmen Wert in einem variablen Spalten Bereich suchen.
Folgendes habe ich hierzu schon geschrieben, was aber leider nicht funktioniert:


Sub Makro1()

anzspalten = Sheets("TTR_MT").UsedRange.Columns.Count

For weiter = 1 To anzspalten

If Range("A7").Value = Worksheets("TTR_MT").Range(Cells(1, 2), Cells(1, weiter)).Value Then 
('In A7 Steht der zu findende Wert)
MsgBox ("Gefunden")
End If
Next

End Sub



Warum bekomme ich hier immer die Fehlermeldung Typen Unverträglich.
Ich wäre Euch sehr dankbar, wenn Ihr mir weiterhelfen könntet.
Gruß

  

Betrifft: AW: Spalten nach Wert durchsuchen von: Mag
Geschrieben am: 27.06.2008 14:45:58

Hallo,

weil ein Bereich (Range(Cells(1, 2), Cells(1, weiter)) keinen Einzelwert beinhalten kann.

Gruss


  

Betrifft: AW: Spalten nach Wert durchsuchen von: Mag
Geschrieben am: 27.06.2008 14:51:54

Hallo,

Ansatz:


Option Explicit

Sub ttt()
  Dim Bereich As Range, rng As Range
  Set Bereich = Sheets("Tabelle1").Range("A1:B3")
  For Each rng In Bereich
    If rng = "huhu" Then
      MsgBox rng.Address
      Exit For
    End If
  Next
  Set Bereich = Nothing
End Sub


Gruss


  

Betrifft: AW: Spalten nach Wert durchsuchen von: Mag
Geschrieben am: 27.06.2008 14:55:59

... in Deinem Fall:

Set Bereich = Sheets("TTR_MT").UsedRange




  

Betrifft: AW: Spalten nach Wert durchsuchen von: Mag
Geschrieben am: 27.06.2008 14:57:49

... und jetzt kürzer:


Option Explicit

Sub ttt()
  Dim rng As Range
  For Each rng In Sheets("TTR_MT").UsedRange
    If rng = "huhu" Then
      MsgBox rng.Address
      Exit For
    End If
  Next
End Sub


Gruss


  

Betrifft: AW: Spalten nach Wert durchsuchen von: Tobias
Geschrieben am: 27.06.2008 16:24:29

Hallo Mag,
vielen Dank!!! für die schnelle Antwort, deine Lösung werde ich gleich mal versuchen!
Gruß
Tobias


 

Beiträge aus den Excel-Beispielen zum Thema "Spalten nach Wert durchsuchen"