VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Buttons mit verschiedenen Funktionalitäten programieren	01.10.2019 19:11:35	vgoh
zu Problem Nr.1	01.10.2019 19:31:34	Mase
zu Problem Nr.1	01.10.2019 19:49:38	Gast40937
zu Problem Nr.2	01.10.2019 20:22:32	Mase
Hinweis zu Problem Nr.2	01.10.2019 20:25:42	Mase

Ansicht des Beitrags:

Von:
Mase

Datum:
01.10.2019 20:22:32

Views:
431

Rating:

Antwort:

Thema:
zu Problem Nr.2

Im Worksheet_Change() jetzt noch Target prüfen, ob Änderung in B1 oder B2 oder B3 stattgefunden hat, und Deine Sub mit gefüllten Parameter aufrufen.

Wenn die Sub ohne Parameter aufgerufen wird, gilt Deine alte Logik und er nimmt die Daten aus B1,B2,B3.

Vorschlag:

Sub findeUndFaerbe(Optional pOrt As String, Optional pVon As Date, Optional pBis As Date)
 
    Dim rngErgebnis As Range
     
    Dim zeile As Integer
    Dim vonCol As Integer
    Dim bisCol As Integer
     
    Dim gesuchterOrt As String
    Dim von As Date
    Dim bis As Date
     
    Dim buchenBtn As CommandBarButton
    Dim reservierenBtn As CommandBarButton
    Dim clearBtn As CommandBarButton
     Stop
    'Dynamischer Array mit Ranges
    '
    If pOrt = vbNullString Then
        gesuchterOrt = Range("B1").Value
    Else
        gesuchterOrt = pOrt
    End If
    '
    If pVon = "00:00:00" Then
        von = Range("B2").Value
    Else
        von = pVon
    End If
    '
    If pBis = "00:00:00" Then
        bis = Range("B3").Value
    Else
        bis = pBis
    End If
     
    'Ort suchen:

    'Set rngErgebnis = Columns(1).Find(what:=gesuchterOrt) ' ODER
    Set rngErgebnis = Range("A06:C66").Find(what:=gesuchterOrt, LookIn:=xlValues, LookAt:=xlWhole)
     
    If Not rngErgebnis Is Nothing Then
     
        'Zeilen des Ortes ermitteln
        zeile = rngErgebnis.Row
         
        'von-Spalte ermitteln
        vonCol = spalte(von)

        'bis-Spalte ermitteln
        bisCol = spalte(bis)
         
        'Teilbereich färben
        Range(Cells(zeile, vonCol), Cells(zeile, bisCol)).Interior.Color = vbYellow
    End If
End Sub

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Buttons mit verschiedenen Funktionalitäten programieren	01.10.2019 19:11:35	vgoh
zu Problem Nr.1	01.10.2019 19:31:34	Mase
zu Problem Nr.1	01.10.2019 19:49:38	Gast40937
zu Problem Nr.2	01.10.2019 20:22:32	Mase
Hinweis zu Problem Nr.2	01.10.2019 20:25:42	Mase