|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
14.12.2010 10:36:55 |
- |
|
|
|
14.12.2010 12:44:33 |
Severus |
|
|
|
14.12.2010 13:48:17 |
- |
|
|
|
14.12.2010 13:55:55 |
Severus |
|
|
|
14.12.2010 14:09:24 |
- |
|
|
|
14.12.2010 14:27:17 |
Severus |
|
|
|
14.12.2010 14:32:27 |
Severus |
|
|
 Aw:Aw:Mit MsgBox Datei öffnen lassen und Zellen ko |
14.12.2010 14:55:13 |
- |
|
|
|
14.12.2010 14:36:02 |
- |
|
|
|
14.12.2010 14:38:05 |
Severus |
|
|
Von:
- |
Datum:
14.12.2010 14:55:13 |
Views:
1304 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Mit MsgBox Datei öffnen lassen und Zellen ko |
Severus schrieb am 14.12.2010 14:32:27:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const strDATEI2PFAD As String = "\\192.168.10.254\lwg\datei2.xls" ' Hier den vollständigenPfad für Datei2 eingeben
Const strDATEI2NAME As String = "datei2.xls" 'Hier den Dateinamen für Datei2 eingeben
Dim xlWB As Excel.Workbook
Dim bolVorhanden As Boolean
Dim lngFreieZeile As Long
Dim lngANSW as Long
lngANSW = MsgBox("Arbeit anlegen?", vbQuestion + vbYesNo, "Abfrage...")
If lngANSW = 7 Then Exit Sub
bolVorhanden = False
If Target.coulmn = 4 Then
For Each xlWB In Application.Workbooks
If UCase(xlWB.Name) = UCase(strDATEI2NAME) Then
bolVorhanden = True
Exit For
End If
Next
If bolVorhanden = False Then
Set xlWB = Workbooks.Open(strDATEI2PFAD)
Else
Set xlWB = Workbooks(strDATEI2NAME)
End If
With xlWB.Sheets(1)
lngFreieZeile = .Cells(.Cells.Rows.Count, 10).End(xlUp).Row + 1
.Cells(lngFreieZeile, 12) = Target
.Cells(lngFreieZeile, 20) = Target.Offset(0, 5)
.Cells(lngFreieZeile, 13) = Target.Offset(0, 9)
End With
Cancel = True
Else
Exit Sub
End If
Set xlWB = Nothing
End Sub
Sorry. Hatte die MessageBox vergessen.
Severus
Spitze, läuft... :-) |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
14.12.2010 10:36:55 |
- |
|
|
|
14.12.2010 12:44:33 |
Severus |
|
|
|
14.12.2010 13:48:17 |
- |
|
|
|
14.12.2010 13:55:55 |
Severus |
|
|
|
14.12.2010 14:09:24 |
- |
|
|
|
14.12.2010 14:27:17 |
Severus |
|
|
|
14.12.2010 14:32:27 |
Severus |
|
|
Aw:Aw:Mit MsgBox Datei öffnen lassen und Zellen ko |
14.12.2010 14:55:13 |
- |
|
|
|
14.12.2010 14:36:02 |
- |
|
|
|
14.12.2010 14:38:05 |
Severus |
|
|