Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1244to1248
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
1244to1248
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formatierte Daten löschen

Formatierte Daten löschen
Werner
Guten Abend
ich hoffe mir kann geholfen werden.
Die angehängte Datei spiegelt nur ein Teil der Orginaldatei wieder.
Problem:
Es müssen auf zwei Seiten große Bereiche gelöscht werden
Blatt "Jan. bis Juni" H9:GG107
Blatt "Juni bis Dez." H9:Gi107
damit es schneller geht habe ich von Josef ein Makro eingefügt welches von Automatisch auf Manuell und zurück stellt. Das klappt gut. Die vorher automatisch erzeugten Formatierungen (Makro von Hajo) werden jedoch nicht gelöscht. Nur ein Doppelklick in eine beliebige Stelle im Bereich löscht die Formatierung.Wo liegt der Fehler?
Vielen Dank im voaus
Werner
https://www.herber.de/bbs/user/78263.xls

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Formatierte Daten löschen
06.01.2012 21:51:55
Josef

Hallo Werner,
Sub LöschenAbfragen2()
  Frage = MsgBox("Sollen alle Einträge gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Frage")
  
  If Frage = vbYes Then
    
    
    On Error GoTo ErrExit
    GMS  'schnell ein von Josef Ehrensberger
    
    'Hier Löschanweisung(en) eintragen
    With Sheets("Jan. bis Juni").Range("H9:GG107")
      .ClearContents
      .Interior.ColorIndex = xlNone
    End With
    With Sheets("Juli bis Dez.").Range("H9:GI107")
      .ClearContents 'Achtung verschiedene Bereiche
      .Interior.ColorIndex = xlNone
    End With
    
    Application.Goto reference:=Sheets("Jan. bis Juni").Range("H9"), Scroll:=True 'gehe zu H9
    
    'hier endet das loeschen der Tabellen
    
    
  Else
    MsgBox "Keine Löschung auf Benutzerwunsch", vbOKOnly, "Hinweis"
  End If
  ErrExit:
  If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & vbLf & _
    Err.Description, vbExclamation, "Fehler"
  GMS True  'schnell aus
  
End Sub



« Gruß Sepp »

Anzeige
AW: Formatierte Daten löschen
06.01.2012 22:12:25
Werner
Danke Josef
du bist mal wieder mein Retter
Tschüss Werner

299 Forumthreads zu ähnlichen Themen

VBA Ausgabe in neue Datei
MarkusL

Hallo,
ich habe folgendes Problem:
In einer Datei befinden sich nachfolgende Datensätze
Jahr Monat Feld_1 Feld_2 Feld_3 Feld_4 Feld_5 usw.
es sollen nun per VBA nach Abfrage von Jahr und Monat ein neuer Datensatz in einer neuen Datei erzeugt werden, der allerdings nur noch die F...
08.08.2008 17:42:00
Thread-ID: 1000377
3 Beiträge
Anzeige
Bedingte Formatierung - Datenbalken bei neg Werten
Gianleandro

Ich suche nach einer Möglichkeit die Datenbalken bei der bedingten Formatierung auch für negative Werte zu nutzen. Dabei schwebt mir eine Art Spielgelung der Datenbalken bei negativen Werten vor.
Wer hat dazu eine Idee?
https://www.herber.de/bbs/user/55283.xlsx
09.09.2008 14:22:24
Thread-ID: 1008498
3 Beiträge
Dateiformat nicht erkennabar (VBA)
Richard

hallo
hab da ein vba-skript, das beim unteren der beiden Zeilen eine Fehlermeldung bringt:
CreateObject("Scripting.FileSystemObject").CopyFile "C:\Program Files\" & Dateiname_neu, "C:\Program Files\Kopie.txt", True
Workbooks.OpenText FileName:="C:\Program Files\Kopie.txt" _
02.10.2008 19:52:02
Thread-ID: 1013959
2 Beiträge
Anzeige
Datenquelle eines Diagramms mit VBA verändern
mgr

hallo, ihr excel-götter!
leider hab ich im archiv nichts entsprechendes gefunden und werfe mein anliegen daher hier ein.
ich habe eine datei, die daten statistisch aufbereitet, unter anderem in form eines torten-diagramms.
dieses tortendiagramm wird mit daten befüllt, die durch eine...
21.11.2008 11:45:45
Thread-ID: 1026676
4 Beiträge
Produktdaten aus einer Liste mit VBA verwenden
Niklas

Hello Leute!
Ich arbeite gerade an einem Programm, welches mit Excel VBA programmiert wurde!
Das Programm dient dem Berechnen einer Übertemperatur in Schaltschränken!
Jetzt ist es notwendig, dass man verschiedene Einsätze ( Die Dinge die im Schaltschrank drinnen sind) auswählen kann...
03.12.2008 14:37:00
Thread-ID: 1029841
2 Beiträge
VBA Querdruck DinA5 auf DinA4 Hochformat
Peter

Hallo,
habe eine Userform die ich aufrufe, dort sind 2 CommandButtons auf die entweder auf DinA5 oder DinA4 gedruckt werden soll.
Habe nun den Makrorecorder laufen lassen.
Private Sub CommandButton1_Click() 'Sub Karte_Druck() ' Karte_Druck Makro Din A 4 Application.ScreenUpdating...
07.12.2008 11:40:36
Thread-ID: 1030830
3 Beiträge
VBA Bedingte Formatierung
Peter

Hallo,
möchte gern das Abhängig von A1 in der ein "w" oder ein "m" steht, das A2:Z22 alles entweder rosa (w)
oder hell bLau (m) ist.
Habt Ihr eine Idee?
Beim Druck soll nachher alles wieder schwarz weiß sein.
Gruß Peter
09.12.2008 22:32:36
Thread-ID: 1031538
20 Beiträge
ein Format in Zahl umwandeln VBA
Michael

Hallo!
Welche Möglichkeit gibt es über VBA eine Tabelle die ich zugesendet bekomme. Die Werte in Zahlen umzuwandeln. Beispiel
number name___ old__ new Change Change %
500041 system 23.26 23.28 -0.71 -2.45% #WERT!
540014 cpu 69.95 69.99 -0.22 -0.31% #WERT! =F...
29.01.2009 10:37:00
Thread-ID: 1044870
7 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
2
3
2
1
6
3
1
2
19
6
4
1
3
11
4
1
6
1
2
5
3
3
2
2
3