Thema Datum  Von Nutzer Rating
Antwort
15.02.2009 16:54:04 Werner
NotSolved
16.02.2009 11:43:41 Holger
NotSolved
16.02.2009 18:16:20 Werner
NotSolved
Blau Aw:Aw:Aw:Wer kann helfen….Kopieren ohne die Beding
 18.02.2009 10:56:31 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
18.02.2009 10:56:31		 Views:
1343		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Aw:Wer kann helfen….Kopieren ohne die Beding
Hallo Werner,
ich kann diese Meldung mit Excel 2007 leider nicht verifizieren, weshalb ich nur im Nebel stochern kann, ob mein erster Vorschlag funktioniert (ich vermute nicht, weil es sich eigentlich nicht um einen Alert handelt):
Am Anfang des Programms
Application.DisplayAlerts = false
und am Ende des Programms
Application.DisplayAlerts = True
Wenn das nicht funktioniert, sollte mit Hilfe von SendKeys (s. VBA-Hilfe) das Problem lösbar sein.
Gruß
Holger



Werner schrieb am 16.02.2009 18:16:20:

Hallo

Danke …. Wieder konntest du mir sehr gut helfen….. Danke!
Der Kopiervorgang ist nun ok. Gibt es auch eine Möglichkeit die Microsoft Office Excel Meldung --Sollen die Inhalte der Zellen des Zielbereichs überschrieben werden-- zu unterdrücken?
Danke und Gruß
Werner


Holger schrieb am 16.02.2009 11:43:41:

Hallo Werner,
füge z.B. anstelle von
Worksheets("Precision").Range("E34:S108").Copy _
Destination:=Worksheets("Data").Range("C13")
Folgendes ein:
Worksheets("Precision").Range("E34:S108").Copy
Worksheets("Data").Range("C13").PasteSpecial Paste:=xlPasteValues
Gruß
Holger


Werner schrieb am 15.02.2009 16:54:04:

Wer kann helfen….Kopieren ohne die Bedingte Formatierung

Ich habe 2 Tabellen ("Precision") -Arbeits Tabelle und ("Data") -Speicher Tabelle
Über eine ComboBox werden Daten aus Tabelle ("Data")in Tabelle ("Precision") übertragen und auch zurückgeschrieben. Der Zellenbereich in der Tabelle ("Precision") ist zur besseren Visualisierung mit Formatierungen (Bedingte Formatierungen). Um Das Dokument so klein wie möglich zu halten, möchte ich, dass die Kopierten Daten in Tabelle ("Data") ohne Bedingte Formatierungen gespeichert werden. Allerdings muss beim einlesen der Daten aus Tabelle(„Data“) in Tabelle ("Precision") die Bedingte Formatierung in Tabelle ("Precision") erhalten bleiben.
Private Sub ComboBox1_Change() ' Liest und speichert die Messdaten in CCData
Select Case ComboBox1.Value

Case 0 'Kundenmessung
'Kundenmessung
If Range("E24").Value = "Kundenmessung" Then
'Werte Teil 1
Worksheets("Precision").Range("E34:S108").Copy _
Destination:=Worksheets("Data").Range("C13")
'Werte Teil 2
Worksheets("Precision").Range("AZ34:BN108").Copy _
Destination:=Worksheets("Data").Range("C88")
End If

'Messung 1
If Range("E24").Value = "Messung 1" Then
'Werte Teil 1
Worksheets("Precision").Range("E34:S108").Copy _
Destination:=Worksheets("Data").Range("Z13")
'Werte Teil 2
Worksheets("Precision").Range("AZ34:BN108").Copy _
Destination:=Worksheets("Data").Range("Z88")
End If

Range("E24").Value = "Kundenmessung"
Sheets("Data").Range("C13:Q87").Copy Destination:=Sheets("Precision").Range ("E34")
Sheets("Data").Range("C88:Q162").Copy Destination:=Sheets("Precision").Range("AZ34")
Range("AA24").Value = "Messung 1"
Sheets("Data").Range("Z13:AN87").Copy Destination:=Sheets("Precision").Range("AA34")
Sheets("Data").Range("Z88:AN162").Copy Destination:=Sheets("Precision").Range("BV34")

Case 1' Messung 1

Case 2' Messung 2

Gruß und Danke

Werner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

Thema Datum  Von Nutzer Rating
Antwort
15.02.2009 16:54:04 Werner
NotSolved
16.02.2009 11:43:41 Holger
NotSolved
16.02.2009 18:16:20 Werner
NotSolved
Blau Aw:Aw:Aw:Wer kann helfen….Kopieren ohne die Beding
 18.02.2009 10:56:31 Holger
NotSolved