Testbox Verwenden :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2007] Testbox Verwenden

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

snowtim
Newbie
Newbie

Anmeldedatum: 08.04.2008
Beiträge: 8

Verfasst am: 16.04.2008, 08:16

hi,
ihr habt mir schon oft weiter geholfen hoffe ich bekomme jetzt auch noch mal hilfe.
mein Problem ist ich will werte in eine textbox schreiben die sich änderen. wenn ich dies im debug-modus mache geht das auch wunder bar. doch leider geht es nicht während mein programm läuft. hoffe ihr habt einen tipp für mich habe schon so einiges ausprobiert und bin zu keinem ergebins gekommen. wollte es über eine UserForm machen da ging es nicht jetzt habe ich eine textbox einfach auf meinem Excel-sheet. hier geht es aber leider auch nicht.
bin echt rat los, denn manchmal wenn ich mein makro laufen lasse hält es einfach ohne grund an und läuft erst weiter wenn ich ESC-taste drücke aber da ist auch nicht immer so und wenn auch nie an einer bestimmten stelle.

Code:

Dim MySheet As Worksheet
Dim Arra As Variant
Dim N As Double
Dim i As Integer

Sub Main()
Set MySheet = Worksheets("Tabelle1") 'Definiert den Sheet der Benutz werten soll
wert = 0 'Setzt Wert auf Null
i = 0
matlabinit 'öffnet Matlab

wert = MySheet.Cells.Range("A1") 'Scheibe den Zelleninhalt aus A1 in Wert

For N = 1 To 160 Step 1
Vektor = Array(0, 0) 'Erzeugt ein Array für simulink
Vektor(1) = wert 'Schreibt an die Zweite Stelle den Inhlt Auszelle A1

wert = wert + 1

M = M + 1
If M = 20 Then

B3 = MySheet.Cells.Range("A5")

i = i + 1

MySheet.Cells(i, 5).Value = B3 'Schreibt jeden 10 Wert von Messwert_BE1 in in Spalte E

x = B3 * 3
MySheet.Cells(i, 6).Value = x 'Schreibt jeden 10 Wert von DeltaU in Spalte F

'newHour = Hour(Now())
'newMinute = Minute(Now())
'newSecond = Second(Now()) + 1
'waitTime = TimeSerial(newHour, newMinute, newSecond)
'Application.Wait waitTime

Sheets("Tabelle1").TextBox1 = B3

'newHour = Hour(Now())
'newMinute = Minute(Now())
'newSecond = Second(Now()) + 1
'waitTime = TimeSerial(newHour, newMinute, newSecond)
'Application.Wait waitTime

M = 0
End If

MLPutVar "vektor", Vektor 'Muß MLPutVar heissen da die Variable nur in der Vb ist und nicht in Excel

MLEvalString ("simin=vektor'") 'Generriert ein Zeilnen Array
MLEvalString ("sim 'Verstaerkt'") 'Startet simulink Datei " Verstaerkt"

MLGetMatrix "simout", "Tabelle1!A5" 'Schreibt Wert aus Simulink in Zelle A5
MatlabRequest

Next

End Sub

Sub Start()
Main

End Sub

hoffe es gibt da hilfe von euch. schon mal vorab danke

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Symbolsätze verwenden	funus	Microsoft Excel Hilfe	2	07.04.2008, 10:57
	Problem beim Verwenden der Datei mark...	GCLIBS	Microsoft Excel Hilfe	2	20.12.2007, 12:01
	Wert einer zelle in Formel verwenden	Century147	Microsoft Excel Hilfe	5	20.11.2007, 11:08
	Formularnamen aus Tabelle verwenden u...	my_tcpip	Microsoft Access Hilfe	0	29.09.2007, 22:52
	Verwenden eines Textes in einem zweit...	schnüffel	Microsoft Word Hilfe	1	17.07.2007, 14:33

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de