Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1324to1328
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1324to1328
1324to1328
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Skript funktioniert nicht

VBA Skript funktioniert nicht
09.08.2013 12:52:51
Dominic
Hi,
der folgende VBA Code funktioniert bei mir nicht. Excel gibt mir eine Fehlermeldung für den Teil "ActiveSheet.paste" aus.
Woran liegt das? Habt Ihr eine Idee?
Sheets("Überblick").Select
Range("A27:P2341").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Export").Select
Range("B14:T2050").Select
Selection.ClearContents
Selection.FormatConditions.Delete
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
End With
Selection.FormatConditions.Delete
With Selection
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Rows("14:14").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.RowHeight = 15
Range("B14").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Skript funktioniert nicht
09.08.2013 13:11:37
Rudi
Hallo,
durch das Löschen des Bereichs wird die Zwischenablage geleert.
Erst löschen und dann kopieren und einfügen.
Gruß
Rudi

AW: VBA Skript funktioniert nicht
09.08.2013 14:01:56
Dominic
Okay, danke Rudi!
Wenn ich das so mache, passiert bei mir aber folgendes:
1) Excel springt in das Tabellenblatt Export
2) löscht alle definierten Zellen und Formate
3) springt wieder in das Tabellenblatt Überblick
und dann wieder in das Blatt Export
um die Daten einzufügen.
Ich möchte aber nicht, dass derjenige der die Datei nutzt, das aktiv "mitbekommt" also Excel muss natürlich so vorgehen und ich habe es so definiert, aber kann ich das auch für den User "unsichtbar" alles durchführen lassen? So dass ich mein Makro im Tabellenblatt Überblick starte und nachdem es vollständig ausgeführt wurde, wird mir einfach nur das Tabellenblatt Export mit enthaltenen / gerade kopierten Daten angezeigt?

Anzeige
AW: VBA Skript funktioniert nicht
09.08.2013 14:23:27
Rudi
Hallo,
aber kann ich das auch für den User "unsichtbar" alles durchführen lassen?
ja, ohne Select geht das.
Sub kopieren()
Application.ScreenUpdating = False
With Sheets("Export")
With .Range("B14:T2050")
.ClearContents
.FormatConditions.Delete
.Borders.LineStyle = xlNone
With .Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With .Font
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
End With
With .Cells
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
.RowHeight = 15
End With
End With
Sheets("Überblick").Range("A27:P2341") _
.SpecialCells(xlCellTypeVisible).Copy _
Sheets("export").Range("B14")
Sheets("Export").Activate
End Sub

Gruß
Rudi

Anzeige
AW: VBA Skript funktioniert nicht
12.08.2013 11:52:30
Dominic
Hi Rudi,
danke funktioniert soweit super.
Hab noch eine Ergänzung nicht beachtet.
Wie kann ich in diesem Skript noch hinzufügen, dass nur Spalte B im Blatt Export die Breite "57" zugewiesen wird, aber allen anderen Spalten die Standardbreite mit 15?
Habe es momentan so von dir übernommen:
Dim Ze As Long
If [B1] = 1 Then
Application.ScreenUpdating = False
With Sheets("Export")
With .Range("B14:T2050")
.ClearContents
.FormatConditions.Delete
.Borders.LineStyle = xlNone
With .Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With .Font
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
End With
With .Cells
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
.RowHeight = 15
.ColumnWidth = 15
'.UseStandardHeight = True
End With
End With
Sheets("Überblick").Range("B27:P2341") _
.SpecialCells(xlCellTypeVisible).Copy _
Sheets("export").Range("B14")
Sheets("Export").Activate
ElseIf [B1] = 2 Then
Application.ScreenUpdating = False
With Sheets("Export")
With .Range("B14:T2050")
.ClearContents
.FormatConditions.Delete
.Borders.LineStyle = xlNone
With .Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With .Font
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
End With
With .Cells
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
.RowHeight = 15
.ColumnWidth = 15
'.UseStandardHeight = True
End With
End With
Sheets("Überblick").Range("B27:P2341") _
.SpecialCells(xlCellTypeVisible).Copy _
Sheets("export").Range("B14")
Sheets("Export").Activate
'For Ze = 20 To 98 Step 6
'Rows(Ze).RowHeight = 4.5
'Next
For Ze = 81 To 2000 Step 6
Rows(Ze).RowHeight = 4.5
Next
End If
Anzeige

301 Forumthreads zu ähnlichen Themen

Wenn-Oder Formel über VBA funktioniert nicht
sharky1000

Hallo,
ich habe eine etwas komplexere Wenn-Oder Formel erstellt, welche ich über VBA in eine Zelle einfügen möchte.
Formel in E2:
=WENN(ODER(LINKS(D2;2)="M1";LINKS(D2;2)="M2";LINKS(D2;2)="M3";LINKS(D2;2)="M4";LINKS(D2;2)="M5"); LINKS(D2;1);WENN(LINKS(D2;2)="NM";LINKS(D2;2);WENN(LIN...
06.11.2008 14:11:01
Thread-ID: 1022285
7 Beiträge
Anzeige
Formel in VBA mit " funktioniert nicht
ChrisW

Hallo Leute,
ich möchte der Variablen Fo4 folgende Formel zuweisen:
Fo4 = "=SUMPRODUCT(('Detailed Table'!$G$4:$G$63556="PR")*(('Detailed Table'!$A$4:$A$63556)=$A3)*(('Detailed Table'!$J$4:$J$63556)))"
Excel meckert aber und markiert mir PR was wohl an den Anführungszeichen liegt die...
28.08.2009 15:22:19
Thread-ID: 1099200
6 Beiträge
VBA code funktioniert unter 2003 nicht korekt
alex

Hi
folgender code funktioniert an der stelle activesheet.paste unter 2003 nicht (unter 2007 ohne probleme. ich habe keine ahnung wieso da der befehl der selbe ist den excel 2003 benutzt. Sub Mängelliste() ' Mängelliste Makro On Error Resume Next 'überspringt fehler Workbooks("wartung.xl...
25.10.2009 19:10:33
Thread-ID: 1112051
9 Beiträge
Anzeige
VBA-Code funktioniert nicht jedesmal
WalterK

Hallo,
ich stelle mein Problem nochmals ein, vielleicht gibt es doch noch ein Lösung.
Den untenstehenden Code habe ich im Forum erhalten. Er ermöglicht mir das blockweise scrollen in Tabellen, die ich mehrmals täglich erhalte. Damit mir der Code immer zur Vergügung steht, habe ich ihn i...
31.08.2010 08:15:36
Thread-ID: 1174897
11 Beiträge
Speichern mit VBA:MS Excel funktioniert nicht mehr
Kha

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ein VBA-Skript geschrieben, das ca. 120.000 Datensätze (Verträge) nacheinander durchsucht, die Verträge eines Kunden in ein Array schreibt, mit diesen ein paar einfache Berechnungen anstellt und die Ergebnisse pro Kunde anschließend i...
17.09.2010 17:12:15
Thread-ID: 1178320
5 Beiträge
VBA- funktioniert nicht
Christian

Hallo und einen guten Morgen
ich habe in kleines Problem. Eine VBA Programmierung funktioniert unr auf Excel 2007.
Wenn ich es in Excel 2003 starten möchte bringt er folgende Meldung "Objekt unterstützt diese Eigenschaft od. Methode nicht". Vieleicht kann mir jemand den Datensatz ump...
12.10.2010 08:28:53
Thread-ID: 1181824
2 Beiträge
VBA-CommandButton funktioniert nicht richtig
Marko

Hallo zusammen,
ich habe aus meinen früherem Aufgabengebiet noch eine Datei mit einem ganzen Sack voll Makros drin. Die meisten benötige ich jetzt nicht mehr - aber mindestens eines ist dabei, dass ich gern wieder nutzen würde.
Das Makro blendet ein Fenster ein und listet darin alle Tab...
27.05.2011 13:30:15
Thread-ID: 1216327
4 Beiträge
VBA Matrix Function Ausgabe funktioniert nicht
gothino

Hallo zusammen,
habe eine Matrix-Funktion in VBA programmiert, also eine Funktion die ein Datenfeld ausgeben soll und daher mit Strg+Alt+Enter eingegeben wird.
Ausgegeben werden soll das Datenfeld Resultvector(1 to xn), ausgegeben wird aber immer nur genau der erste Wert Resultvector(...
22.10.2011 23:25:13
Thread-ID: 1235011
15 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
2
5
8
6
10
4
1
3
14
2
2
2
6
2
4
1
21
7
4
9
3
2
3
3