[Excel] Protokoll erstellen

Registrierter Benutzer

Dabei seit: 18. August 2009

Dienstag, 18. August 2009, 12:37

Protokoll erstellen

Hallo,

ich muss immer wieder Protokolle schreiben. Vom Prinzip läuft es immer nach dem gleichen Muster ab:

1. Firma (für die das Protokoll ist)
2. Datum (wann das Protokoll gemessen wurde)
3. Uhrzeit (s. o.)
4. Name (der Messobjektes)
5. usw.

Ich möchte die Datei öffnen und das mich Excel fragt für welche Fa., welches Datum, usw. das Protokoll ist. Geht das überhaupt?????

Wer kann mir helfen?

Vielen Dank im Vorraus

Wäre super wenn mir jemand helfen könnte.

Gruß

Zum Seitenanfang

doci

Registrierter Benutzer

Beiträge: 1 024

Dabei seit: 4. Juli 2008

Wohnort: Gelsenkirchen

2

Dienstag, 18. August 2009, 13:47

natürlich, in vb6 müsste es doch eine inputbox geben oder? bzw in vba, diese kannst du doch nutzen, und dann sagen..zelle so und so = intputbox(für welche firma)

sry kenn die syntaxen nich in vb6 oder vba

aber so ähnlich müsste es gehen oO probier doch ein bisschen rum

Zum Seitenanfang

mamawagner

Registrierter Benutzer

Beiträge: 75

Dabei seit: 18. August 2009

3

Mittwoch, 19. August 2009, 09:20

Danke für deine Hilfe

Hallo,

danke für deine Hilfe bin schon einbisschen weitergekommen.

Mein nächstes Probleme:

Meine Befehle lauten:

Sub Datum()

Dim Eingabe As String

Eingabe = InputBox("Wann wurde gemessen?")

Range("F11").Value = Eingabe

End Sub

Sub Uhrzeit()

Dim Eingabe As String

Eingabe = InputBox("Wieviel Uhr wurde gemessen?")

Range("F11").Value = Eingabe

End Sub

Wie kann ich die Befehle so ändern das diese alle automatisch nacheinander ausgeführt werden?

Vielen Dank

Zum Seitenanfang

mamawagner

Registrierter Benutzer

Beiträge: 75

Dabei seit: 18. August 2009

4

Mittwoch, 19. August 2009, 09:44

Hallo zusammen,

bin wieder weiter. Hier meine Version:

Option Explicit
Sub Datum()
Dim Eingabe As String
Eingabe = InputBox("Wann wurde gemessen?")
Range("F11").Value = Eingabe
Eingabe = InputBox("Wieviel Uhr wurde gemessen?")
Range("H11").Value = Eingabe
Eingabe = InputBox("Wo wurde gemessen?")
Range("C13").Value = Eingabe
Eingabe = InputBox("Welche Richtung wurde gemessen?")
Range("H13").Value = Eingabe
Eingabe = InputBox("Welches Wetter haben wir heute:")
Range("F14").Value = Eingabe
Eingabe = InputBox("Welche km-Station wurde gemessen?")
Range("b15").Value = Eingabe
Eingabe = InputBox("Temperatur?")
Range("F15").Value = Eingabe
Eingabe = InputBox("Fahrbahntemperatur?")
Range("I15").Value = Eingabe
Eingabe = InputBox("Luftfeuchtigkeit?")
Range("I16").Value = Eingabe
Eingabe = InputBox("Art der Markierung?")
Range("C17").Value = Eingabe
Eingabe = InputBox("Lage der Markierung?")
Range("H17").Value = Eingabe
End Sub

Wenn ich diese starte bekomme ich immer ein Laufzeitfehler 1004

Wie muss ich weitermachen. Ich kapier das nicht.

DANKE

Zum Seitenanfang

Nongs

unregistriert

5

Mittwoch, 19. August 2009, 10:40

Hallo,

benutze doch bitte die VB-Tags, um deinen Code etwas leserlicher zu gestalten....

Zu deinem Problem:
Hast du die Felder, in denen die Werte geschrieben werden, formatiert?
Ansonsten sollte es dein Code tun, oder nimm diese verkuerzte Version...

Visual Basic Quellcode

Sub Datum() 
Range("F11").Value = InputBox("Wann wurde gemessen?") 
Range("H11").Value = InputBox("Wieviel Uhr wurde gemessen?") 
Range("C13").Value = InputBox("Wo wurde gemessen?") 
Range("H13").Value = InputBox("Welche Richtung wurde gemessen?") 
Range("F14").Value = InputBox("Welches Wetter haben wir heute:") 
Range("b15").Value = InputBox("Welche km-Station wurde gemessen?") 
Range("F15").Value = InputBox("Temperatur?") 
Range("I15").Value = InputBox("Fahrbahntemperatur?") 
Range("I16").Value = InputBox("Luftfeuchtigkeit?") 
Range("C17").Value = InputBox("Art der Markierung?") 
Range("H17").Value = InputBox("Lage der Markierung?") 
End Sub

Gruß
Nongs

Zum Seitenanfang

mamawagner

Registrierter Benutzer

Beiträge: 75

Dabei seit: 18. August 2009

6

Mittwoch, 19. August 2009, 11:54

Hallo,

vielen Dank. Aber nach der 2. Schaltfläche bekomme ich wieder diesen Laufzeitfehler 1004, Anwendungs- oder objektdefinierter Fehler.

Ich verzweifel gleich :cursing:

Gruß

Zum Seitenanfang

Nongs

unregistriert

7

Mittwoch, 19. August 2009, 11:59

Hi,

wie sind denn die Felder formatiert, und in welcher Form gibst du z.B. das Datum ein?

gruß
Nongs

Zum Seitenanfang

mamawagner

Registrierter Benutzer

Beiträge: 75

Dabei seit: 18. August 2009

8

Mittwoch, 19. August 2009, 12:12

Hallo,

juchu ich habs. Ich hatte den Blattschutz drin.

Danke für deine super Tipps.

Zum Seitenanfang

mamawagner

Registrierter Benutzer

Beiträge: 75

Dabei seit: 18. August 2009

9

Mittwoch, 19. August 2009, 20:46

Hallo,

habe jetzt nur noch ein Problem. Ich würde gerne eine Schaltfläche erstellen mit der Antwort leicht, mäßig oder stark. Diese sollte automatisch dann im Protokoll angekreuzt werden. Geht das überhaupt?

Zitat

5. Fahrbahnverschmutzung

leicht mäßig stark

Zum Seitenanfang

Nongs

unregistriert

10

Donnerstag, 20. August 2009, 11:26

Hi,

ja, du kannst dir drei Active-X OptionButtons auf die Form ziehen.
Mach nen nen Doppelklick drauf und schreib in die jeweilige Sub, was geschehen soll...

Gruß

edit: Oder möchtest du einen Dialog mit OptionButtons, welches den Wert setzt?

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Nongs« (20. August 2009, 11:32)

Zum Seitenanfang

mamawagner

Registrierter Benutzer

Beiträge: 75

Dabei seit: 18. August 2009

11

Freitag, 21. August 2009, 14:25

Hallo,

ich hatte gedacht es wieder mit einer Schaltfläche zu machen wie oben. Nur das es zum auswählen ist. Bzw. mit einer Schaltfläche mit Auswahlliste, wenn das überhaupt geht. :?:

Zum Seitenanfang

peterfido

Gelegenheitsprogger

Beiträge: 988

Dabei seit: 5. Januar 2007

Wohnort: Berlin

Hilfreich-Bewertungen: 37

12

Freitag, 21. August 2009, 18:32

Ich würde das alles per Formular lösen. Dort alle Eingaben machen, Optionen anhaken und mit Klick auf Übernehmen oder OK oder wie auch immer dann in die Tabelle eintragen. Gehört aber eher alles ins VBA-Forum.

Zum Seitenanfang

mamawagner

Registrierter Benutzer

Beiträge: 75

Dabei seit: 18. August 2009

13

Samstag, 22. August 2009, 13:37

Hallo,

sorry aber ich stehe irgendwie auf dem Schlauch. Über Formular alle eingeben. Das verstehe ich irgendwie nicht.

Trotzdem danke

Zum Seitenanfang

Alex2000

unregistriert

14

Montag, 24. August 2009, 17:11

Mit VBA kenn mich zwar nicht aus, aber deine Code scheint mir irgend wie unklar, keine wunder das beim ausführen kommen Fehler, schau mal deine Code genauer an:

Visual Basic Quellcode

Dim Eingabe As String
 Eingabe = InputBox("Wann wurde gemessen?")
 Range("F11").Value = Eingabe
 Eingabe = InputBox("Wieviel Uhr wurde gemessen?")
 Range("H11").Value = Eingabe
 Eingabe = InputBox("Wo wurde gemessen?")
 Range("C13").Value = Eingabe

Warum verwendest du für alle Eingaben eine Variable "Eingabe" ?

Wenn, dann kannst du so schreiben:

Visual Basic Quellcode

Dim Eingabe_Gemessen As String
 Dim Eingabe_Uhrzeit As String
 Dim Eingabe_ Wo As String
 
 Eingabe_Gemessen = InputBox("Wann wurde gemessen?")
 Range("F11").Value = Eingabe_Gemessen

 Eingabe_Uhrzeit = InputBox("Wieviel Uhr wurde gemessen?")
 Range("H11").Value = Eingabe_Uhrzeit
 
Eingabe_Wo = InputBox("Wo wurde gemessen?")
 Range("C13").Value = Eingabe_Wo

Zum Seitenanfang

FAtheone

VB-Geek

Beiträge: 1 335

Dabei seit: 14. Juni 2009

Wohnort: OSI Layer 8

Hilfreich-Bewertungen: 42

15

Montag, 24. August 2009, 19:45

@Alex2000: Das vergeudet doch nur RAM -.-
@All:
Es gibt einen Designer in VBA, mit dem man Forms machen kann. Dort kann man ähnlich wie in VB dann programmieren und die Daten eintragen.

MFG FAtheone

Write in C, write in C, LOGO's dead and buried, write in C...
Von Hilfeanfragen via PN ist ABZUSEHEN; betreffende User werden ignoriert. Hierzu ist das Forum da.

Zum Seitenanfang

mamawagner

Registrierter Benutzer

Beiträge: 75

Dabei seit: 18. August 2009

16

Dienstag, 25. August 2009, 08:41

Hallo Alex,

klappt aber super. Außer mit dieser Auswahlliste.

Hallo FAtheone,

du schreibst da was von einem Designer was meinst du damit? Wäre toll wenn ich diesen auch hätte.

Zitat von »FAtheone«

@Alex2000: Das vergeudet doch nur RAM -.-
@All:
Es gibt einen Designer in VBA, mit dem man Forms machen kann. Dort kann man ähnlich wie in VB dann programmieren und die Daten eintragen.

Gruß an alle

Zum Seitenanfang

Nongs

unregistriert

17

Dienstag, 25. August 2009, 10:06

Hi,

hab was nettes gefunden....

http://www.office-online-schule.de/onlin…Codefenster.pdf

Hoffe, das ist was für dich.

Gruß
Nongs

Zum Seitenanfang

mamawagner

Registrierter Benutzer

Beiträge: 75

Dabei seit: 18. August 2009

18

Donnerstag, 27. August 2009, 11:34

Hallo Nongs,

vielen Dank für den Link. Komme aber nicht ganz zurecht. Leider

Zum Seitenanfang

Nongs

unregistriert

19

Donnerstag, 27. August 2009, 12:21

Hallo,

wenn du dein Excel-Sheet offen hast, drückst du ALT + F11 und öffnest dadurch den VB-Editor.
Unter dem Menüpunkt "Einfügen" wählst du dann UserForm aus und der Editor erstellt dir eine leere Form.
Mach im Editor einen Doppelklick auf "Diese Arbeitsmappe" und füg folgendes ein:

	Visual Basic Quellcode
1 2 3	Private Sub WorkBook_Open() UserForm1.Show End Sub

Damit wird deine UserForm als Dialog (immer im Fordergrund) angezeigt.
Doppelklick auf "UserForm1" und setze zum Austesten einfach mal 3 Optionsfelder und einen CommandButton auf die Form. Doppelklick auf den CommandButton und der VB-Editor erstellt folgende Zeilen:

	Visual Basic Quellcode
1 2	Private Sub CommandButton1_Click() End Sub

und füge dies ein:

Visual Basic Quellcode

Select Case True
   Case OptionButton1.Value
      Tabelle1.Range("H2").Value = OptionButton1.Caption
   Case OptionButton2.Value
      Tabelle1.Range("H2").Value = OptionButton3.Caption
   Case OptionButton3.Value
      Tabelle1.Range("H2").Value = OptionButton2.Caption
End Select
Me.Hide