Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

MsgBox; Zellinhalte?

MsgBox; Zellinhalte?
16.09.2004 20:37:13
Erich
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: MsgBox; Zellinhalte?
16.09.2004 20:42:21
Matthias
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
Zu spät :)
16.09.2004 20:43:53
chris
betreff :)
DANKE - Matthias; perfekt - o.T.!!
Erich
.
AW: MsgBox; Zellinhalte?
16.09.2004 20:42:58
chris
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

Danke - Chris; auch perfekt! o.T.
Erich
.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige