Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Summe mehrere Werte wenn String gefunden VBA
Autor: Tweety2016
Datum: 04.06.17 14:31
Hallo zusammen, ich möchte aus einer Range nacheineander die Zellinhalte auslesen und oben drüber danach suchen, wobei dort, wo gesucht wird der Zellinhalt aus der ersten Range um einiges länger ist. Also was gesucht wird heißt z.B. 05_2017 und dort, wo gesucht wird heißt es 05_2017_P0022_XXX. Das muss gekürzt werden und dann verglichen. Wenn es übereinstimmt, soll 2 Zeilen weiter unten der Wert abgegriffen werden und in zwischenspeicher kommen, das ganze so oft wie 05_2017 vorkommt. Zum Schluss sollen die Werte addiert werden und unten unter 05_2017 geschrieben werden. Geht das? Ich habe folgendes probiert, komme aber nicht weiter. Leider kann ich hier nirgends ein Bild anhängen. [Sub Summen_bilden_Klicken() Dim myMonthYear As Variant Dim myMonthYearString As String Dim myRng As Range Dim myRngZiel As Range Dim Zelle As Range Dim myZellString As String Dim myWertPlan As Long Set myRng = Range("H1002:IT1002") For Each myMonthYear In myRng On Error GoTo ERRORHANDLER If Not myRng Is Nothing Then myMonthYear = myRng.Value 'Suchen nach Monat_Jahr For Each Zelle In Range("H7:IT999") Zelle.Activate myZellString = Left((Zelle.Value), 6) If myZellString = myMonthYear Then myRngZiel.Activate myWertPlan = ActiveCell.Offset(3, 0).Value End If Next End If Next ERRORHANDLER: Exit Sub End Sub ]

Summe mehrere Werte wenn String gefunden VBA	1.311	Tweety2016	04.06.17 14:31
Re: Summe mehrere Werte wenn String gefunden VBA	619	Blackbox	15.06.17 20:38

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen