Fenster springen untereinander

Diskutiere und helfe bei Fenster springen untereinander im Bereich Microsoft Office im Windows Info bei einer Lösung; Ich habe 2 Excel Fenster offen. Mit einer Makro kopiere ich eine Zeile von einem Fenster zu anderen Fenster. Das klappte jetzt tadelos, aber seit heute... Dieses Thema im Forum "Microsoft Office" wurde erstellt von SylvieDi, 16. November 2018.

  1. SylvieDi
    SylvieDi Gast

    Fenster springen untereinander


    Ich habe 2 Excel Fenster offen. Mit einer Makro kopiere ich eine Zeile von einem Fenster zu anderen Fenster. Das klappte jetzt tadelos, aber seit heute morgen springt das 2. Fenster unter das 1. Fenster wenn die Makro fertig ist.

    Was könnte das sein?

    Vielen Dank im Voraus
     
  2. Augustine_E Win User

    Fenster springen untereinander

    Hallo Sylvie,

    danke für die Rückmeldung.

    Sie können diese Fragen im TechNet-Forum stellen, meine Kollegen dort haben mehr Erfahrung in diesem Bereich.

    Wir freuen uns auf Ihr Feedback.

    LG

    AEG
  3. Claus Busch Win User

    Fenster springen untereinander

    Hallo Sylvie,

    sehr wahrscheinlich arbeitest du mit SELECT und aktivierst damit die 2. Instanz.

    Poste mal deinen Code zum Kopieren.

    Claus
  4. SylvieDi Win User

    Fenster springen untereinander

    hat jetzt fast 10 Jahre funktionniert bis heute
  5. SylvieDi Win User

    Fenster springen untereinander

    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next

    Application.OnKey "~", ""
    Application.OnKey "{ENTER}", ""

    Dim KeyCells As Range
    Dim SourceWorkbook As String
    Dim TargetWorkbook As String
    Dim SourceSheet As String
    Dim TargetSheet As String
    Dim SourceCol As Integer

    '=========== CELL RANGE ============

    Set KeyCells = Range("E3:E1000")

    '===================================

    '========== TARGET FILE ============

    TargetWorkbook = "Comptes.xlsx"

    '===================================

    '========= Source Col ==============

    SourceCol = 5

    '===================================

    SourceWorkbook = ThisWorkbook.Name

    SourceSheet = ActiveSheet.Name
    SourceRow = ActiveCell.Row

    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
    If Not IsEmpty(currentRowValue) Or Target.Value <> "" Then
    TargetSheet = Target.Value
    If TargetSheet <> "" Then
    Call SetValues(SourceWorkbook, SourceSheet, TargetWorkbook, TargetSheet, SourceRow, SourceCol)
    End If
    End If
    End If
    End Sub

    Sub SetValues(SourceWorkbook, SourceSheet, TargetWorkbook, TargetSheet, SourceRow, SourceCol)
    On Error Resume Next
    Dim Workbook As String, Worksheet As String
    Dim Field As String, Target As String

    Dim rowCount As Integer, currentRow As Integer
    Dim currentRowValue As String

    Workbook = Application.ActiveWorkbook.Name

    Field = ActiveCell.Address
    Target = TargetValue
    ActiveCell.EntireRow.Select

    rowCount = 10000

    If WorksheetFunction.CountA(Selection) = 0 Then
    MsgBox ("Source is empty line!")
    Exit Sub
    End If

    Selection.Copy

    Windows(TargetWorkbook).Activate
    If Err.Number <> 0 Then
    TargetWorkbook = Replace(TargetWorkbook, ".xlsm", "")
    TargetWorkbook = Replace(TargetWorkbook, ".xlsx", "")
    TargetWorkbook = Replace(TargetWorkbook, ".xls", "")
    Err.Number = 0
    Windows(TargetWorkbook).Activate
    If Err.Number <> 0 Then
    MsgBox ("Comptes is not open or cannot be accessed!")
    Exit Sub
    End If
    End If

    Sheets(CStr(TargetSheet)).Select

    If Err.Number <> 0 Then
    MsgBox ("Sheet " & TargetValue & " does not exist!")
    Exit Sub
    End If

    For currentRow = 1 To rowCount
    currentRowValue = ActiveSheet.Cells(currentRow, SourceCol)
    If IsEmpty(currentRowValue) Or currentRowValue = "" Then
    ActiveSheet.Cells(currentRow, SourceCol).Select
    currentRow = rowCount
    End If
    Next

    ActiveCell.EntireRow.Insert
    ActiveSheet.Paste
    Workbooks(Workbook).Worksheets(Worksheet).Activate
    Range(Field).Select
    Application.CutCopyMode = False


    Err.Number = 0
    Windows(SourceWorkbook).Activate
    If Err.Number <> 0 Then
    SourceWorkbook = Replace(SourceWorkbook, ".xlsm", "")
    SourceWorkbook = Replace(SourceWorkbook, ".xlsx", "")
    SourceWorkbook = Replace(SourceWorkbook, ".xls", "")
    Err.Number = 0
    Windows(SourceWorkbook).Activate
    If Err.Number <> 0 Then
    Exit Sub
    End If
    End If

    Sheets(CStr(SourceSheet)).Select

    For currentRow = SourceRow To rowCount
    currentRowValue = ActiveSheet.Cells(currentRow, SourceCol).Value
    If IsEmpty(currentRowValue) Or currentRowValue = "" Then
    ActiveSheet.Cells(currentRow, SourceCol).Select
    Exit For
    End If
    Next
    ActiveSheet.Cells(currentRow, 1).Select
    End Sub
  6. JosefRosenhammer Win User

    Einrichtung vom Mircosoft Outlook scheitert für T-online und für web.de, Mit Thunderbird funktioniert es sofort.

    Über die manuell Einrichtung hatte ich ich es auch schon mehrfach probiert.

    Nach der Eingabe des Kennwort spring wieder ein Fenster auf in der ich das Kennwort wiederholt eingeben soll.

    Dies ebenfalls gemacht und das Fenster zur widerholten Eingabe des Kennworts spring immer wieder auf.

    :-(
  7. User Advert


    Hi,

    willkommen im Windows Forum!
Thema:

Fenster springen untereinander - Microsoft Office

Die Seite wird geladen...

Fenster springen untereinander - Similar Threads - Fenster springen untereinander

Forum Datum

Excel Verknüpfungen untereinander in Teams, wie funktioniert das???

Excel Verknüpfungen untereinander in Teams, wie funktioniert das???: Ich möchte gern eine Datei mit einer anderen in Excel verknüpfen, bis jetzt gingen mir die Verknüpfungen beim Hochladen immer verloren. Was mache ich Falsch??
Microsoft Office 18. Februar 2021

Untereinander stehende Zellen in einer Zelle Zusammenfügen

Untereinander stehende Zellen in einer Zelle Zusammenfügen: Hallo Zusammen, ich habe folgendes Anliegen und hoffe, dass mir jemand aus der community weiterhelfen kann. Ich habe eine Exceltabelle mit Kundenpreisen welche in eine ERP-Software importiert...
Microsoft Office 13. März 2019

Mehrere Tabellenblätter untereinander kopieren

Mehrere Tabellenblätter untereinander kopieren: Hallo zusammen, auch ich möchte gern Tabellenblättern in einem Tabellenblatt untereinander zusammenfassen. Meine Kenntnisse in Sachen Makros sind jedoch noch nicht ausgereift genug....
Microsoft Office 19. Februar 2019

Shortcut um aus der Fußnote zurück in den Text zu springen

Shortcut um aus der Fußnote zurück in den Text zu springen: Guten Tag. Mit Strg+Alt+F kann man im Text eine Fußnote erzeugen und die Einfügemarke springt zu der neu erstellten Fußnote. Aber mit welche Shortcut kann man aus der Fußnote wieder zurück an...
Microsoft Office 29. August 2018

Bei den Emails zu einem bestimmten Datum springen?

Bei den Emails zu einem bestimmten Datum springen?: Hallo, wie bekomme ich es hin, zu einem bestimmten Datum bei OnlineOutlook zu springen. Vor der UpdateVersion gab es früher mal ein Feld "gehe zu Datum...". Möchte mein Emailverlauf vom...
Outlook.com 2. Juli 2018

Skype for Business Videokonferenzen mit mehreren Teilnehmern: Video-Fenster auch untereinander?

Skype for Business Videokonferenzen mit mehreren Teilnehmern: Video-Fenster auch untereinander?: Liebe Community, wir führen des Öfteren Videokonferenzen mit mehreren Teilnehmern durch. Die Teilnehmer erscheinen jeweils nebeneinander. Das Problem: Bei vielen Teilnehmern werden die...
Microsoft Office 24. April 2018

Word 2007 - Springen des Cursors

Word 2007 - Springen des Cursors: In meinem Word 2007 (Version Office Home and Student 2007) kommt es beim Schreiben immer wieder vor, dass der Cursor mitten im Schreibfluss an eine Stelle weiter oben im Text springt und ich dann...
Microsoft Office 2. November 2016
Fenster springen untereinander solved
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.