Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

In Datei auf Netzlaufwerk zugreifen

Betrifft: In Datei auf Netzlaufwerk zugreifen von: Andreas
Geschrieben am: 03.11.2014 16:43:15

Hallo Excelprofis,

Per UserForm schreibe ich mit nachfolgendem Code Daten in bestimmte Blätter meiner Mappe.

Nun soll die Mappe aber auf ein Netzlaufwerk.

Ich kann auf die Datei via IP: \\XXX.XX.XXX.XXX\Ordner1\Mappe01.xlsm

oder via verbundenem Netzlaufwerk z.B. T:\Mappe01.xlsm

zugreifen.

Wie muss der Code geändert werden, wenn zuerst geprüft werden soll ob die Mappe geöffnet ist? Und wie kann ich die Datei übers Netzwerk ansprechen? Das heißt, es soll in das Blatt geschrieben werden, welches ich per Combobox ausgewählt habe.

Ich hoffe ich habe mich verständlich ausgedrückt und mir kann Jemand helfen.

Private Sub CommandButton1_Click()

Sheets(ComboBox1.Value).Activate

If ComboBox2.ListIndex <= 7 Then

WerteEintragen1
Call AusblZeil01
Else

WerteEintragen2
Call AusblZeil02
End If

ActiveWorkbook.Save

End Sub

Function WerteEintragen1()
Dim i As Long
Dim iCbx As Integer
    Rows("4:19").Hidden = False
    Range("A1").Select
    
    If Not wks Is Nothing Then
        For i = 4 To 19
            If wks.Cells(i, 1).Value = "" Then
                
                wks.Cells(i, 1).Value = Me.ComboBox2.Value
                wks.Cells(i, 2).Value = "bis"
                wks.Cells(i, 3).Value = Me.ComboBox4.Value
                wks.Cells(i, 10).Value = Me.ComboBox6.List(ComboBox6.ListIndex, 0)
                wks.Cells(i, 4).Value = Me.TextBox1.Text
                wks.Cells(i, 5).Value = Me.TextBox2.Text
                wks.Cells(i, 6).Value = Me.ComboBoxStr.Value & " " & Me.TextBox4.Text
                wks.Cells(i, 7).Value = Me.ComboBox5.Value
                wks.Cells(i, 8).Value = Me.ComboBoxOrt.Text 'Ort
           For iCbx = 21 To 40
            If Me.Controls("ComboBox" & iCbx).Value <> "" Then
              wks.Cells(i, 9) = wks.Cells(i, 9) & Me.Controls("ComboBox" & iCbx).Value & " "
            End If
             Next iCbx
              wks.Cells(i, 9) = Left(wks.Cells(i, 9).Text, Len(wks.Cells(i, 9).Text) - 1)
                wks.Cells(i, 11).Value = Me.TextBox11.Text
                wks.Cells(i, 16).Value = "x"
                If CheckBoxZentr = True Then
                wks.Cells(i, 13).Value = "x"
                Else
                wks.Cells(i, 14).Value = "x"
                End If
                If CheckBoxTranspZ = True Then
                wks.Cells(i, 19).Value = "x"
                Else
                wks.Cells(i, 20).Value = "x"
                End If
                
                Exit For
            End If
        Next i
            
    End If
 
  
End Function


Function WerteEintragen2()
Dim i As Long
Dim iCbx As Integer
    If Not wks Is Nothing Then
        For i = 24 To 48
            If wks.Cells(i, 1).Value = "" Then
                
                wks.Cells(i, 1).Value = Me.ComboBox2.Value
                wks.Cells(i, 2).Value = "bis"
                wks.Cells(i, 3).Value = Me.ComboBox4.Value
                wks.Cells(i, 10).Value = Me.ComboBox6.List(ComboBox6.ListIndex, 0)
                wks.Cells(i, 4).Value = Me.TextBox1.Text
                wks.Cells(i, 5).Value = Me.TextBox2.Text
                wks.Cells(i, 6).Value = Me.ComboBoxStr.Value & " " & Me.TextBox4.Text
                wks.Cells(i, 7).Value = Me.ComboBox5.Value
                wks.Cells(i, 8).Value = Me.ComboBoxOrt.Text 'Ort
                For iCbx = 21 To 40
            If Me.Controls("ComboBox" & iCbx).Value <> "" Then
              wks.Cells(i, 9) = wks.Cells(i, 9) & Me.Controls("ComboBox" & iCbx).Value & " "
            End If
             Next iCbx
              wks.Cells(i, 9) = Left(wks.Cells(i, 9).Text, Len(wks.Cells(i, 9).Text) - 1)
                wks.Cells(i, 11).Value = Me.TextBox11.Text
                wks.Cells(i, 16).Value = "x"
                If CheckBoxZentr = True Then
                wks.Cells(i, 13).Value = "x"
                Else
                wks.Cells(i, 14).Value = "x"
                End If
                If CheckBoxTranspZ = True Then
                wks.Cells(i, 19).Value = "x"
                Else
                wks.Cells(i, 20).Value = "x"
                End If
                
                Exit For
            End If
        Next i
    End If
       
End Function


Danke fürs lesen!

mfg, Andreas

 

Beiträge aus den Excel-Beispielen zum Thema "In Datei auf Netzlaufwerk zugreifen"