Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
952to956
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
952to956
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SpaltenNr und ZeilenNr gesucht

SpaltenNr und ZeilenNr gesucht
25.02.2008 10:25:00
Sibylle
Hallo,
in einem Bereich B5:P32 sind Texte enthalten.
Gesucht wird in diesem Bereich der Ausdruck „vorbestraft“, der in A2 eingegeben wird.
Dieser Ausdruck kann in dem Bereich mehrmals vorkommen, u.U. aber auch überhaupt nicht.
Wie kann man die kleinste SpaltenNr der Zelle ermitteln, in dem der Ausdruck vorkommt und die entsprechende ZeilenNr?
Gruß
Sibylle

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

Betreff
Datum
Anwender
Anzeige
AW: SpaltenNr und ZeilenNr gesucht
25.02.2008 11:02:00
Peter
Hallo Sibylle,
du kannst auch das nachfolgend Makro verwenden:


Option Explicit
Public Sub Suchen()
Dim WkSh       As Worksheet
Dim rZelle     As Range
Dim sFundst    As String
Dim sSuchbegr  As String
Dim lZeile     As Long: lZeile = 65536
Dim iSpalte    As Integer
   Set WkSh = Worksheets("Tabelle1") ' <== den Tabellenblattnamen ggf. anpassen !!!
   sSuchbegr = WkSh.Range("A2").Value
   With WkSh.Range("B5:P32")
      Set rZelle = .Find(sSuchbegr, LookAt:=xlWhole, LookIn:=xlValues)
      If Not rZelle Is Nothing Then
         sFundst = rZelle.Address
         Do
            If lZeile > rZelle.Row Then
               lZeile = rZelle.Row
               iSpalte = rZelle.Column
            End If
            Set rZelle = .FindNext(rZelle)
         Loop While Not rZelle Is Nothing And rZelle.Address <> sFundst
       Else
         MsgBox "Der Suchbegriff  """ & WkSh.Range("A2").Value & _
            """  wurde nicht gefunden.", _
            48, "   Hinweis für " & Application.UserName
         Exit Sub
      End If
   End With
   MsgBox "Die erste Fundstelle vom Begriff  """ & sSuchbegr & """  ist in  """ & _
      Application.Substitute(Cells(1, rZelle.Column).Address(0, 0), 1, "") & lZeile & _
      """.", 64, "   Hinweis für " & Application.UserName
End Sub 


Gruß Peter
Anzeige
Mit Hilfsspalte
25.02.2008 11:19:00
mpb
Hallo Sibylle,
verwende Spalte Q als Hilfsspalte, schreibe in Q5 die Formel
=VERGLEICH($A$2;B5:P5;0)+1
und kopiere diese bis Zeile 32 nach unten. Die Matrixformel
=MIN(WENN(ISTZAHL(Q5:Q32);(Q5:Q32);1000))
ergibt die gesuchte Spaltennummer. Wenn die Matrixformel z.B. in A3 steht, ergibt folgende Formel die gesuchte Zeilennummer:
=VERGLEICH(A3;Q5:G32;0)+4
Gruß
Martin

AW: SpaltenNr und ZeilenNr gesucht
25.02.2008 16:15:00
Sibylle
Hallo,
vielen Dank für die Beiträge, die dazu beigetragen haben, dass die Aufgabe gelöst werden konnte.
Gruß
Sibylle

304 Forumthreads zu ähnlichen Themen

Zeilenhöhe und Spaltenbreite in cm - Makro anlegen
Sandra

Wie lege ich ein Makro an - für oben genannte Funktion?
DANKE!!!
02.09.2008 13:53:00
Thread-ID: 1006781
9 Beiträge
Anzeige
In Zeile suchen und Spalte löschen
Ralf

Hallo Excel - Experten,
nach laaaaaaanger Suche habe ich
im Archiv eine Lösung gefunden, die meinem Problem
sehr nahe kommt - - - es muß nur andersherum laufen :-)
Dieser Code unten sucht in einer Spalte nach einem best. Wert
und löscht die entsprechende Zeile, ich bräuchte...
23.10.2008 09:42:32
Thread-ID: 1018520
7 Beiträge
wenn Spalte F nicht leer, ganze Zeile markieren
maxx_1985

Hallo mit'mander
Ich hab ein kleines VBA Probelem. Naemlich das fogende:
Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
19.11.2008 18:37:00
Thread-ID: 1026165
11 Beiträge
Anzeige
unerklärliche Spalten- und Zeilenköpfe
Bernhard

Liebe Excel-Fangemeinde,
bei einem Übungsbeispiel einer Schulungsteilnehmerin trat folgendes Phänomen auf (siehe Screenshot):

Auf dem ersten Tabellenblatt wurden einige einfache Formatierungen (unter anderem doppelt unterstrichen, hochgestellt und durchgestrichen) ganz normal über...
15.12.2008 11:58:00
Thread-ID: 1032990
3 Beiträge
Zeile und Spalte markieren
Karsten

Hallo Excel Freunde,
ich habe die Adresse von 2 Zellen (ZeileA, SpalteA) und (ZeileB, SpalteB) und möchte den gesmten Bereich markieren und dann kopieren.
Habe folgendes probiert:
Set Bereich1 = Rows("ZeileA:ZeileB")
Set Bereich2 = Columns("SpalteA:SpalteB")
Set Gesamtb = Un...
18.12.2008 15:54:47
Thread-ID: 1033909
5 Beiträge
Zeilen und Spalten ausblenden
Andreas

Hi Leute,
Hab folgendes Problem:
Ich hab mehrere Tabellenblätter mit Tabellen, in denen in Abhängigkeit von Einträgen auf einer Übersichtsseite bestimmte Zeilen und Spalten mit einem Makro ausgeblendet werden sollen.
Hier Mein Beispiel-File:
https://www.herber.de/bbs/user/58482...
16.01.2009 15:21:22
Thread-ID: 1040598
8 Beiträge
Makro Spalte S bis letzter Wert Spalte A markieren
Jonathan

Hallo zusammen,
ich habe folgendes Probelem:
Ich möchte gerne Spalte S bis zum letzten Wert von Spalte A (variabel) markieren (damit im Anschluss der Spalte ein Rahmen gegeben werden kann).
Gibt es hierfür ein Makro?
Vielen Dank schon mal für eure Hilfe.
Gruß
Jonathan
30.01.2009 12:31:58
Thread-ID: 1045358
3 Beiträge
Wert in Spalte und entsprechender Zeile Finden
Klaus

Hi,
folgendes Problem:
Meine ExcelSpalten werden fortlaufend erweitert mit neuen Nummern.
Ich möchte jetzt eine Möglichkeit, in einer Zelle (usedrange +2) bei Eingabe einer neuen (existierenden)
Spaltenbezeichnung, automatisch den Zellenwert aus einer bestimmten Zeile haben. Da...
18.02.2009 15:51:00
Thread-ID: 1051850
3 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
16
6
10
3
2
4
7
2
2
4
8
4
3
13
1
5
7
1
11
12
6
11
6
10