Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


MsgBox
#1
Guten Morgen,

ich habe ein kleines Problem mit der Ausgabe über MsgBox. Ich habe ein Kalkulationsschema entworfen. (Siehe Anlage), in der Spalte B sind mehrere Drop&Downs hinterlegt mit Geräten. Wenn ich ein Gerät wählte sollte über die die MsgBox die Preisliste aus Tabellenblatt 2 erscheinen. Das funktioniert aber nur zum Teil, weil die MsgBox nicht die gesamte Preise ausgibt also 1-6 Tage, 6-18 Tage usw. Wie kann ich die MsgBox-Ausgabe auf mehrere Zellen ausweiten, also in diesem Fall von Tabellenblatt2 D5-H5? Danke im voraus.


Angehängte Dateien
.xlsm   Industrie 2.0.xlsm (Größe: 31,51 KB / Downloads: 4)
to top
#2
Hi,
ich habe mal eine Hilfsspalte eingefügt ansonsten über VBA die Zellen mit & verbinden.
Wenn es überhaupt so aussehen sollte?


Angehängte Dateien
.xlsm   Industrie 2.0.xlsm (Größe: 31,53 KB / Downloads: 2)
lg Chris
Feedback nicht vergessen.
3a2920576572206973742064656e20646120736f206e65756769657269672e
 ?mage

to top
#3
(22.04.2015, 06:48)chris-ka schrieb: Hi,
ich habe mal eine Hilfsspalte eingefügt ansonsten über VBA die Zellen mit & verbinden.
Wenn es überhaupt so aussehen sollte?

Danke, genau so hatte ich mir das vorgestellt. Nochmals besten Dank, cool.
to top
#4
Guten Morgen zum zweiten,

das nächste kleine Problem. Ich möchte mit diesem Befehl die MsgBox nur auf bestimmte Zellen beschränken.
Wo ist aber hier der Fehler, wie kann ich das denn auf genau diese Zellen beschränken. Ich habe es mit Semikolon und & Zeichen probiert, alle in einer Klammer mit Semikolon getrennt, klappt aber nicht.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim objRange As Range, objCell As Range, objSearchCell As Range
    Set objRange = Intersect(Target, Range("B25:B33") ("B50:B57")("B75:B84"))
   
    If Not objRange Is Nothing Then
        For Each objCell In objRange
            If Not IsEmpty(objCell.Value) Then
                Set objSearchCell = Tabelle2.Columns(3).Find( _
                    What:=objCell.Value, LookIn:=xlValues, Lookat:=xlWhole)
                If Not objSearchCell Is Nothing Then
                                  
                                            
                    MsgBox objSearchCell.Offset(0, 7).Text, vbInformation, "Info"
                   
   
                   
                                    
                   
               
                   
                   
                    Set objSearchCell = Nothing
                Else
                    MsgBox "Fehler beim Suchen des Artikels.", vbCritical, "Fehlermeldung"
                End If
            End If
        Next
        Set objRange = Nothing
    End If
End Sub
to top
#5
Hallo,

Set objRange = Intersect(Target, Range("B25:B33,B50:B57,B75:B84"))

Gruß Uwe
to top
#6
(22.04.2015, 08:23)Kuwer schrieb: Hallo,

Set objRange = Intersect(Target, Range("B25:B33,B50:B57,B75:B84"))

Gruß Uwe

Hallo Uwe,

danke. Also mit Komma.
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  MsgBox 1 Minute nach Dateiöffnung aufrufen nixdaacher 2 65 25.11.2016, 22:18
Letzter Beitrag: schauan
  Hilfe bei Excel VBA - MsgBox alnourx 3 105 02.11.2016, 03:25
Letzter Beitrag: alnourx
  Msgbox artcreativity 20 379 03.10.2016, 15:58
Letzter Beitrag: IchBinIch
  MsgBox bei uhrzeit aus Zelle magro24 4 405 13.07.2016, 15:55
Letzter Beitrag: schauan
  Excel VBA: MsgBox-Inhalt in Textfile schreiben sharky51 1 459 17.12.2015, 17:32
Letzter Beitrag: sharky51
  Wert aus Msgbox in Zelle Übernehmen alti89 2 1.045 10.11.2015, 12:10
Letzter Beitrag: Rabe
  Prozentsatz grösser in Zellen, dann Msgbox und Eintrag nicht zulassen Mario 7 874 21.10.2015, 09:13
Letzter Beitrag: Mario

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste