Microsoft Excel

Herbers Excel/VBA-Archiv

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

Formel suchen und Tabellenüberschrift ausgeben

Betrifft: Formel suchen und Tabellenüberschrift ausgeben von: Manuela
Geschrieben am: 20.09.2014 16:30:54

Hallo Forum, Hallo Experten

Ich versuche in meinem Blatt in einem Bereich die Formel einer Spalte zu suchen.
Also wenn im Bereich C:N am heutigen Tag eine Formel steht, dann soll die Combobox2 den Text der Tabellenüberschrift (Zeile 2) als Starttext (Listindex) bekommen.

Tag = Day(Now) +2
If Sheets("LW11 Volvo").Cells(Tag, 6)(Cells(Tag, 15)).hasformula Then
Me.ComboBox2.Text = Rows.End(xlUp)
End If
Aber ich schaffe einfach kein schlaues Ergebnis heran.
Kann mir jemand helfen?
Liebe Grüsse

Manuela

  

Betrifft: AW: Formel suchen und Tabellenüberschrift ausgeben von: Adis
Geschrieben am: 20.09.2014 23:07:24

Hallo

1. hinter Rows.End(xlUp) steht nicht mehr. Was soll Excel dann zurückgeben?
hier könnte ein Wert stehen (.Value), die Zeile (.Row), oder Adresse (.Address)

Einfacher ist es sich über SpecialCells die Anzahl und Adresse zeigen zu lassen
MsgBox Application.Range("A1:C8").SpecialCells(xlCellTypeFormulas).Count
MsgBox Application.Range("A1:C8").SpecialCells(xlCellTypeFormulas).Address
Ein Beispiel von mir.

Gruss Adis


  

Betrifft: AW: Formel suchen und Tabellenüberschrift ausgeben von: Manuela
Geschrieben am: 21.09.2014 15:38:42

Hallo Adis,

Ja stimmt, so funktioniert es.
Vielen Dank

Manuela


 

Beiträge aus den Excel-Beispielen zum Thema "Formel suchen und Tabellenüberschrift ausgeben"