Thema Datum  Von Nutzer Rating
Antwort
24.12.2018 15:04:01 Tobi
NotSolved
Blau Tabellenübergreifendes Makro
24.12.2018 15:37:04 Gast30458
NotSolved
24.12.2018 20:31:55 Mackie
NotSolved

Ansicht des Beitrags:
Von:
Gast30458		 Datum:
24.12.2018 15:37:04		 Views:
435		 Rating:
     
Antwort:
  Ja
Thema:
Tabellenübergreifendes Makro

Hallo Tobi,

du solltest den Code in einer lesbaren Form posten. Der Internet-Explorer hat da ein Problem damit. Nutze zukünftig einen anderen Browser, z.B. Firefox. Dann wird dir in der Icon-Leiste oberhalb des Eingabefensters eine rote Klammer mid Code angeboten. Über die kannst du den Code in einer lesbaren Form darstellen.

Hier der Code mit einer Schleife über alle Blätter der Mappe.

Sub ZeilePlus()
Dim Was As String, fA As String
Dim c As Range, ws As Worksheet

Was = "Funkgeräte"

For Each ws In ThisWorkbook.Worksheets
    With ws.Cells
        Set c = .Find(Was, LookIn:=xlValues)
        If Not c Is Nothing Then
            fA = c.Address
            Do
                .Rows(c.Row + 1).Insert
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> fA
        End If
    End With
Next ws
End Sub

 

Gruß Werner

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:



  • 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
24.12.2018 15:04:01 Tobi
NotSolved
Blau Tabellenübergreifendes Makro
24.12.2018 15:37:04 Gast30458
NotSolved
24.12.2018 20:31:55 Mackie
NotSolved