Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
01.10.2019 19:11:35 |
vgoh |
|
|
|
01.10.2019 19:31:34 |
Mase |
|
|
|
01.10.2019 19:49:38 |
Gast40937 |
|
|
zu Problem Nr.2 |
01.10.2019 20:22:32 |
Mase |
|
|
|
01.10.2019 20:25:42 |
Mase |
|
|
Von:
Mase |
Datum:
01.10.2019 20:22:32 |
Views:
436 |
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
01.10.2019 19:11:35 |
vgoh |
|
|
|
01.10.2019 19:31:34 |
Mase |
|
|
|
01.10.2019 19:49:38 |
Gast40937 |
|
|
zu Problem Nr.2 |
01.10.2019 20:22:32 |
Mase |
|
|
|
01.10.2019 20:25:42 |
Mase |
|
|