Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1192to1196
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Wert suchen, Bereich markieren

VBA Wert suchen, Bereich markieren
Milan
Hallo Excel Freunde,
Ich brauche folgendes Makro:
Kopiere den Formel-Wert aus Active Celle (Tabelle1)
Gehe in Tabelle 2
Bereich: J7:J40000
Suche den kopierten Wert
Zeige den Bereich von A:L in dem sich der gesuchte Wert befindet
z.B. der Wert befindet sich in J40, markiere den Bereich von A40:L40
Danke für eure Hilfe!
Gruss
Milan

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA Wert suchen, Bereich markieren
23.12.2010 21:07:51
Josef

Hallo Milan,
mir scheint, du liebst es, den Cursor wie einen Hund über deine Tabellen zu hetzen.

Sub milan()
  Dim vntRet As Variant
  
  With Sheets("Tabelle2")
    vntRet = Application.Match(ActiveCell, .Range("J7:J40000"), 0)
    
    If IsNumeric(vntRet) Then
      Application.Goto .Range(.Cells(vntRet + 6, 1), .Cells(vntRet + 6, 12)).Select
    Else
      MsgBox "Nada!"
    End If
  End With
End Sub

Gruß Sepp

Anzeige
AW: VBA Wert suchen, Bereich markieren
23.12.2010 21:31:37
Milan
Hallo Sepp,
besser er als ich :)
Ich habe den Code geringfügig geändert, er läuft nicht.
Sub milan()
Dim vntRet As Variant
With Sheets("Artikelstamm")
vntRet = Application.Match(ActiveCell, .Range("J7:J40000"), 0)
If IsNumeric(vntRet) Then
Application.Goto .Range(.Cells(vntRet + 6, 1), .Cells(vntRet + 6, 12)).Select
Else
MsgBox "Nada!"
End If
End With
End Sub

in diese Zeile bleibt er stecken: Application.Goto .Range(.Cells(vntRet + 6, 1), .Cells(vntRet + 6, 12)).Select
Folgende Fehlermedung erscheint:
Laufzeitfehler 1004
Die Select-Eigenschaft des Range Objektes kann nicht zugeordnet werden
Anzeige
AW: VBA Wert suchen, Bereich markieren
23.12.2010 21:35:12
Josef

sorry, my fault;-))

Sub milan()
  Dim vntRet As Variant
  
  With Sheets("Tabelle2")
    vntRet = Application.Match(ActiveCell, .Range("J7:J40000"), 0)
    
    If IsNumeric(vntRet) Then
      Application.Goto .Range(.Cells(vntRet + 6, 1), .Cells(vntRet + 6, 12))
    Else
      MsgBox "Nada!"
    End If
  End With
End Sub

Gruß Sepp

Anzeige
AW: VBA Wert suchen, Bereich markieren
23.12.2010 21:43:37
Milan
Hallo Sepp,
einfach geil, es funktioniert, DANKE.
Ich wünsche Dir und allen Excel Helfern,
ein frohes Weihnachtsfest und ein glückliches,
gesundes und erfolgreiches neues Jahr.
Gruss
Milan

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige