Das Archiv des Excel-Forums

ergebnis der msgbox in zelle schreiben

Bild

Betrifft: ergebnis der msgbox in zelle schreiben
von: Stefan

Geschrieben am: 29.09.2003 14:42:46

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



Bild


Betrifft: AW: ergebnis der msgbox in zelle schreiben
von: Andi_H
Geschrieben am: 29.09.2003 14:48:07

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


Bild


Betrifft: AW: ergebnis der msgbox in zelle schreiben
von: Veit
Geschrieben am: 29.09.2003 14:48:51

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



Bild


Betrifft: AW: ergebnis der msgbox in zelle schreiben
von: Stefan
Geschrieben am: 29.09.2003 14:51:31

ja das hab ich gemeint! vielen dank dafür


Bild


Betrifft: AW: ergebnis der msgbox in zelle schreiben
von: Stephan
Geschrieben am: 29.09.2003 14:59:48

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


Bild


Betrifft: Vielen Dank an alle! Es funktioniert
von: Stefan
Geschrieben am: 29.09.2003 15:01:04

Danke


 Bild

Excel-Beispiele zum Thema " ergebnis der msgbox in zelle schreiben"

Teilergebnisse in Zahlenreihe eintragen und löschen download Fußballergebnisse in Tabelle eintragen und zu HTML konvertieren download
Über InputBoxes Zeile und Spalte auswählen und Ergebnis nennen download Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren download
Filtern und Ergebnisse in Tabellen übertragen download Msg- und InputBoxes kombinieren und nach Ergebnis verzweigen download
Werte vergleichen und Ergebnis in Tabelle eintragen download Werte in Monats/Namen-Ergebnismatrix übernehmen download
Ergebnisse in Fussballtabelle eintragen und diese aktualisieren download Fußballergebnisse eingeben und Tabelle sortieren download
Ermittlung von Datenbank- und Array-Formelergebnissen per VBA download Zellen in Abhängigkeit des Summen-Teilergebnisses markieren download
Liste nach Kriterien Filtern und Ergebnisse in ListBox eintragen download Ergebnis einer WebAbfrage in neue Arbeitsmappe download
Lottozahlen generieren und Ergebnisse auswerten download Webabfrage periodisch aktualisieren und Ergebnisse speichern download
Formulardaten aus Zellen an Webformular und Ergebnis eintragen download Suchbegriffe an Google übergeben und Ergebnis aufrufen download
Wetten auf Wahlergebnisse download MsgBox mit Werten aus geschlossener Arbeitsmappe download
Überprüfung auf Übereinstimmung und Anzeige in MsgBox download Internetdaten abrufen und in MsgBox anzeigen download
Textdatei auslesen und in MsgBox anzeigen download Fehlermeldung abfangen und in sequentielle Datei schreiben download
Arbeitsmappe anlegen und Workbook_Open-Prozedur schreiben download Text aus UserForm in eine Zelle schreiben download
Zellinhalte in Verbindung mit Variablen in Textdatei schreiben download Bei Eingabe von "j" "Ja" und von "n" "Nein" schreiben download
Text in NotePad schreiben, speichern, in Excel aufrufen download Ersten mit einem neuen Buchstaben beginnenden Namen fett schreiben download
Emailrundschreiben mit vorgegebenem Text über Outlook download Zahlen eines Bereiches jeweils 4 mal in eine Spalte schreiben. download
Registry-Einträge schreiben, lesen, löschen download Rundschreiben mit vorgegenem Text an Verteiler senden download
Zellinhalt als Unicode-Zeichen in HTML-Tabelle schreiben download