Thema Datum  Von Nutzer Rating
Antwort
Rot Spalten löschen
09.08.2019 12:36:40 Matthias
NotSolved
09.08.2019 12:55:38 Torsten
NotSolved
09.08.2019 15:33:39 Gast26624
NotSolved
09.08.2019 15:45:52 Torsten
NotSolved
09.08.2019 15:56:13 Gast16243
NotSolved
12.08.2019 11:13:03 Torsten
NotSolved
12.08.2019 10:51:07 Gast70117
NotSolved
12.08.2019 11:23:50 Gast54642
NotSolved
12.08.2019 15:25:15 Gast70117
NotSolved

Ansicht des Beitrags:
Von:
Matthias
Datum:
09.08.2019 12:36:40
Views:
53
Rating: Antwort:
  Ja
Thema:
Spalten löschen

Hallo Wissende, 

ich habe folgenden VBA Code, wie muss ich diesen Ergänzen, dass im Tabellen Montagefirma 

die Spalten A+B gelöscht werden bzw. erst gar nicht übertragen werden. 

 

Danke im Voraus für die Hilfe

 

Matthias

 

 

 

Sub Übertrag_Montagefirma()
Dim loAnz As Long, loLetzte As Long
Dim raBereich As Range, raZelle As Range
    
Application.ScreenUpdating = False
    
With Worksheets("Montagefirma")
    .Range("A1:AA" & .Cells(.Rows.Count, 1).End(xlUp).Row).Clear
    End With
With Worksheets("Terminplan")
    .Columns("A:B").Hidden = False
    Set raBereich = .Range("B1:B" & .Cells(.Rows.Count, "B").End(xlUp).Row)
    For Each raZelle In raBereich.SpecialCells(xlCellTypeVisible)
        If raZelle.Text = .Range("F6").Text Then
            raZelle.EntireRow.SpecialCells(xlCellTypeVisible).Copy
            loAnz = loAnz + 1
            With Worksheets("Montagefirma")
                loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row
                If .Cells(1, "A") = "" Then loLetzte = 1
                .Cells(loLetzte, "A").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
                .Cells(loLetzte, "A").PasteSpecial Paste:=xlPasteFormats
            End With
        End If
    Next raZelle
    .Columns("A:B").Hidden = True
End With
Application.CutCopyMode = True
MsgBox "Es wurden " & loAnz & " Sätze übertragen."
              
Set raBereich = Nothing
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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 markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Spalten löschen
09.08.2019 12:36:40 Matthias
NotSolved
09.08.2019 12:55:38 Torsten
NotSolved
09.08.2019 15:33:39 Gast26624
NotSolved
09.08.2019 15:45:52 Torsten
NotSolved
09.08.2019 15:56:13 Gast16243
NotSolved
12.08.2019 11:13:03 Torsten
NotSolved
12.08.2019 10:51:07 Gast70117
NotSolved
12.08.2019 11:23:50 Gast54642
NotSolved
12.08.2019 15:25:15 Gast70117
NotSolved