Thema Datum  Von Nutzer Rating
Antwort
Rot Excel-file in einem Makro aktualisieren
 22.09.2020 16:47:44 staeme
NotSolved
23.09.2020 07:46:17 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
staeme		 Datum:
22.09.2020 16:47:44		 Views:
965		 Rating:
     
Antwort:
  Ja
Thema:
Excel-file in einem Makro aktualisieren

Hallo zusammen

Ich habe ein Excel-File, auf welches von verschiedenen Computern zugegriffen und von den Benutzern auch geändert werden soll. Die neuen Einträge werden immer in der zweiten Zeile getätigt und durch einen Klick auf eine Schaltfläche eine Zeile nach unten verschoben, damit die "Eingabezeile" wieder frei ist. Das klappt alles wunderbar auf einem Computer. 

Dann gebe ich das File zur gemeinsamen Bearbeitung frei, leider werden dann die Anpassungen nicht "life" übernommen, was in diesem Fall extrem wichtig ist.

Damit die Änderungen von Computer 1 auch auf Computer 2 umgehend ersichtlich sind und nicht überschrieben werden, habe ich im Makro der Schaltfläche eine RefreshAll einfügen wollen. Leider schluckt das Makro meine Idee nicht. 

Was mache ich falsch?

Gibt es eine bessere herangehensweise?

Unten seht ihr den Code.

Die Zeile unmittelbar nach "' Aktualisieren" ist das Problem.

Besten Dank für die Hilfe.

Lg staeme

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub Finn_Comfort_Übertragen()
 
' Aktualisieren
 
    Workbooks("Warenwirtschaft.xlsm").RefreshAll
'
'  Schaltfläche1_Klicken Makro
'
'   Oben Zeile einfügen
 
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("2:2").Font.Bold = False
    Range("L2").Select
     
'   Button nach oben verschieben
 
    With Worksheets("Finn Comfort intern")
      With .Shapes("Schaltfläche 1")
        .Top = .TopLeftCell.Offset(-1, 0).Top
      End With
    End With
     
'   Daten in Bestellliste kopieren
 
    Sheets("Finn Comfort").Select
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("Finn Comfort intern").Select
    Range("D3:G3").Select
    Selection.Copy
    Sheets("Finn Comfort").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("Finn Comfort intern").Select
     
    ActiveWorkbook.Save
     
End Sub

 

Ihre Antwort
  • 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: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Excel-file in einem Makro aktualisieren
 22.09.2020 16:47:44 staeme
NotSolved
23.09.2020 07:46:17 ralf_b
NotSolved