Office: Makro - Kombination aus Zeile löschen oder Text ersetzen

Helfe beim Thema Makro - Kombination aus Zeile löschen oder Text ersetzen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo miteinander, ich würde gerne folgendes Problem per Makro (nicht mit klassischen Formeln) lösen (wichtig, das Makro muss beim Öffnen starten): -... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Snoy, 15. April 2021.

  1. Snoy Neuer User

    Makro - Kombination aus Zeile löschen oder Text ersetzen


    Hallo miteinander,

    ich würde gerne folgendes Problem per Makro (nicht mit klassischen Formeln) lösen (wichtig, das Makro muss beim Öffnen starten):
    - wenn in Spalte A nichts steht -> gesamte Zeile löschen
    - wenn in Spalte A "nein" erscheint -> nur Text in Spalte D - F mit "anonymisiert" ersetzen.

    Ersteres habe ich wie folgt gelöst aber ich habe leider keine Ahnung, wie ich das kombinieren kann?:
    Private Sub Workbook_Open()
    lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row
    For t = lz To 2 Step -1
    If Cells(t, 1).Value = "" Then
    Rows(t).Delete Shift:=xlUp
    End If
    Next t
    End Sub

    Vielen Dank vorab für Eure Hilfe!
    Grüße
    Snoy
     
  2. Exl121150 Erfahrener User
    Hallo,

    in das Codemodul der Arbeitsmappe "DieseArbeitsmappe" (bzw. "ThisWorkbook") ist folgender VBA-Code zu kopieren:
    Code:
    Option Explicit
    
    Public Sub Workbook_Open()
      Dim lz As Long, Z As Long, S As Long
     
      'Im 1.Arbeitsblatt tue Folgendes:
      '1) Ist in der Spalte A eine Zelle leer,
      '       dann ist die gesamte Zeile, in der diese Zelle enthalten ist, zu entfernen.
      '2) Enthält in der Spalte A eine Zelle "nein",
      '       dann ist Inhalt in Spalte D - F dieser Zeile mit "anonymisiert" ersetzen.
     
      With Worksheets(1)
          lz = .Cells(.Rows.Count, 1).End(xlUp).Rows.Row
          For Z = lz To 2 Step -1
            Select Case .Cells(Z, 1).Value
              Case "":
                  .Rows(Z).Delete Shift:=xlUp
              Case "nein":
                  For S = 4 To 6
                     .Cells(Z, S).Value = "anonymisiert"
                  Next S
              Case Else:
                  'Tue nichts
            End Select
          Next Z
      End With
    End Sub
    
     
    Exl121150, 15. April 2021
    #2
    1 Person gefällt das.
  3. Snoy Neuer User
    Hallo Exl121150,

    ganz herzlichen Dank! Werde ich am Montag gleich ausprobieren :-)
    Viele Grüße & schönes Wochenende.
     
  4. Snoy Neuer User

    Makro - Kombination aus Zeile löschen oder Text ersetzen

    Guten Morgen Exl121150,

    eben getestet: fantastisch :-) ganz herzlichen Dank!!!!
    Grüße & guten Start in die Woche.
     
Thema:

Makro - Kombination aus Zeile löschen oder Text ersetzen

Die Seite wird geladen...
  1. Makro - Kombination aus Zeile löschen oder Text ersetzen - Similar Threads - Makro Kombination Zeile

  2. Makro zum Summieren

    in Microsoft Excel Hilfe
    Makro zum Summieren: Hallo Zusammen, in der Beispieldatei in Zeile 12, sind Ausschuss Teile eingetragen. z.B in Schicht 1 von Stunde 1 bis Stunde 8 ,13 Stück. Wobei in der letzen Zelle der Schicht1,also in J12 die...
  3. Access Formular aktualisieren durch Dropdown-Liste

    in Microsoft Access Hilfe
    Access Formular aktualisieren durch Dropdown-Liste: Hallo, ich bin ein absoluter Neuling in Access, und bin gerade dabei aus dienstlichen Gründen ein Nachschlagewerk in Access zu erstellen. Ziel des im Screenshot angehängten Formulars soll es...
  4. VBA Spalten aus- und einblenden trotz Blattschutz

    in Microsoft Excel Hilfe
    VBA Spalten aus- und einblenden trotz Blattschutz: Guten Tag Ich habe eine Übersicht, in dem die Urlaubszeiträume meiner Kollegen eingetragen werden sollen. Neben Namen, Vornamen und Zeitraum sollen noch weitere spezifische Daten eingetragen...
  5. Zeitstempel aus Stoppuhr bei Notizen

    in Microsoft Word Hilfe
    Zeitstempel aus Stoppuhr bei Notizen: Moin, lange gesucht und nichts gefunden, deshalb hier der Versuch: Ich will bei meinen Notizen einen Zeitstempel haben, der sich nicht an der eigentlich Zeit orintiert, sondern an einer Stoppuhr....
  6. Makro für Hintergrundfarben

    in Microsoft Word Hilfe
    Makro für Hintergrundfarben: Hi, Ich konnte Makros für Textfarben erstellen, damit ich vorgefertigte Farb-Icons im Menü habe. z.B. Sub fontRed() Selection.Font.ColorIndex = wdRed End Sub weiss jemand ob das auch mit...
  7. VBA Makro abbrechen durch Inputbox

    in Microsoft Word Hilfe
    VBA Makro abbrechen durch Inputbox: Hallo zusammen, dank Gerhard H aus diesem Forum habe ich das folgende Makro im Einsatz, bei dem eine Spalte einer Tabelle in Word auf einen vom Anwender eingegebenen Begriff durchsucht wird und...
  8. Excel07-Makro: alle Kombinationen von 0,0 bis 0,9 in 1,0

    in Microsoft Excel Hilfe
    Excel07-Makro: alle Kombinationen von 0,0 bis 0,9 in 1,0: Hallo! Ich möchte für meine Diplomarbeit (leider nicht in Informatik :-)) eine große Tabelle generieren. Diese Tabelle soll 10 Spalten haben. In den Zeilen sollen sich alle möglichen...
  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.
    Information ausblenden