Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
544to548
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
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform mit Tabellendaten füllen

Userform mit Tabellendaten füllen
11.01.2005 18:10:49
Dennis
Hallo,
in der Tabelle stehen mehrere Datensätze mit gleichem Inhalt (nach denen gesucht/gefiltert wird)
Meine Idee ist, dass die Daten, die der Suche entsprechen, erst addiert werden und dann das Ergebnis in der Userform erscheinen.
https://www.herber.de/bbs/user/15939.xls
Gibt es dafür eine Lösung
Gruß Dennis

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform mit Tabellendaten füllen
11.01.2005 19:04:16
GraFri
Hallo
Ich würde es so machen:


      
Private Sub CommandButton1_Click()
Dim Bestand%, Interessent%, StartZeile%, EndZeile%, n%
    TextBox2.Value = vbNullString
    TextBox3.Value = vbNullString
' Startzeile festlegen
    StartZeile = 2
' letzte Zeile mit Daten der Spalte A
    EndZeile = letzteZeile("Tabelle1", 1)
    Bestand = 0: Interessent = 0
' Addieren
    On Error Resume Next
    For n = StartZeile To EndZeile
        If CStr(Cells(n, 1)) = TextBox1 Then
            Bestand = Bestand + Cells(n, 2).Value
            Interessent = Interessent + Cells(n, 3).Value
        End If
    Next n
    TextBox2.Value = Bestand
    TextBox3.Value = Interessent
End Sub
mfg, GraFri
Anzeige
AW: Userform mit Tabellendaten füllen
11.01.2005 19:37:50
Dennis
GraFri,
ich danke Dir! Super! Echt Spitze!
Gruß Dennis
Frage zum VBA Code an GraFri
Heiko
Hallo GraFri,
habe mal ne kurze Frage zu deinem Code den du für Dennis geschrieben hast.
Welche Aufgabe haben die Prozentzeichn hinter den Variablen ?
" Dim Bestand%, Interessent%, StartZeile%, EndZeile%, n% "
Was ändert sich gegenüber einer normalen Deklaration mit Dim Bestand, Interessent ...
Für die Antwort danke ich dir schon mal im voraus.
Gruß Heiko

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige