Live-Forum - Die aktuellen Beiträge
Datum
Titel
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#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1224to1228
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
1224to1228
1224to1228
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Erneuern benutzter Spalten

Erneuern benutzter Spalten
johannes
Hallo
Ich füge in mein Excel per VBA immer 2 Spalten hinzu um den alten stand zu sichern.
Jetzt ist es jedoch so das ich mittlerweile am rechten Rand angekommen bin und es dann den Fehler 400 gibt.
Um dies zu verhindern habe ich folgenden Code
If Cells.End(xlToRight).Column > 250 Then
Columns("IL:IV").Delete shift:=xlShiftToRight
'Range(Cells(1, 250), Cells(Rows.count, 256)).Delete shift:=xlShiftToRight
End If
Der Code macht auch das was er soll jedoch merkt Excel intern nicht das wieder was gelöscht wurde und so bekomme ich den Fehler 400 wieder.
Gibt es eine Funktion mit der ich excel sagen kann es soll sich vollkommen neu aktualisieren?
BG
johannes

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Erneuern benutzter Spalten
24.08.2011 10:51:23
Dirk
Hallo!
Probier doch mal:
xlShiftToLeft
Gruss
Dirk aus Dubai
AW: Erneuern benutzter Spalten
24.08.2011 10:58:10
johannes
Hallo,
Hilft leider nicht.
Gruss
johannes
AW: Erneuern benutzter Spalten
24.08.2011 11:06:34
Henrik
Hallo Johannes,
ich wußte gar nicht, dass diese Zeile funktioniert.
Columns("IL:IV").Delete shift:=xlShiftToRight
Da sollte, wenn überhaupt, xlShiftToLeft stehen (wie Dirk bereits erwähnt).
Ist denn deine Reihenfolge richtig?
Also erst letzte Spalte ermitteln, wenn zuviel dann löschen und dann einfügen?
und nicht: letzte Spalte ermitteln, einfügen, dann löschen?
Gruß Henrik
VBA: Spalten über Spaltenende einfügen
24.08.2011 11:06:37
NoNet
Hallo Johannes,
teste mal folgenden Code (z.B. in einem leeren Blatt), der bei mir fehlerfrei funktioniert - ohne "Error 400" :
Sub SpaltenEinfuegen()
Dim lngS As Long, lngAS As Long
lngAS = Int(Columns.Count / 10) 'Anzahl Spalten bei 10 Einfügeschritten
'10 mehr als maximale Spaltenanzahl
For lngS = 1 To Columns.Count + 10 Step lngAS
If [A1].End(xlToRight).Column > Columns.Count - lngAS Then
'Stop 'Hier erfolgt der Debug-Modus im Code - fortsetzen per F8-Taste
Columns(Columns.Count - lngAS + 1).Resize(, lngAS).Delete shift:=xlShiftToRight
'Range(Cells(1, 250), Cells(Rows.count, 256)).Delete shift:=xlShiftToRight
End If
Columns(1).Resize(, lngAS).Insert shift:=xlToRight
[A1] = "Spalte :"
[B1].Resize(, lngAS - 1) = lngS
Next
End Sub
Gruß, NoNet
Exceltreffen 28.-30.10.2011 in Chemnitz
Ein Treffen für alle Excel-Freunde und Besucher deutschsprachiger Excel-Foren.
Alle Infos - Programm - Anmeldung - Teilnehmerliste etc. gibt es auf
http://www.exceltreffen.de/index.php?page=211
Wir freuen uns auf euch...

Anzeige
AW: VBA: Spalten über Spaltenende einfügen
24.08.2011 13:15:38
johannes
Hallo NoNet.
Danke dein Code funktioniert auch bei mir. Habe dadurch festgestellt das es funktioniert wenn man das Makro direkt ausführt aber nicht wenn man es über einen Button startet wenn der Button auf der kopierenden spalte liegt. Da ich jedoch keinen Button in meiner Anwendung habe, zumindest keinen der auf der Arbeitsfläche liegt habe ich mit
durch 

Dim sha As Shape
For Each sha In Me.Shapes
Debug.Print sha.Name
Next
alle shapes ausgegeben.
Und siehe da. Es gibt einige Drop Down. Ich kann mir das nur erklären das die vom Autofilter kommen.
Hier nochmals mein Code:

'AutoFilter deaktivieren
Tabelle2.AutoFilterMode = False
Dim sha As Shape
For Each sha In Me.Shapes
' If Not InStr(1, sha.Name, "com")  0 Then
Debug.Print sha.Name
sha.Delete
'End If
Next
If Range("IL1").Value  "" Then
Columns("IJ:IV").Delete 'shift:=xlShiftToLeft
'Range(Cells(1, 250), Cells(Rows.count, 256)).Delete shift:=xlShiftToRight
End If
'Zwei Spalten einfügen
Columns("H:I").Insert
'Aktueller Status in die leeren Spalten kopieren
Columns("D:E").Copy Columns("H:I")
'noch etwas anderer nebensächlicher Code der ja funktioniert und in dem kein drop down etc  _
verwendet wird
Tabelle2.Rows.AutoFilter
Gruß
johannes
Anzeige
AW: VBA: Spalten über Spaltenende einfügen
24.08.2011 16:55:10
Luschi
Hallo Johannes,
in der Tat, in Excel 2003 werden die AutoFilter- Dropdowns als Shapes erkannt und aufgelistet:
Drop Down 1
Drop Down 2
Drop Down 3 usw.
In Excel 2007 & 2010 passiert das nicht.
Gruß von Luschi
aus klein-Paris
AW: VBA: Spalten über Spaltenende einfügen
24.08.2011 17:02:44
johannes
Hallo,
Ja. Und wie werde ich diese los?
Autofilter ausschalten alleine bringt nichts und shape.delete hilft mir auch nicht.
Nur wenn ich auf speichern klicke scheint excel intern "aufzuräumen" aber ich kann nicht die Datei überschreiben per code.
Hat sonst irgenwer eine Idee?
Gruß johannes
AW: VBA: Spalten über Spaltenende einfügen
25.08.2011 09:55:49
johannes
Lösung:
ActiveSheet.UsedRange
Damit aktualisiert sich der used range und alles ist so wie es soll ;)
Anzeige

157 Forumthreads zu ähnlichen Themen

Spalten als Zeilen ziehen
Timo

Hallo,
ich habe ein relativ simples problem und hoffe, es auch möglichst simpel beschreiben zu können:
In einer Spalte (Sagen wir Spalte A) habe ich untereinander verschiedenen Werte stehen.
Jetzt möchte ich gern auf einem anderen Tabellenblatt genau diese Werte in eine Zeile sch...
03.09.2008 11:43:00
Thread-ID: 1007060
5 Beiträge
Anzeige
Spalten vergleichen und Ausgabe in neues Worksheet
Bolo

Hallo liebe Community,
ich habe hier eine Tabelle in der in Zeile 4 verschiedene Daten (von Datum) stehen.
Bsp.:
C4+D4=01.01.2009 / E4+F4=02.01.2009 / G4+H4=03.01.2009 usw.
So in C5 und D5 (...) stehen Werte. Es gibt immer für jeden Tag 2 Werte.
Nun soll das Makro die beiden...
01.04.2009 15:21:36
Thread-ID: 1066031
3 Beiträge
Kann keine Spalten mehr im Sheet hinzufügen
vux

Hallo,
einfaches Prob. - mein Sheet ist irgendwie von der Spaltenanzahl beschränkt: bin bei Spalte "IV" und kann keine Spalten mehr hinzufügen.
Excel 2003, hab ein Sheet aus SPSS rüberkopiert.
Wie kann ich das fixen? Oder ist Excel in der Tat ab Spalte "IV" zu?
Danke!
08.05.2009 19:12:57
Thread-ID: 1073991
5 Beiträge
Anzeige
Spalten H & I in ein neues Tabellenblatt kopieren
Henning

Hallo zusammen,
wie man schon an meinem Level erkenne kann, bin ich ein Anfänger was VBA angeht.
Nun zu meinem Problem.
Ich habe ein Tabellenblatt mit dem Namen "Stammdaten" in diesem fängt
ab der 18 Zeile in den Spalten H und I folgende Tabelle an. Es folgen noch weitere Spalt...
23.11.2009 22:01:03
Thread-ID: 1119606
7 Beiträge
Einfügen von Bildern in Kommentar geht nicht mehr
Bildern

Hallo zusammen,
ich habe ein Problem mit folgenden Codezeilen:
For spalte = 4 To 13
'*********
If Cells(zeile, spalte).Hyperlinks.Count 1 Then 'Abfrage, ob Hyperlink vorhanden
GoTo weiter2
Else
Dim mycom As Object
On Error Resume Next
Pfad = ActiveWorkbook.P...
30.11.2009 15:34:28
Thread-ID: 1121036
2 Beiträge
makro geht nach Spalten einfügen nicht mehr
morbiuz

Hallo liebes Forum,
Möchte ich in einem Makro den Wert aus der Zelle A1 auslesen, geht das ja ohne probleme mit...
variable = tabelle1.range("a1").value
Fügt ein User jedoch manuell 2 Spalten ein, verschiebt sich ja die Original Zelle auf die Zelle C1.
Wie muss ich meine Zelle f...
19.05.2010 18:33:41
Thread-ID: 1157897
3 Beiträge
Spalten markieren und in neue Datei speichern
Thomas

Hallo alle zusammen,
ich habe hier eine Aufgabenstellung und komme einfach nicht weiter.
Ich möchte folgendes Problem lösen:
In meiner Excel-Datei sind 40.000 Zellen die in neue Excel-Dateien verteilt werden sollen, jeweils 2000 Zeilen in einer Datei.
Also muss das Skript die er...
15.09.2010 10:08:26
Thread-ID: 1177645
2 Beiträge
Spalteninhalte auslesen u. in neue Tab. schreiben
Peter

Liebe Excelcracks
Ich habe folgendes Problem:
Ich habe eine Exceldatei mit ca. 160 Tabellenblättern. Aus jedem Tabellenblatt brauche ich die Eintragungen aus den Spalten B, C, D und E. Diese sollen untereinander in einem neuen Tabellenblatt aufgelistet werden. Hier das Beispiel mal mit...
30.11.2010 13:06:08
Thread-ID: 1189317
3 Beiträge
Anzeige

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
4
12
2
4
1
6
1
2
1
2
4
4
6
4
2
9
8
1
14
3
8
4
1
8
3