Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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
Anwender
Anzeige
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
Anzeige
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
Anzeige
Vielen Dank an alle! Es funktioniert
29.09.2003 15:01:04
Stefan
Danke

368 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige