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: 5)
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 bei bestimmten Kriterien nicht ausgeben lassen Basti5 2 43 Gestern, 11:35
Letzter Beitrag: Basti5
Question Datei vorhanden, dann MsgBox o0Julia0o 34 496 Gestern, 10:38
Letzter Beitrag: Basisa
  Automatische Ausgabe einer MsgBox Basti5 5 64 21.02.2017, 18:21
Letzter Beitrag: Basti5
  Zeile löschen mit MsgBox KnutistGut 2 119 28.12.2016, 17:30
Letzter Beitrag: Crazy Tom
  MsgBox durch VBA in Excel 2010 Krickhst 4 225 15.12.2016, 18:43
Letzter Beitrag: snb
  MsgBox 1 Minute nach Dateiöffnung aufrufen nixdaacher 2 153 25.11.2016, 22:18
Letzter Beitrag: schauan
  Hilfe bei Excel VBA - MsgBox alnourx 3 247 02.11.2016, 03:25
Letzter Beitrag: alnourx
  Msgbox artcreativity 20 862 03.10.2016, 15:58
Letzter Beitrag: IchBinIch
  MsgBox bei uhrzeit aus Zelle magro24 4 533 13.07.2016, 15:55
Letzter Beitrag: schauan
  Excel VBA: MsgBox-Inhalt in Textfile schreiben sharky51 1 576 17.12.2015, 17:32
Letzter Beitrag: sharky51

Gehe zu:


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