MsgBox Bereich

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: MsgBox Bereich
von: Klaus
Geschrieben am: 29.04.2015 18:43:35

Hallo Forum,
ich habe ein kleines Problem
Ich habe 2 Spalten (A und B)
Mein Bereich geht von "A1:B10)
ist es möglich, mir diesen Bereich in einer Msgbox anzeigen zuslassen??
Das Problem ist aber:
A1 und B1 müssen auf einer Zeile sein
A2 und B2 müssen auf einer Zeile sein
..
..
..
A10 und B10 müssen auf einer Zeile sein
Bspiel:
A1 steht "Nr"
B1 steht "8"
also soll in der Msgbox "Nr 8" (mit Leerzeichen) ausgegeben werden
ist das irgendwie machbar??
danke
Klaus

Bild

Betrifft: AW: MsgBox Bereich
von: Daniel
Geschrieben am: 29.04.2015 18:53:10
Hi

dim strMsg as string
for i = 1 to 10
    strMsg = strMsg & vblf & Cells(i, 1) & " " & Cells(i, 2) 
next
strMsg = mid$(strMsg, 2) 'entfernen es ersten Zeilenumbruchs am Anfang
MsgBox strMsg
Gruß Daniel

Bild

Betrifft: AW: MsgBox Bereich
von: Klaus
Geschrieben am: 30.04.2015 23:35:57
Hey Daniel,
danke für deinen Code. Funkrioniert prima
habe noch eine Frage, ist es möglich, nur bestimmte Zeile anzeigen zu lassen?
das heist, nur wenn in "B" eine 4 ist, dann soll diese Zeile ausgegeben werden?
Bsp:
A3 steht "Nr" - B3 steht "3"
A4 steht "Nr" - B4 steht "4"
A5 steht "Nr" - B3 steht "5"
jezt soll also nur die Zeile A4 ausgegeben werden.
ist das irgendwie möglich?
danke
Grüße Klaus

Bild

Betrifft: AW: MsgBox Bereich
von: Werner
Geschrieben am: 01.05.2015 12:55:24
Hallo Klaus,
wurde mal vermuten so:

dim strMsg as string
for i = 1 to 10
    If Cells(i, 2).Value = 4 Then strMsg = strMsg & vblf & Cells(i, 1) & " " & Cells(i, 2) 
next
strMsg = mid$(strMsg, 2) 'entfernen es ersten Zeilenumbruchs am Anfang
MsgBox strMsg
Ungetestet
Gruß Werner

Bild

Betrifft: AW: MsgBox Bereich
von: Klaus
Geschrieben am: 01.05.2015 18:06:06
Hey Werner,
funktioniert total klasse
danke dir
früße Klaus

Bild

Betrifft: AW: Danke für die Rückmeldung owT
von: Werner
Geschrieben am: 01.05.2015 19:46:06


Bild

Betrifft: AW: Danke für die Rückmeldung owT
von: Klaus
Geschrieben am: 01.05.2015 23:59:43
Hallo
habe noch eine Frage.
jetzt wir alles wunderbar als Msgbox ausgegeben.
Besteht irgendwie die Möglichkeit, dass das was ausgegeben wird, auch in ein neues Tabellenblatt ( beginnend bei "A3") rein zu kopieren?
geht sowas?
danke Klaus

Bild

Betrifft: AW: Danke für die Rückmeldung owT
von: Werner
Geschrieben am: 02.05.2015 15:09:26
Hallo Klaus,
dann so.

Option Explicit
Public Sub Anzeigen_Kopieren()
Dim strMsg As String
Dim strMsg1 As String
Dim loLetzte As Long
Dim i As Long
loLetzte = Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1 'Tabelle ggf. anpassen
If loLetzte < 3 Then loLetzte = 3
   For i = 1 To 10
   If Cells(i, 2).Value = 4 Then
   strMsg = strMsg & vbLf & Cells(i, 1) & " " & Cells(i, 2) & " wurde aus A" & i & "/ B" & i
   strMsg1 = Cells(i, 1) & " " & Cells(i, 2)
   Worksheets("Tabelle2").Cells(loLetzte, 1) = strMsg1 'Tabelle ggf. anpassen
   loLetzte = loLetzte + 1
   End If
   Next
   If strMsg = "" Then
   MsgBox "Es ist keine 4 in Spalte B vorhanden." & vbLf & "Es wurde nichts kopiert."
   Else
   strMsg = Mid$(strMsg, 2) 'entfernen es ersten Zeilenumbruchs am Anfang
   MsgBox strMsg & vbLf & vbLf & "in die Tabelle 2 kopiert."
   End If
End Sub
Gruß Werner

Bild

Betrifft: AW: Danke für die Rückmeldung owT
von: KLaus
Geschrieben am: 02.05.2015 16:12:09
hey Werner
das ist jetzt perfekt
danke
Klaus

Bild

Betrifft: AW: Gerne doch o.w.T
von: Werner
Geschrieben am: 02.05.2015 16:28:17


 Bild

Beiträge aus den Excel-Beispielen zum Thema "MsgBox Bereich"