Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
876to880
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
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Unterprogramm funktioniert nicht

Unterprogramm funktioniert nicht
18.06.2007 18:45:00
siaj
hallo freunde,
ich habe einen Programm zum daten Übertragung über CAN232 in eine Excel-Tabelle, um die Daten weiter bearbeiten zukönnen muss ich erst mal sie sortieren, das soll als unterprogramm laufen sobald die daten in die Spalte geschrieben werden. ich habe dafür einen Macro aber es funktioniert nur ausserhalb wer kann mir helfen, ich bedanke mich im voraus.
es geht um (Sub Echo_Sen)
https://www.herber.de/bbs/user/43361.xls
es funktioniert hier nur mit dem Button, ich meine nur mit click, ich möchte es aber als unterprogramm in einem andern Programm zum laufen bringen und das kann ich nicht realsieren.
https://www.herber.de/bbs/user/43360.xls

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Unterprogramm funktioniert nicht
18.06.2007 21:29:00
siaj
Hallo,
möchte nur sagen das ich die lösung dringend für min Diplomarbeit brauche und es eilt.
viellen Dank
MfG

AW: Unterprogramm funktioniert nicht
22.06.2007 12:21:01
Chaos
Servus,
außerdem bezieht sich Sheets(2) nicht auf Tabelle2, sondern auf Tabelle3,und ich glaube das ist mal der Hauptfehler.
Also schreibst du entweder Sheets(3) oder Sheets("Tabelle2").
Gruß
Chaos

AW: Unterprogramm funktioniert nicht
22.06.2007 14:54:00
Shauki
ich danke dir Chaos ich habe die Probleme gelöst.
schöne Grüsse

AW: Unterprogramm funktioniert nicht
22.06.2007 12:10:00
Chaos
Servus,
immer langsam mit den jungen Pferden.

Sub Programmstarten()
Dim Zeile, w, n, t, zeit, Display$, Blatt$, Dezimal 'Benutzte Variablen
Dim z, Intervall As Integer
Dim SensorError As Integer
Dim wks1 As Worksheet, wksDiag As Worksheet
Dim Zeile1 As Long, wert1 As Long, wert2 As Long, wert3 As Long, wert4 As Long, wert5 As Long
Dim Fehler As Boolean
Dim sensnr As Integer
sensnr = 1
do_setup
Set wks1 = Worksheets("Tabelle2") 'Tabelle mit Eingangsdaten
Set wksDiag = Worksheets("Tabelle1") 'Tabelle mit Daten und Diagram
z = 1
xxx = 2
Fehler = True
' Configuration
' COM Device Baudrate starta stop etc...
OPENCOM "COM2:9600,8,n,1"           'Schnittstelle öffnen
Timeout 800                         'TimeOut beim Empfang evtl. erhöhen
STRLENGTH 14                        'Länge der übertragenen Zeichenkette evtl. anpassen
Display$ = "Mindesten 14 Zeichen"   'Mindesten 14 Zeichen!
Intervall = 100
' Init statement
' Send the string "Format 1" eg.
Zeile = 1                           'Zeilenzähler
zeit = 0                               'Zeit auf 0
Initialize_CANBUS
TIMEINIT                            'Stoppuhr auf 0
While TIMEREAD  3) Then
sensnr = 1
Else
sensnr = sensnr + 1
Echo_Sen                 'Soll hier Echo_Sen gestartet werden (probiers mal mit  _
Call) Echo_Sen.
End If
Wend
CLOSECOM                            'Schnittstelle freigeben
' Stop_CANBUS
End Sub


Ich hab die Bemerkung hinter die Zeile Echo_Sen geschrieben.
Gruß
Chaos

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige