Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Spezialist für VBA ist notwendig - !! Dringend!!
Gehe zu Seite 1, 2  Weiter
zurück: bestimmten Bereich verschieben weiter: Datei schließen ohne Meldung Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
wingate3000
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Feb 2006, 01:22
Rufname:
Wohnort: Wien

Spezialist für VBA ist notwendig - !! Dringend!! - Spezialist für VBA ist notwendig - !! Dringend!!

Nach oben
       

Hallo
Habe mit Excel2003 eine Art Reporting-Arbeitsmappe (sheets jeweils der Tag eines Monats) gemacht. Leider gehen einige Makros nicht wirklich. Habe einige schon aus dem forum ausprobiert, leider ohne erfolg.

Z.B. wird in sheet3 ein eintrag mit einem bestimmten wort gemacht sollte die Ganze Zeile sofort im sheet1 in der nächsten freien Zeile kopiert werden.

Gleichzeitig wird Datum und Zeit in Sheet 1 mitgelogt und nach 24 stunden sollte diese Zeile Farbe(Eskalieren) annehmen.

Im Logsheet wird zwar mit gelogt aber nur bei einer änderung, und nicht einfach bei jeder Änderung.

Vielleicht finde ich nach langer Suche Sad doch einen GURU auf dem Gebiet.

Bin über jede Hilfe dankbar
wingate3000


Zuletzt bearbeitet von wingate3000 am 25. Feb 2006, 14:13, insgesamt 2-mal bearbeitet
ransi
Für den Hausgebrauch reicht's..


Verfasst am:
25. Feb 2006, 11:01
Rufname:
Wohnort: Im schönen Weserbergland


AW: Spezialist für VBA ist notwendig - !! Dringend!! - AW: Spezialist für VBA ist notwendig - !! Dringend!!

Nach oben
       

hallo Wingate

Zeile 18 und zeile 24 von Makro2 im Modul3 sind fehlerhaft.
Musst du ändern dann gehts.

ransi
wingate3000
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Feb 2006, 14:11
Rufname:
Wohnort: Wien

AW: Spezialist für VBA ist notwendig - !! Dringend!! - AW: Spezialist für VBA ist notwendig - !! Dringend!!

Nach oben
       

Erstmal Danke Ransi für Antwort.

Aber ich hab doch keinen Code ins forum gestellt, daher bin ich ein wenig verwirrt das der Code in Zeile 18 und ..... falsch sei Wink)))

Solltest du dennoch eine Lösung haben, ich schick die gerne das file um mal drüber zu blättern
lg
Wingate3000
ransi
Für den Hausgebrauch reicht's..


Verfasst am:
25. Feb 2006, 15:11
Rufname:
Wohnort: Im schönen Weserbergland

AW: Spezialist für VBA ist notwendig - !! Dringend!! - AW: Spezialist für VBA ist notwendig - !! Dringend!!

Nach oben
       

Hallo Wingate

Code:
Zeile 18 und zeile 24 von Makro2 im Modul3 sind fehlerhaft.


Damit wollte ich dir lediglich zu verstehen geben das man da ohne den code zu kennen wenig Vernünftiges zu deinem problem sagen kann.
;-)

Meine e-mail addi ist
datenbolizeiätaoldotcom

Kommentier die datei aber mal ein wenig damit man weiss was wann wo passieren soll.
ich schau mir das dann mal an.

ransi
wingate3000
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Feb 2006, 19:58
Rufname:
Wohnort: Wien


AW: Spezialist für VBA ist notwendig - !! Dringend!! - AW: Spezialist für VBA ist notwendig - !! Dringend!!

Nach oben
       

Hallo
Hier wäre mal der Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim tmpsheet As Worksheet
Dim findRange As Range


For Each tmpsheet In ThisWorkbook.Sheets
If tmpsheet.Name Like ThisWorkbook.Sheets("Workbook_Config").Cells(3, 2).Value Then
Set findRange = tmpsheet.Range("AK:AK").Find("x")
If Not findRange Is Nothing Then
Cancel = True
MsgBox "Es gibt im Sheet[" & tmpsheet.Name & "] noch eine Zeile[" & findRange.Row & "] die nicht mit einem Kürzel bestätigt wurde!"
Exit Sub
End If
End If
Next
End Sub !hiersollte jede änderung gespeichert werden und nicht nur bei x
----------------------------------------------------------------
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim findRange As Range
'Wenn es sich um ein DatenerfassungsSheet handelt
If Sh.Name Like ThisWorkbook.Sheets("Workbook_Config").Cells(3, 2).Value Then

If Target.Column = 14 Then
If Target.Cells(1, 1).Value = "x" Then
Sh.Cells(Target.Row, 25).Value = Now()
Else
Sh.Cells(Target.Row, 25).Value = Null
End If
End If

If Target.Column = 1 Or (Target.Column >= 9 And Target.Column <= 18) Then Sh.Unprotect Sh.Cells(Target.Row, 37).Value = "x" '37 = AK Sh.Protect End If If Target.Column = 30 And Sh.Cells(Target.Row, 37).Value = "x" Then Dim nextFreeLogRow As Long Dim logSheet As Worksheet Set logSheet = ThisWorkbook.Sheets("LOG") Set findRange = logSheet.Range("A:A").Find(Null) nextFreeLogRow = findRange.Row logSheet.Unprotect logSheet.Cells(nextFreeLogRow, 1).Value = Sh.Name logSheet.Cells(nextFreeLogRow, 2).Value = Target.Row logSheet.Cells(nextFreeLogRow, 3).Value = Sh.Cells(Target.Row, 9) logSheet.Cells(nextFreeLogRow, 4).Value = Sh.Cells(Target.Row, 10) logSheet.Cells(nextFreeLogRow, 5).Value = Sh.Cells(Target.Row, 11) logSheet.Cells(nextFreeLogRow, 6).Value = Sh.Cells(Target.Row, 12) logSheet.Cells(nextFreeLogRow, 7).Value = Sh.Cells(Target.Row, 13) logSheet.Cells(nextFreeLogRow, 8).Value = Sh.Cells(Target.Row, 14) logSheet.Cells(nextFreeLogRow, 9).Value = Sh.Cells(Target.Row, 15) logSheet.Cells(nextFreeLogRow, 10).Value = Sh.Cells(Target.Row, 16) logSheet.Cells(nextFreeLogRow, 11).Value = Sh.Cells(Target.Row, 17) logSheet.Cells(nextFreeLogRow, 12).Value = Sh.Cells(Target.Row, 18) logSheet.Cells(nextFreeLogRow, 13).Value = Sh.Cells(Target.Row, 30) logSheet.Protect Sh.Unprotect Sh.Cells(Target.Row, 37).Value = Null Sh.Protect End If End If End Sub -------------------------------------------------------------------------- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 'es darf immer nur eine Zelle selektiert werden If Sh.Name Like ThisWorkbook.Sheets("Workbook_Config").Cells(3, 2).Value Then If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then
If ThisWorkbook.Sheets("Workbook_Config").Cells(2, 2).Value <> 1 Then
Cells(Target.Row, Target.Column).Select
End If
End If
End If


End Sub


danke für Hilfe
Hajo_Zi
unerwünschte Person


Verfasst am:
25. Feb 2006, 20:22
Rufname:
Wohnort: Straubing

AW: Spezialist für VBA ist notwendig - !! Dringend!! - AW: Spezialist für VBA ist notwendig - !! Dringend!!

Nach oben
       

Hallo Wimngate,

ein Vorname wäre doch eine persönlichere Ansprache?

Ich habe den Code mir mal angesehen, in ein vernüftige Form gebracht und paar kleine Korrekturen gemacht.
Option Explicit


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim tmpsheet As Worksheet
Dim findRange As Range
For Each tmpsheet In ThisWorkbook.Sheets
If tmpsheet.Name Like ThisWorkbook.Sheets("Workbook_Config").Cells(3, 2).Value Then
Set findRange = tmpsheet.Range("AK:AK").Find("x")
If Not findRange Is Nothing Then
Cancel = True
MsgBox "Es gibt im Sheet[" & tmpsheet.Name & "] noch eine Zeile[" & findRange.Row & _
"] die nicht mit einem Kürzel bestätigt wurde!"
Exit Sub
End If
End If
Next
End Sub '!hier sollte jede änderung gespeichert werden und nicht nur bei x

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim findRange As Range
Dim nextFreeLogRow As Long
Dim logSheet As Worksheet
'Wenn es sich um ein DatenerfassungsSheet handelt
If Sh.Name Like ThisWorkbook.Sheets("Workbook_Config").Cells(3, 2).Value Then
If Target.Column = 14 Then
If Target.Cells(1, 1).Value = "x" Then
Sh.Cells(Target.Row, 25).Value = Now()
Else
Sh.Cells(Target.Row, 25).Value = Null
End If
ElseIf Target.Column = 1 Or (Target.Column >= 9 And Target.Column <= 18) Then Sh.Unprotect Sh.Cells(Target.Row, 37).Value = "x" '37 = AK Sh.Protect ElseIf Target.Column = 30 And Sh.Cells(Target.Row, 37).Value = "x" Then Set logSheet = ThisWorkbook.Sheets("LOG") Set findRange = logSheet.Range("A:A").Find(Null) nextFreeLogRow = findRange.Row logSheet.Unprotect logSheet.Cells(nextFreeLogRow, 1).Value = Sh.Name logSheet.Cells(nextFreeLogRow, 2).Value = Target.Row logSheet.Cells(nextFreeLogRow, 3).Value = Sh.Cells(Target.Row, 9) logSheet.Cells(nextFreeLogRow, 4).Value = Sh.Cells(Target.Row, 10) logSheet.Cells(nextFreeLogRow, 5).Value = Sh.Cells(Target.Row, 11) logSheet.Cells(nextFreeLogRow, 6).Value = Sh.Cells(Target.Row, 12) logSheet.Cells(nextFreeLogRow, 7).Value = Sh.Cells(Target.Row, 13) logSheet.Cells(nextFreeLogRow, 8).Value = Sh.Cells(Target.Row, 14) logSheet.Cells(nextFreeLogRow, 9).Value = Sh.Cells(Target.Row, 15) logSheet.Cells(nextFreeLogRow, 10).Value = Sh.Cells(Target.Row, 16) logSheet.Cells(nextFreeLogRow, 11).Value = Sh.Cells(Target.Row, 17) logSheet.Cells(nextFreeLogRow, 12).Value = Sh.Cells(Target.Row, 18) logSheet.Cells(nextFreeLogRow, 13).Value = Sh.Cells(Target.Row, 30) logSheet.Protect Sh.Unprotect Sh.Cells(Target.Row, 37).Value = Null Sh.Protect End If End If End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) ' es darf immer nur eine Zelle selektiert werden If Sh.Name Like ThisWorkbook.Sheets("Workbook_Config").Cells(3, 2).Value Then If Target.Count > 1 And Sheets("Workbook_Config").Cells(2, 2).Value <> 1 Then
Cells(Target.Row, Target.Column).Select
End If
End If
End Sub

Ich bin aber der Auffassung eine Datei wäre besser gewesen. Ich habe den Code nicht getestet.

Gruß Hajo
wingate3000
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Feb 2006, 20:54
Rufname:
Wohnort: Wien

AW: Spezialist für VBA ist notwendig - !! Dringend!! - AW: Spezialist für VBA ist notwendig - !! Dringend!!

Nach oben
       

Hallo Hajo
erstmal danke für die Zeit, das du dir den code angesehen hast. Aber etwas geht da noch nicht. Speichert immer noch nur eine Änderung.
Würde dir gerne das file mal schicken, da sieht man genauer was passiert oder nicht

christian
Hajo_Zi
unerwünschte Person


Verfasst am:
25. Feb 2006, 21:00
Rufname:
Wohnort: Straubing

AW: Spezialist für VBA ist notwendig - !! Dringend!! - AW: Spezialist für VBA ist notwendig - !! Dringend!!

Nach oben
       

Hallo christian,

ich bin erst seit Heute wieder in diesem Forum aktiv, aber irgendwo habe ich schon gelesen das hier auch Dateien hochgeladen werden können.

Schicke mir mal die Datei an Hajo.Ziplies at web.de
Schreibe mal eine genaue Anleitung, wo ich was machen soll und was dann passieren soll. Das ist mir bisher nicht so ganz klar.

Gruß Hajo
Hajo_Zi
unerwünschte Person


Verfasst am:
25. Feb 2006, 21:31
Rufname:
Wohnort: Straubing

AW: Spezialist für VBA ist notwendig - !! Dringend!! - AW: Spezialist für VBA ist notwendig - !! Dringend!!

Nach oben
       

Hallo Christian,

ich habe Deine Datei erhalten. Die Beschreibung ist nich so besonders.
Eintragen in P2 interpretiere ich mal als Zelle P2, Eintragungen in P3 bis P65536 sollen nicht berücksichtigt werden.

Der Teil
"in Ta1 sollte dann ein Zeitstempel gesetzt werden der mir nach 24 stunden die Zeile zb. orange färbt und nach 36 std die Zeile hellblau färbt."
läst sich mit bedingter Formatierung lösen.

Bei
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
steht
If Sh.Name Like ThisWorkbook.Sheets("Workbook_Config").Cells(3, 2).Value Then
Warum dieser Vergleich die Tabelle ist doch leer?

Das sind nur ein paar Punkte die mir aufgefallen sind ohne das ich schon mit Eingaben angefangen habe.

Größere Dateien sollte man schon Zippen, nicht jeder hat eine Standleitung. Mich stört die Größe nicht ich habe da nur eine Grenze von 4 MB. Für den Zugang bezahle ich eine Preis unabhängig von der Menge.


Gruß Hajo
wingate3000
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Feb 2006, 21:44
Rufname:
Wohnort: Wien

AW: Spezialist für VBA ist notwendig - !! Dringend!! - AW: Spezialist für VBA ist notwendig - !! Dringend!!

Nach oben
       

Hallo hajo
verzeih das ich file nicht gezippt geschickt habe.

Also
Workbook Config ist die schrift nur weis Zeile .
"Eintragen in P2 interpretiere ich mal als Zelle P2, Eintragungen in P3 bis P65536 sollen nicht berücksichtigt werden"
Ja sind die Zellen und sind bis genau 400 berücksichtigt( mehr einträge gibts normal nicht am Tag). Hier solte wenn Ta eingetragen wird, die Zeile nach TA1 automatisch in Ta1 kopiert werden.
Im sheet x1 habe ich einen Zeitstempel, aber hier sehe ich leider nicht wenn irgendwas im Sheet _1.1 oder_2.2 geändert wird, nur wenn das kürzel geändert wird.
Die 24 Std und 36 std habe ich schon mal mit beding. form versucht aber hat nur alle anderen werte markiert nicht die relevanten.

sollte ich noch was vergessen haben, bitte rühren
lg Chris
Hajo_Zi
unerwünschte Person


Verfasst am:
25. Feb 2006, 21:52
Rufname:
Wohnort: Straubing

AW: Spezialist für VBA ist notwendig - !! Dringend!! - AW: Spezialist für VBA ist notwendig - !! Dringend!!

Nach oben
       

Hallo Christian,

Dateien sollte man ohne Passwort verschicken. Es soll was aus de Tabelle ausgelesen werden und ich kann nicht mal nachsehen was dort steht.

"Ja sind die Zellen und sind bis genau 400 berücksichtigt( mehr einträge gibts normal nicht am Tag). Hier solte wenn Ta eingetragen wird, die Zeile nach TA1 automatisch in Ta1 kopiert werden. "

Wo stand bisher was das die Zeillen nur kopiert werden sollen, wenn TA eingetragen wird?
Ich interpretiere das mal so das bei eintragen von "TA" in Zelle P2 bis P400 die Zeile nach TA1 kopiert werden soll?
Ich kümmere mich erstmal nur um ein Problem.

Hast Du ein Flatrate? Hast Du Skype?

Gruß Hajo
wingate3000
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Feb 2006, 22:00
Rufname:
Wohnort: Wien

AW: Spezialist für VBA ist notwendig - !! Dringend!! - AW: Spezialist für VBA ist notwendig - !! Dringend!!

Nach oben
       

Hallo hajo

es sollte kein passwort vorhanden sein, wenn eines da ist da von einem Makro also leer.
Habe flatrate kein VOIP
vielleicht habe ich auch nuer die falsch datei geschickt von dem vielen Probieren. Immer anders speichern wenn mal was ging!
zur not versuch mal *********
gruss aus wien


Zuletzt bearbeitet von wingate3000 am 25. Feb 2006, 22:16, insgesamt einmal bearbeitet
Hajo_Zi
unerwünschte Person


Verfasst am:
25. Feb 2006, 22:10
Rufname:
Wohnort: Straubing

AW: Spezialist für VBA ist notwendig - !! Dringend!! - AW: Spezialist für VBA ist notwendig - !! Dringend!!

Nach oben
       

Hallo Christian,

Passwörter sollte man nicht im Forum schreiben. Es war auch falsch. Die Tabelle "Workbook..." ist geschützt mit Passwort.
zu dem Teil

Zitat:

Wo stand bisher was das die Zeillen nur kopiert werden sollen, wenn TA eingetragen wird?
Ich interpretiere das mal so das bei eintragen von "TA" in Zelle P2 bis P400 die Zeile nach TA1 kopiert werden soll?


kam keine Antwort.

Skype benutzt Du nicht?

Gruß Hajo
wingate3000
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Feb 2006, 22:16
Rufname:
Wohnort: Wien

AW: Spezialist für VBA ist notwendig - !! Dringend!! - AW: Spezialist für VBA ist notwendig - !! Dringend!!

Nach oben
       

@ hajo

Habe kein skyp. breitband ja . file offen ist unterwegs.
lg
chris
Hajo_Zi
unerwünschte Person


Verfasst am:
25. Feb 2006, 22:20
Rufname:
Wohnort: Straubing


AW: Spezialist für VBA ist notwendig - !! Dringend!! - AW: Spezialist für VBA ist notwendig - !! Dringend!!

Nach oben
       

Hallo Christian,

zum Zitat kam immer noch keine Antwort.
Mir scheint ich bekommt das Problem Buchstabenweise,

Gruß Hajo


Zuletzt bearbeitet von Hajo_Zi am 25. Feb 2006, 22:28, insgesamt einmal bearbeitet
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite 1, 2  Weiter
Diese Seite Freunden empfehlen

Seite 1 von 2
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum 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 nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Bräuche dringend Hilfe 5 Daniel1506 285 28. Jan 2008, 14:17
Philotech Bräuche dringend Hilfe
Keine neuen Beiträge Excel Formeln: Brauche dringend bitte Hilfe ! 4 Gast 393 25. Jan 2008, 16:08
Gast Brauche dringend bitte Hilfe !
Keine neuen Beiträge Excel Formeln: Brauche ganz ganz Dringend Hilfe (c0bRa: Sverweis?) 7 Deemon 597 17. Jan 2008, 13:04
Deemon Brauche ganz ganz Dringend Hilfe (c0bRa: Sverweis?)
Keine neuen Beiträge Excel Formeln: brauche dringend hilfe! 4 Jens87 286 12. Dez 2007, 16:36
Jens87 brauche dringend hilfe!
Keine neuen Beiträge Excel Formeln: Wenn-Dann-Formel gesucht! DRINGEND!!!!!! 8 Saarländerin81 593 06. Dez 2007, 12:22
raefe Wenn-Dann-Formel gesucht! DRINGEND!!!!!!
Keine neuen Beiträge Excel Formeln: Brauch dringend Hilfe!!! 2 newschoola 400 16. Nov 2007, 08:59
newschoola Brauch dringend Hilfe!!!
Keine neuen Beiträge Excel Formeln: Dringend Hilfe benötigt bei Aufbau Formel 1 Sele81 503 15. Nov 2007, 18:41
ransi Dringend Hilfe benötigt bei Aufbau Formel
Keine neuen Beiträge Excel Formeln: wenn-Formel viel zu lang Bitte dringend um Eure Hilfe 17 Hummer77 1107 08. Okt 2007, 20:26
Hummer77 wenn-Formel viel zu lang Bitte dringend um Eure Hilfe
Keine neuen Beiträge Excel Formeln: Brauche dringend mal hilfe!!! 6 Gast 487 03. Sep 2007, 20:33
Gast Brauche dringend mal hilfe!!!
Keine neuen Beiträge Excel Formeln: DRINGEND Hilfe benötigt bei einer Formel -> ich verzweife 2 Gast Benny 704 25. Apr 2007, 11:39
Gast Benny DRINGEND Hilfe benötigt bei einer Formel -> ich verzweife
Keine neuen Beiträge Excel Formeln: Brauche Dringend hilfe.. ka, was die Formel bedeutet 1 ebola 787 10. Jan 2007, 20:22
ransi Brauche Dringend hilfe.. ka, was die Formel bedeutet
Keine neuen Beiträge Excel Formeln: Hilfe..benötige unbedingt eine Formel!!!!!!!!Dringend!!!! 10 tim1985 1115 17. Aug 2006, 12:51
Gast Hilfe..benötige unbedingt eine Formel!!!!!!!!Dringend!!!!
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage