Office: VBA-Bestimmte Zelle durch ComboBox Selektion finden und Werte addieren

Helfe beim Thema VBA-Bestimmte Zelle durch ComboBox Selektion finden und Werte addieren in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Zusammen, das ist mein erster Eintrag in dieses Forum. Ich habe eine Kostenkalkulation erstellt,innerhalb welcher ich mit einer Userform... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von PaFiWi, 11. März 2014.

  1. PaFiWi Neuer User

    VBA-Bestimmte Zelle durch ComboBox Selektion finden und Werte addieren


    Hallo Zusammen,

    das ist mein erster Eintrag in dieses Forum.

    Ich habe eine Kostenkalkulation erstellt,innerhalb welcher ich mit einer Userform ermögliche,dass die passenden Kriterien
    in den 2 ComboBoxen ausgewählt werden können. Die Userform zeigt sich durch das betätigen des "Add New Value" Button.

    ComboBox1 = Art der Ausgabe
    ComboBox2 = Monat der Ausgabe
    Textbox1 = Betrag (durch händische Eingabe)

    Nach dem Betätigen des "Insert Buttons" soll die entsprechende Zelle in der Kostenkalkulation im Tabellenblatt("2013") ermittelt und der Betrag der eventuell schon in der Zelle der Kostenkalkulation steht mit dem neu eingegebenen Betrag aus der Textbox addiert werden.



    VBA ist noch ein recht neues Gebiet für mich, deshalb möchte ich euch darum bitten, mir ggf. mit einem entsprechenden Makro zu helfen.
    Wenn Zeit und Lust vorhanden ist gerne auch mit kurzen Kommentaren, um den Lerneffekt zu verbessern.



    Grüße und ein schönen Abend !!!
     
    PaFiWi, 11. März 2014
    #1
  2. Beverly
    Beverly Erfahrener User
    Hi,

    das sollte auf diese Weise lösbar sein:

    Code:
    Private Sub CommandButton1_Click()
       Dim lngZeile As Long
       Dim intSpalte As Integer
       ' beide ComboBoxen dürfen nicht leer sein
       If ComboBox1 <> "" And ComboBox2 <> "" Then
          ' in TextBox muss eine Zahl stehen
          If IsNumeric(TextBox1) Then
             ' Zeile in Spalte A ermitteln, in der der Inhalt der ComboBox1 steht
             lngZeile = Application.Match(ComboBox1, Columns("A"), 0)
             ' Spalte in Zeile 2 ermitteln, in der Inhalt aus ComboBox2 steht
             intSpalte = Application.Match(ComboBox2, Rows(2), 0)
             ' in die ermittelte Zelle die Summe aus vorhandenem Wert und Inhalt der Textbox schreiben
             ' da Inhalt einer TextBox immer Text ist, den Inhalt in Zahl vom Typ Double umwandeln
             Cells(lngZeile, intSpalte) = Cells(lngZeile, intSpalte) + CDbl(TextBox1)
          Else
             MsgBox "Bitte eine Zahl eintragen"
          End If
       Else
          MsgBox "Bitte Rubrik und Monat auswählen" & vbLf & "sowie Zahl eintragen"
       End If
    End Sub
    Bis später,
    Karin
     
    Beverly, 12. März 2014
    #2
  3. PaFiWi Neuer User
    Hallo Karin,

    vielen Dank für die tolle Antwort.
    Soweit hat alles super geklappt, bis auf das 2. Else , weil kein weiteres If vorhanden ist, eine Lösung ist mir noch nicht eingefallen, ich habe es vorerst deaktiviert und werde später noch ein wenig experimentieren.


    Hat mir allerdings sehr weiter geholfen, vielen Dank noch einmal !!
     
    PaFiWi, 12. März 2014
    #3
  4. Beverly
    Beverly Erfahrener User

    VBA-Bestimmte Zelle durch ComboBox Selektion finden und Werte addieren

    Hi,

    was meinst du mit "weil kein weiteres If vorhanden ist"? Das 2. Else gehört doch zu der Zeile

    Code:
    If ComboBox1 <> "" And ComboBox2 <> "" Then
    Bis später,
    Karin
     
    Beverly, 12. März 2014
    #4
  5. PaFiWi Neuer User
    Perfekt, danke !
     
    PaFiWi, 12. März 2014
    #5
  6. Hallo,

    Bin durch Google-Suche auf dein Problem gestoßen & habe dazu eine Frage:

    Ich möchte eigentlich das gleiche tun, allerdings möchte ich den Wert ausgegeben haben und in Textbox1 geschrieben bekommen.

    Ich frage mich warum es mit "Cells(lngZeile, intSpalte) = textbox1.value" nicht klappt, in das auszulesende Feld habe ich natürlich eine Zahl eingetragen.
    Danke.
     
    MartinExcel, 17. Juli 2017
    #6
  7. Beverly
    Beverly Erfahrener User
    Hi,

    wenn du den Wert in eine TextBox schreiben willst, musst du den Code umdrehen, also

    Code:
    textbox1 = Cells(lngZeile, intSpalte)
    Bis später,
    Karin
     
    Beverly, 18. Juli 2017
    #7
  8. Blacky1980 Erfahrener User

    VBA-Bestimmte Zelle durch ComboBox Selektion finden und Werte addieren

    Hallo,

    wie kann ich es machen das die 2. ComboBox eine TextBox ist und diese soll in der Zeile der 1. ComboBox suchen.

    Hier mein Beitrag

    Danke
     
    Blacky1980, 9. März 2021
    #8
Thema:

VBA-Bestimmte Zelle durch ComboBox Selektion finden und Werte addieren

Die Seite wird geladen...
  1. VBA-Bestimmte Zelle durch ComboBox Selektion finden und Werte addieren - Similar Threads - VBA Bestimmte Zelle

  2. Excel VBA: Sprung zu bestimmter Zelle

    in Microsoft Excel Hilfe
    Excel VBA: Sprung zu bestimmter Zelle: Hallo Zusammen, ich bin leider ein absoluter VBA-Neuling und würde mich daher sehr über Eure Hilfe freuen! Ich habe folgendes Problem: Wenn ich in Zelle D3 eine 1 eintrage, möchte ich zu Zelle...
  3. Bestimmte Zellen kopieren und Einfügen vba

    in Microsoft Excel Hilfe
    Bestimmte Zellen kopieren und Einfügen vba: Hallo zusammen, Ich bekomme es leider nicht hin... Seit 1 Stunde tu ich schon rum nur ohne Erfolg. Ich würde gerne per VBA in Spalte D nach Zelleninhalt suchen wie zb. "Max". Falls dies der Fall...
  4. VBA-Wenn Bedingung erfüllt dann bestimmte Zellen in anderes Excel Dokument kopieren

    in Microsoft Excel Hilfe
    VBA-Wenn Bedingung erfüllt dann bestimmte Zellen in anderes Excel Dokument kopieren: Hey Leute, bin erst seit gestern am VBA-Programmieren und bin mit meinem Projekt schon gut voran gekommen. Aber nun hänge ich irgendwie. Da mir das Forum gestern schon mega weitergeholfen hat,...
  5. VBA: Wenn Zelle X einen bestimmten Wert hat, soll in Zelle Y etwas eingetragen werden

    in Microsoft Excel Hilfe
    VBA: Wenn Zelle X einen bestimmten Wert hat, soll in Zelle Y etwas eingetragen werden: Servus zusammen, Zunächst mal: Freut mich unter Euren Reihen zu sein ;-) Nun zum Problem. Ich möchte über ein Makro eine Funktion bauen, die wie folgt aufgebaut ist: Spalte A hat nur ein...
  6. VBA Bestimmte Zellen aus einer anderen Datei in eine andere Datei kopieren

    in Microsoft Excel Hilfe
    VBA Bestimmte Zellen aus einer anderen Datei in eine andere Datei kopieren: Hallo Zusammen, kann mir jemand hier helfen? Bin in VBA noch Anfänger! Ich nutze unterstehenden Code um ein Tabellenblatt in eine andere Datei zu kopieren. Funktioniert auch. Da in der...
  7. Text per VBA in bestimmter Zelle erweitern

    in Microsoft Excel Hilfe
    Text per VBA in bestimmter Zelle erweitern: Hallo, ich habe folgendes vor: Alle Eingaben in den Zellen B3, B5, B8 und B13 sollen, falls klein geschrieben, nach Eingabe automatisch gross geschrieben werden - das habe ich geschafft. Was...
  8. Zeilen und Spalten mit VBA ausblenden wenn Wert 0 in bestimmten Zellen

    in Microsoft Excel Hilfe
    Zeilen und Spalten mit VBA ausblenden wenn Wert 0 in bestimmten Zellen: Hallo Excel Kolleginnen und Kollegen, ich habe mehrere Excel-Tabellen mit gleichem Layout aber nicht immer die gleichen Spalten und Zeilen befüllt, möchte nun mit VBA und Makro mir die Zeilen...

Users found this page by searching for:

  1. combobox vba aus zelle mit mehreren werten

  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden