19.11.2019, 11:19
(Dieser Beitrag wurde zuletzt bearbeitet: 19.11.2019, 12:13 von WillWissen.
Bearbeitungsgrund: Formatierung und Codetags
)
hallo in die runde und besonders an die vba-cracks,
bin neu hier (aber nich mit office generell) und erst recht ein absoluter noob in sachen makro/vba in excel.
sitze hier auf arbeit und hab noch dazu ne (uralt)version von office: 2002
weshalb ich mich an euch wende:
ich habe aus einem ziemlich schlichten prüfprotokoll eine art prüfprotokoll-vorlage erstellt (siehe anhang!), in der nur in bestimmten feldern (mit muster zu besseren erkennung) entweder freie texte oder aus ner dropdown-liste vorgaben zum ausfüllen verwendet werden können (blattschutz - noch aktiv, aber ohne PW!)).
desweiteren hab ich nach einiger recherche und "bastelei" sogar ein makro hinbekommen, welches mittels button im formular (grafik aus cliparts mit "makro zuweisen") das speichern der datei (unter verwendung einzelner zellen für den dateinamen) in einem bestimmten ordner erwirkt:
so weit. so gut ... ob das so sinn ergibt, weiß ich nich, aber es funktioniert zumindest bis dahin ... :19:
und nun kommt ihr ins spiel, denn wozu mir leider die kenntnisse fehlen, wie bewirke ich, dass:
1.- ich ein öfffnen des formulars in seitengröße/-breite erzwinge, egal wie groß der monitor des kollegen is, der es öffnet
2.- mit dem speichern der button aus der gespeicherten datei verschwindet
3.- die datei sich speichert und selbst schließt
4.- die bereiche, die bisher frei zur bearbeitung waren, gesperrt werden, damit bei nochmaligem öffnen der datei, diese nich überschrieben/geändert werden können ... und NEIN: eine sofortige speicherung als pdf is nich erwünscht, denn die datei muss später nochmals geöffnet und dabei dann andere werte geändert werden (is eben ein prüfprotokoll, das in 2 etappen bearbeitet wird, wobei die ergebnisse der "1.etappe" - wie bereits oben erwähnt NICH NOCHMAL geändert werden sollen/dürfen)
für vorschläge, lösungen, tipps und tricks besten dank vorweg!
bitte auch so schreiben, dass ich weiß, an welcher stelle von meinem existierenden makro ich was und wie einfügen muss
icke63
01_Prüfprotokolle KR_formular.xlt (Größe: 54,5 KB / Downloads: 2)
bin neu hier (aber nich mit office generell) und erst recht ein absoluter noob in sachen makro/vba in excel.
sitze hier auf arbeit und hab noch dazu ne (uralt)version von office: 2002
weshalb ich mich an euch wende:
ich habe aus einem ziemlich schlichten prüfprotokoll eine art prüfprotokoll-vorlage erstellt (siehe anhang!), in der nur in bestimmten feldern (mit muster zu besseren erkennung) entweder freie texte oder aus ner dropdown-liste vorgaben zum ausfüllen verwendet werden können (blattschutz - noch aktiv, aber ohne PW!)).
desweiteren hab ich nach einiger recherche und "bastelei" sogar ein makro hinbekommen, welches mittels button im formular (grafik aus cliparts mit "makro zuweisen") das speichern der datei (unter verwendung einzelner zellen für den dateinamen) in einem bestimmten ordner erwirkt:
Code:
Sub speichernpp()
Dim lw_pfad As String
lw_pfad = ActiveSheet.Range("L107").Value
lw_pfad = InputBox("Geben Sie hier das Laufwerk und den Pfad an, wo die Datei gespeichert werden soll." & Chr(13) & Chr(13) & "(Ihre Eingabe wird in (L108) als neuer Default-Wert gespeichert.)", "Datei speichern unter...", lw_pfad)
If lw_pfad = "" Then
MsgBox "Die Datei wird nicht gespeichert, da Sie [Abbrechen] gedrückt oder nichts eingegeben haben.", , "Abbruch"
Exit Sub
Else
If Right(lw_pfad, 1) <> "" Then lw_pfad = lw_pfad & ""
ActiveSheet.Range("L107").Value = lw_pfad
Rem MsgBox lw_pfad
ActiveWorkbook.SaveAs lw_pfad & "PP-KR_" & ActiveSheet.Range("B7").Value & Range("C7").Value & Range("d7").Value & Range("e7").Value & Range("f7").Value & ".XLS"
MsgBox "Die Datei wurde unter " & lw_pfad & ActiveSheet.Range("L108").Value & ActiveSheet.Range("L109").Value & "PP-KR_" & ActiveSheet.Range("B7").Value & Range("C7").Value & Range("d7").Value & Range("e7").Value & Range("f7").Value & ".xls gespeichert.", , "OK"
End If
End Sub
so weit. so gut ... ob das so sinn ergibt, weiß ich nich, aber es funktioniert zumindest bis dahin ... :19:
und nun kommt ihr ins spiel, denn wozu mir leider die kenntnisse fehlen, wie bewirke ich, dass:
1.- ich ein öfffnen des formulars in seitengröße/-breite erzwinge, egal wie groß der monitor des kollegen is, der es öffnet
2.- mit dem speichern der button aus der gespeicherten datei verschwindet
3.- die datei sich speichert und selbst schließt
4.- die bereiche, die bisher frei zur bearbeitung waren, gesperrt werden, damit bei nochmaligem öffnen der datei, diese nich überschrieben/geändert werden können ... und NEIN: eine sofortige speicherung als pdf is nich erwünscht, denn die datei muss später nochmals geöffnet und dabei dann andere werte geändert werden (is eben ein prüfprotokoll, das in 2 etappen bearbeitet wird, wobei die ergebnisse der "1.etappe" - wie bereits oben erwähnt NICH NOCHMAL geändert werden sollen/dürfen)
für vorschläge, lösungen, tipps und tricks besten dank vorweg!
bitte auch so schreiben, dass ich weiß, an welcher stelle von meinem existierenden makro ich was und wie einfügen muss
icke63
01_Prüfprotokolle KR_formular.xlt (Größe: 54,5 KB / Downloads: 2)