Verwandte Themen

Rosenmary
04.02.2022, 18:14
Beitrag wurde 1 Mal erneut eingestellt
Sollte man in einer internen Bewerbung auf alle Anforderungen an den Bewerber einzeln eingehen und auch Defizite zugeben?

Hallo,

ich möchte mich intern auf eine bei uns in der Firma ausgeschriebene Stelle bewerben.

Die gesuchte Ausbildung, Soft Skills und gute Englischkenntnisse bringe ich mit.

Jedoch werden gute Kenntnisse in MS Office gewünscht. Bei uns in der Firma wurde jahrzehntelang mit Star Office, Open Office und Libre Office gearbeitet und auch privat habe ich eher Erfahrung damit.

Ist zwar im Prinzip das Gleiche, aber einige Funktionen sind doch woanders und erfordern etwas Suche. Auch habe ich hauptsächlich Berichte und Tabellenkalkulationen bearbeitet, auch kleinere Präsentationen, bin aber nicht firm in allen Möglichkeiten, die diese Programme bieten (z.B. kenne ich mich nicht mit Makros aus, mit Diagrammen, die über Linien- und Balkendiagramme hinausgehen usw.).

Ausgeschrieben ist eine Stelle im Qualitätswesen, Richtung Sachbearbeitung, Planung, Zertifizierung....

Würdet Ihr in der schriftlichen Bewerbung angeben, welche Kenntnisse Ihr in MS Office habt oder einfach das Vorstellungsgespräch abwarten und dann darauf eingehen?

Ansonsten passt die Stelle von den Fähigkeiten und der Berufserfahrung wie die Faust aufs Auge. Aktuell arbeite ich noch im technischen Bereich, dem Projektmanagement usw. und brauche Office für die Berichtserstellung und Auswertungen.

Diese gehen in der von mir gewählten Form problemlos durch Meetings. Allerdings wäre die neue Position mit Kunden- und Lieferantenkontakt im In- und Ausland und meine Präsentationen bleiben optisch deutlich hinter denen der Chefsekretärin zurück.

Ich wäre auch bereit, eine Office-Schulung mitzumachen. Diese werden sogar gelegentlich in der Firma angeboten.

Was würdet Ihr machen?

Arbeit, Beruf, Office, Bewerbung, Job, Microsoft Office, Präsentation, Büro, Bewerber, Firma, Lebenslauf, Personalabteilung, Ausbildung und Studium, Beruf und Büro
5 Antworten
fatih575757
23.12.2021, 12:33
VBA Dateiauswahl - Bei Abbruch Laufzeitfehler 5, jemand Ideen?

Hallo zusammen,

was müsste ich hinzufügen, um den Laufzeitfehler 5 zu umgehen? Wenn ich den VBA-Code ausführe, öffnet sich das Fenster für den Import von DAT-Dateien. Drücke ich auf Abbrechen, erscheint der Laufzeitfehler 5. Vermerkt wird der Code "Set F = fs.GetFolder(strPfad)". Wo und welchen Code müsste ich hinzufügen, um den Fehler zu beheben? Vielen Dank im Voraus. :)

Sub Schaltfläche1_Klicken()
'
'
'*** Öffnen von DAT-Dateien
Dim strText As String, strFilter As String

strText = "Bitte eine Auswertung Auswählen"
strFilter = "DAT-Dateien (*.DAT), *.DAT"""
strAuswahl = Application.GetOpenFilename(strFilter, 1, strText)
strPfad = Pfad_ermitteln(strAuswahl)
'
Set fs = CreateObject("Scripting.FileSystemObject")
Set F = fs.GetFolder(strPfad)
Set fc = F.Files

If ActiveSheet Is Nothing Then Workbooks.Add
For Each File In fc
    Zeile = Cells(65000, 1).End(xlUp).Row + 2
    strEinfügen = Cells(Zeile, 1).Address
    strAuswahl = File.Path

    'Einfügen
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & strAuswahl _
        , Destination:=Range(strEinfügen))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileDecimalSeparator = "."
        .TextFileThousandsSeparator = ","
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
  End With
  Range(strEinfügen).QueryTable.Delete
Next
End Sub
_______________________________

 Function Pfad_ermitteln(ByVal strAuswahl As String) As String
 
 For i = Len(strAuswahl) To 1 Step -1
    If Mid(strAuswahl, i, 1) = "\" Then
        Pfad_ermitteln = Left(strAuswahl, i - 1)
        Exit Function
    End If
Next
End Function
Computer, Microsoft Excel, Microsoft Office, Makro, VBA, Code
3 Antworten

Meistgelesene Beiträge zum Thema Microsoft Office
Mehr meistgelesene Fragen zu Microsoft Office