Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
412to416
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

MSGBOX mit Formel

MSGBOX mit Formel
Timonski
Servus
hab ein Problem...
ich wollte gern das wenn ich ein Makro ausführ, daß er mir ein Formel ausführt und die Lösung der Formel in einer MSGBox anzeigt...
Folgender Fall
ich will an Pos. J14 mit einem Makro ein Kreuz erzeugen ( über Rahmen ) funzt auch...
jetzt meine Steigerung...
in Spalte B steht ein wert XXX und in Zeile 2 steht ein wert YYY
jetzt will ich das er mit den wert aus spalte B und Zeile 2 zusammen fügt..., d.h. in Zelle J14 steht dann XXX_YYY
Formel hab ich auch schon dazu...
nur wie ich die Formel in die MSGBox reinbring weis ich nicht...
wenn mir einer helfen kann wäre toll...
cu
Timonski

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: MSGBOX mit Formel
OliveR
Hallo Timonski,
entweder gibst Du das Ergebnis aus der Zelle J14 aus:
msgbox Range("J14")
oder Du gibt die gesamte Formel in die Zeile:
msgbox Range("B1") & "_" & Range("B2")
Gruß
OliveR
AW: MSGBOX mit Formel
Timonski
Servus
danke schon mal für deine Antwort...
folgender massen sieht meine Formel aus...
VERKETTEN(INDIREKT(ADRESSE(ZEILE();2;1;WAHR));"_8_04_";INDIREKT(ADRESSE(2;SPALTE();1;WAHR)))
aber ich will doch egal an welcher position ich bin die Formel benutzen können...
Userbild
wie z.b. im Bild An Postion G28 soll er mir dann 7385_8_04_05 schreiben...
die 7385 aus spalte B und die 05 aus Zeile 2
und an Pos. E18 soll er 7400_8_04_03...
vielen dank noch für die schnell antwort...
Anzeige
AW: MSGBOX mit Formel
OliveR
Hi Timonski,
wenn ich Dich richtig verstehe, willst Du folgendes:
1. Du willst eine MessageBox anzeigenlassen, wenn Du in ein Feld klickst
2. Die MessageBox soll die ausgewertete Formel XXXX_YYYY als Antwort enthalten

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
myRow = Target.Row
myColumn = Target.Column
MsgBox Cells(myRow, 2) & "8_4_" & Cells(2, myColumn)
End Sub

Gruß
OliveR
AW: MSGBOX mit Formel
19.04.2004 14:03:59
Timonski
Ja so ähnlich...
das sieht schon mal gut aus...
aber er soll mir die Antwort er zeigen wenn ich auf das kästchen oben links im ecken mit dem Rahmen und dem Kreuz drin drücke...
aber sonst echt klasse...
Anzeige
AW: MSGBOX mit Formel
Timonski
so siehts bis jetzt aus...

Private Sub kreuz_Click()
With Selection.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
XXXXXXXXXXXXXXXXXXX hier MSGBOX    XXXXXXXXXXXXXXXXXXXXXXX
End Sub

AW: MSGBOX mit Formel
OliveR
Hallo again,
schwere Geburt, sollte aber gehen.

Private Sub kreuz_Click()
With Selection.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
myRow = ActiveCell.Row
myColumn = ActiveCell.Column
MsgBox Cells(myRow, 2) & "_8_4_" & Cells(2, myColumn)
End Sub

Gruß
OliveR
Anzeige
AW: MSGBOX mit Formel
19.04.2004 14:26:04
Timonski
1000 Million Dank
genau so...
echt super...

Links zu Excel-Dialogen

MessageBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige