Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1056to1060
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
1056to1060
1056to1060
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Feste Zelle bestimmen!

Feste Zelle bestimmen!
05.03.2009 09:36:41
Sevim
Einen wunderschönen guten Morgen zusammen,
ich habe folgende Tabelle: https://www.herber.de/bbs/user/59994.xls
Also in Spalte A habe ich x-Werte, die von 1 bis n gehen. Auf A ist ein Auto-Filter gesetzt. Nun mein Problem: Ich möchte in Spalte eine Zahl auswählen und möchte, dass diese ausgewählte Zahl immer in B5 ausgegeben wird!
Bedanke mich im Voraus recht herzlich für jede Lösung.
Mit freundlichen Grüßen
Sevim

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Feste Zelle bestimmen!
05.03.2009 09:45:42
Ramses
Hallo
Tabelle1

 ABC
1Wert>3 
28  
64  
75  
86  
9   

Formeln der Tabelle
ZelleFormel
B1=WENN(ISTFEHLER(afkriterium(1)); "";afkriterium(1))


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Dazu diesen Code in ein Modul deiner Mappe kopieren
Option Explicit

Function AFKriterium(spalte As Long) As String
    'von JensF aus dem Spotlight-Forum
    'Kriterium des Autofilter aus spalte x auslesen
    Dim x As Long
    Application.Volatile
    If ActiveSheet.AutoFilter.Filters(spalte).On Then
        AFKriterium = ActiveSheet.AutoFilter.Filters(spalte).Criteria1
    End If
    'Schreib in eine Zelle nun diese Formel
    '=AFkriterium(1)
    '1 = A
    '2 = B usw.
End Function

Gruss Rainer
Anzeige
AW: Funktioniert nicht
05.03.2009 10:27:10
Sevim
Erstmals DANKE für die schnelle Hilfe.
Aber bei mir funktioniert es nicht:-(
Ich habe mit Alt+F11 das Fenster geöffnet, ein Modul eingefügt und den Code hinein kopiert. Anschließend geschlossen und die Formel bei mir in C5 eingetragen.
Was habe ich falsch gemacht?
Aber sicher...
05.03.2009 11:12:23
Ramses
Hallo
...funktioniert das, ... das siehst du doch an meinem Beispiel
in welcher Spalte setzt du den Autofilter ?
'Schreib in eine Zelle nun diese Formel
'=AFkriterium(1)
'1 = A
'2 = B usw.

Gruss Rainer
AW: Aber sicher...
05.03.2009 11:40:12
Sevim
Der Autofilter ist in der Spalte B!
Ich probiere mal nochmal :-)
Anzeige
...dann lautet der Parameter 2 statt 1. o.w.T.
05.03.2009 11:50:41
Ramses
...
AW: DANKE
05.03.2009 11:58:22
Sevim
:-)

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige