Zum Inhalt springen
View in the app

A better way to browse. Learn more.

Fachinformatiker.de

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Excel Formel gesucht um Zellennamen zu speichern

Empfohlene Antworten

Veröffentlicht

Hallo zusammen,

folgendes Problem:

Ich suche eine Formel, die eine Spalte von oben nach unten durchgeht, und alle Zeilennummern ausgibt, in denen eine bestimmte Zahl steht.

Also so ca so: =GebeZeilenAus(A1:A100;"112")

also alle Zeilen ausgeben, in denen in der Spalte A1-100 die Zahl 112 steht.

hoffe jmd weis was ich meine. Leider fällt mir keine formel kombination ein um sowas zu lösen. und bevor ich mit nem Makro loslege dachte ich frag ich lieber mal nach :)

MfG

Die Funktion, die du suchst ist die ZÄHLENWENN-Funktion.

Beispiel:

=ZÄHLENWENN(A1:A24;112)

Moin,

das gibt allerdings nur die Anzahl der Zeilen aus und nicht die Zeilen selber. Mit fällt spontan ein, es mit /Daten/Filter/Autofilter zu probieren. Aber ob das die Lösung wäre, lässt sich bei den fehlenden Informationen zum Hintergrund des Ganzan nur mutmaßen.

hth

Reinhold

Hallo nochmalls,

danke für die Antworten, habe mir schon gedacht dass Exel allein dazu nciht in der Lage ist.

Naja habe nun doch ein Makro geschrieben, war doch nciht so komplex wie cih dachte!

Wens interessiert:

Private Sub cmdOK_Click()

Dim Col As String       'Durchsuche die Spalte

Dim Von As Integer      'Suche ab dieser Zeile

Dim Bis As Integer      'bis zu dieser

Dim Zelle As String     'Ausgabe in der Spalte

Dim Str As String       'Suchbegriff

Dim Erg As String       'Ergebnis string

Dim Work As Worksheet


Dim i As Integer


Set Work = ThisWorkbook.Worksheets(1)


Col = txtCol.Text

Von = Int(txtVon.Text)

Bis = Int(txtBis.Text)

Zelle = txtIn.Text

Str = txtLookfor.Text


For i = Von To Bis

   If Work.Cells(i, Col) = Str Then

        Erg = Erg & i & ", "

   End If

Next i


Work.Cells(txtIn2.Text, Zelle) = Erg

End Sub

MfG

Archiv

Dieses Thema wurde archiviert und kann nicht mehr beantwortet werden.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.