Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

MsgBox; Zellinhalte?

Betrifft: MsgBox; Zellinhalte? von: Erich M.
Geschrieben am: 16.09.2004 20:37:13

Hallo EXCEL-Freunde,

ich möchte gerne in einer MsgBox den Inhalt (=Wert) der Zelle angezeigt bekommen,
- die in der Spalte C
- in der Zeile ist, die in Spalte A die letzte benutzte Zeile ist;
bei diesem Beispiel also: 596

Tabelle4
 ABCD
1BetreffNrFormelListe
2A6005991
3B6005982
4C6005973
5D6005964
6 6005955
7 6005946
8 6005937
9 6005928
10 6005919
Formeln der Tabelle
C2 : =+B2-D2
C3 : =+B3-D3
C4 : =+B4-D4
C5 : =+B5-D5
C6 : =+B6-D6
C7 : =+B7-D7
C8 : =+B8-D8
C9 : =+B9-D9
C10 : =+B10-D10
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  


Ich habe aus der Recherche diese Möglichkeiten mit MsgBox, kann aber nicht anpassen:

Sub Meldungen()
  MsgBox Selection.Cells.Address
  MsgBox Selection.Cells(1).Address
  MsgBox ActiveSheet.UsedRange.Address
  MsgBox Cells.SpecialCells(xlCellTypeLastCell).Address
  MsgBox Cells.SpecialCells(xlCellTypeLastCell).Count
  MsgBox Cells.SpecialCells(xlCellTypeLastCell).NumberFormatLocal
  MsgBox Cells.SpecialCells(xlCellTypeLastCell).Row
  MsgBox Cells.SpecialCells(xlCellTypeLastCell).Column
End Sub


Besten Dank für eine Hilfe!

mfg
Erich
  


Betrifft: AW: MsgBox; Zellinhalte? von: Matthias G
Geschrieben am: 16.09.2004 20:42:21

Hallo Erich,

mein Vorschlag:
Sub test()
Dim z, s
z = Range("A65536").End(xlUp).Row
s = 3
MsgBox Cells(z, s)
End Sub

Gruß Matthias


  


Betrifft: Zu spät :) von: chris b
Geschrieben am: 16.09.2004 20:43:53

betreff :)


  


Betrifft: DANKE - Matthias; perfekt - o.T.!! von: Erich M.
Geschrieben am: 16.09.2004 20:53:44

.


  


Betrifft: AW: MsgBox; Zellinhalte? von: chris b
Geschrieben am: 16.09.2004 20:42:58

So meintest du das oder ?


Sub bitte()
cb = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
MsgBox Cells(ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row, 3)
End Sub



  


Betrifft: Danke - Chris; auch perfekt! o.T. von: Erich M.
Geschrieben am: 16.09.2004 20:54:30

.


 

Beiträge aus den Excel-Beispielen zum Thema "MsgBox; Zellinhalte?"