Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1956to1960
1956to1960
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten K & L in Userform einbinden

Forumthread: Spalten K & L in Userform einbinden

Spalten K & L in Userform einbinden
27.12.2023 19:40:45
chris58
Hallo !
Ich ersuche um Hilfe bezüglich der beigefügten Datei.
Die Userform summiert in der TextBox2 die gesamten Daten eines Monats aus der Spalte J, das man in der ComboBox1/ TextBox1 eingibt.
Nun möchte ich in der TextBox3 die Spalte K und Textbox4 die Spalte L summieren. Ich habe schon etliche Konstallationen die ich mir vorstellen kann ausprobiert, jedoch ohne nennswerten Erfolg. Es kommen dauernd Fehlermeldungen.
Kann mir wer helfen um die Daten einfach für z.B. Oktober in die Userform zu bekommen. Ich habe in den Zellen G3/H3 und I3 diese vorberechnet, sodaß man eine Gegenüberstellung hat.
Danke für Eure geschätzte Hilfe
chris58

Hier die Datei:
https://www.herber.de/bbs/user/165494.zip
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten K & L in Userform einbinden
27.12.2023 20:13:01
Alwin Weisangler
Hallo,
ändere so: 


Sub SummeBilden()

    Dim zelle As Range

    Dim betrag1#, betrag2#, betrag3#

    TextBox2.Text = ""

    If ComboBox1.ListIndex >= 0 And TextBox1.Text Like "####" Then

        For Each zelle In Range("A22:A" & Cells(Rows.Count, 1).End(xlUp).Row)

            If Format(zelle.Value, "YYYYMM") = TextBox1.Text & Format(ComboBox1.ListIndex + 1, "00") Then

                If IsNumeric(zelle.Offset(0, 9).Value) Then betrag1 = betrag1 + zelle.Offset(0, 9).Value

                If IsNumeric(zelle.Offset(0, 10).Value) Then betrag2 = betrag2 + zelle.Offset(0, 10).Value

                If IsNumeric(zelle.Offset(0, 11).Value) Then betrag3 = betrag3 + zelle.Offset(0, 11).Value

            End If

        Next

        TextBox2.Text = Format(betrag1, "#,##0.00")

        TextBox3.Text = Format(betrag2, "#,##0.00")

        TextBox4.Text = Format(betrag3, "#,##0.00")

    End If

End Sub

Gruß Uwe
Anzeige
AW: Spalten K & L in Userform einbinden
27.12.2023 21:02:53
chris58
Hallo Uwe !
Danke..........das geht einwandfrei soweit ich sehe.
Noch eine schönen Abend und einen guten Rutschs ins Neue Jahr.
lg chris58
;

Forumthreads zu verwandten Themen

Kann Fehler in Formel nicht finden. :(
Alex

Hallo Forum!
Ich habe eine Formel, die ein Moment für eine Schraubverbindung berechnet. Eigentlich ist die Eingabe von Formeln kein Problem für mich, aber irgendwie habe ich in der aktuellen Formel einen Fehler reingepackt, den ich nicht finden kann.
Hier erstmal die Formel:

Hi...
20.08.2008 09:09:00
Thread-ID: 1003086
5 Beiträge
VBA Formel finden
Baywatch

Hi,
ich brauche etwas hilfe, mit einer VBA programmierung, vielleicht hat jemand ein paar MInuten Zeit.
Ich habe eine Tabelle 1 in der eine eingabe passiert und eine TAbelle 2 sollen die Einträge aus TAbelle 1 hinkopiert werden und erst nach Spalte G dann nach B und dann nach A sortiert...
25.08.2008 08:47:34
Thread-ID: 1004371
7 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Anzeige
Zellenformatierung testen - .InsertIndent
Tom

Guten Morgen,
mittels diesem kleinen VBA möchte ich erreichen, dass in Spalte "D" nach "Teilprojekt" gesucht wird.
Wird dieses gefunden, so wird der Text in der Spalte "F" um 2 Einzüge nach rechts verschoben.
Das funktioniert auch soweit.
Private Sub CommandButton2_Click() For...
01.09.2008 10:56:47
Thread-ID: 1006352
3 Beiträge
Bild in UserForm dynamisch aus Internet laden
Ben

hallo,
ich möchte in folgender Codezeile ein Bild aus dem Internet laden, statt von der Festplatte.
Wenn ich jedoch einfach C:\... durch eine "http" Resource ersetze bekomme ich eine Fehlermeldung.
UserForm.DYNAMISCH_PIC.Picture = LoadPicture("C:\temp\bild.jpg")
Weiss jemand w...
05.09.2008 12:55:00
Thread-ID: 1007652
2 Beiträge
Formel verbinden
Malivendi

Guten Abend,
habe gerade ein problem und komme nicht weiter. Ich gabe eine formel mit der kann ich in einer Tabelle 2 suchen und vergleichen, jetzt müsste ich die formel so erweitern, dass ich in Tabelle 3 , Tabelle 4 usw. suchen und vergleichen kann. In der ersten Tabelle gebe ich die Bez...
04.11.2008 21:31:00
Thread-ID: 1021733
4 Beiträge
Anzeige
UserForm überblenden /ein-ausblenden
Nik

Hallo.
Folgendes Problem:
Ich habe eine Userform erstellt, auf der sich links ein Menü befindet.
Je nach Klick auf Menü sollen verschiedene Elemente erscheinen (z.B. Listbox, labels usw...)
Dies mache ich z.B. mit listbox.visible = true
Da es immer mehr Objekte gibt, ist die...
04.02.2009 09:39:00
Thread-ID: 1046897
5 Beiträge
Formeln verbinden
Ralf

Hallo Experten,
ich arbeite gerade an einer Stundenberechnung für einen Dienstplan. Probleme habe ich jetzt bei der Berechnung der Krankstunden. Wenn eine Schicht geplant war und jetzt ein K (Krank) kommt sollen 8h berechnet werden, wenn aber ein DF oder kein Eintrag vorhanden war sollen 0h...
10.02.2009 20:03:15
Thread-ID: 1049294
5 Beiträge
Sortierproblem wenn Formel in Zelle vorhanden
Spiess

Hallo,
ich habe nachstehende Frage:
Ich habe eine Tabelle mit einer Spalte. In den Zellen stehen Formel, die manschmal numerische Werte oder manschmal einen Leer-String erzeugen. Beispiel:=WENN(H5="";"";E4)
Beim Sortieren der Zellen werden die Zellen mit den Leer-Strings immer in...
24.04.2009 22:39:14
Thread-ID: 1071062
11 Beiträge
Userform soll Inhalt v. Zelle einer gefunden Zeile
Jaffi

Hallo liebes Forum,
mal wieder hänge ich an einem Problem fest.
If Not .Cells(rngSuchen.Row, 3) = "gesichert" Then 'in Tabellenblatt „Sicherung“ in Zelle C neben dem gefundenen Wert das _ Wort "gesichert" schreiben .Cells(rngSuchen.Row, 3) = "gesichert" Beep Load UserFormsich UserForm...
07.05.2009 17:01:43
Thread-ID: 1073684
2 Beiträge
Zellen verbinden + benutzerdefiniertes Format
Joe

Hallo zusammen,
habe eine Frage, wie man in der angehängten Datei zwei Zellen miteinander verbindet und gleichzeitig über benutzerdefiniertes Format das Wort Aktivitäten einfügt.
Hoffe, dass ich mich genau genug ausgedrückt habe.
Für Hilfe bin ich sehr dankbar.
https://www.herbe...
08.06.2009 11:38:52
Thread-ID: 1079865
6 Beiträge
Anzeige
Kann Fehler in Formel nicht finden
André

Hallo Leute,
Ich habe hier ein Problem mit einer Formel und weiß nicht woran es liegt.
=WENN(ODER(L$5="";$C6="");"";WENN(SVERWEIS(L$5;INDIREKT(TEXT(MONAT(L$5);"00")&"!$G$7:$R$43");2) ="url hs";0,5;WENN(SVERWEIS(L$5;INDIREKT(TEXT(MONAT(L$5);"00")&"!$G$7:$R$43");2)="url hf";0,5; W...
02.07.2009 11:09:19
Thread-ID: 1085908
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige