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

Ansicht des Beitrags:
Von:
Werner		 Datum:
15.02.2009 16:54:04		 Views:
2637		 Rating:
     
Antwort:
  Ja
Thema:
Wer kann helfen….Kopieren ohne die Bedingte Format
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
Rot Wer kann helfen….Kopieren ohne die Bedingte Format
 15.02.2009 16:54:04 Werner
NotSolved
16.02.2009 11:43:41 Holger
NotSolved
16.02.2009 18:16:20 Werner
NotSolved
18.02.2009 10:56:31 Holger
NotSolved