HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

ergebnis der msgbox in zelle schreiben

ergebnis der msgbox in zelle schreiben
29.09.2003 14:42:46
Stefan
wie kann ich denn das ergebnis der msgbox in zelle a1 wiedergeben lassen und nicht mit der msgbox? danke für die hilfe


Sub FileSelection()
Dim var As Variant
Dim iCounter As Integer
var = Application.GetOpenFilename( _
FileFilter:="Excel-Dateien (*.xls), *.xls", _
MultiSelect:=True)
On Error GoTo ERRORHANDLER
For iCounter = 1 To UBound(var)
MsgBox iCounter & ". Datei von " & UBound(var) & ": " & var(iCounter)
Next iCounter
Exit Sub
ERRORHANDLER:
Beep
MsgBox "Abbruch!"
End Sub



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

Betreff
Datum
Benutzer
AW: ergebnis der msgbox in zelle schreiben
29.09.2003 14:48:07
Andi_H
Hi,
geht so, allerdings eine Sache, das ganze geschieht mit einer schleife und du wirst in a1 so nur das letzte ergebnis stehen haben weil die anderen ja überschrieben wurden
alternativ würde ich dir vorschlagen die ergebnisse in spalte 1 untereinander zu schreiben dies wäre dann lösung 2:

For iCounter = 1 To UBound(var)
range("a1").value = iCounter & ". Datei von " & UBound(var) & ": " & var(iCounter)
Next iCounter

Lösung 2:
i = 1
For iCounter = 1 To UBound(var)
cells(i,1).value = iCounter & ". Datei von " & UBound(var) & ": " & var(iCounter)
i = i + 1
Next iCounter

gruß

andi
AW: ergebnis der msgbox in zelle schreiben
29.09.2003 14:48:51
Veit
meinst Du so?


Sub FileSelection()
Dim var As Variant
Dim iCounter As Integer
var = Application.GetOpenFilename( _
FileFilter:="Excel-Dateien (*.xls), *.xls", _
MultiSelect:=True)
On Error GoTo ERRORHANDLER
For iCounter = 1 To UBound(var)
sheets(1).cells(1,1).value=iCounter & ". Datei von " & UBound(var) & ": " & var(iCounter)
Next iCounter
Exit Sub
ERRORHANDLER:
Beep
MsgBox "Abbruch!"
End Sub

AW: ergebnis der msgbox in zelle schreiben
29.09.2003 14:51:31
Stefan
ja das hab ich gemeint! vielen dank dafür
AW: ergebnis der msgbox in zelle schreiben
29.09.2003 14:59:48
Stephan
Hallo Stefan,
wenn die aktive Zelle "A1" ist,
ersetze aus der VBA-Zeile
"MsgBox iCounter & ". Datei von " & UBound(var) & ": " & var(iCounter)"
den Ausdruck "MsgBox" einfach durch den Ausdruck
"ActiveCell.Offset(iCounter - 1, 0).Value";
dann wird die MsgBox-Meldung in die Zellen A1 und folgende der Spalte A
eingetragen.
Mit freundlichem Gruß
Stephan
Vielen Dank an alle! Es funktioniert
29.09.2003 15:01:04
Stefan
Danke

301 Forumthreads zu ähnlichen Themen

Meistgelesene Forumthreads (12 Monate)

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