VBA
Excel VBA
Word VBA
Access VBA
VBScript
VB
C#
Objective-C
C++
SQL
JAVA
VBA (English)
Jobs
Übersicht
Thema
Datum
Von Nutzer
Rating
Antwort
Wer kann helfen….Kopieren ohne die Bedingte Format
15.02.2009 16:54:04
Werner
Aw:Wer kann helfen….Kopieren ohne die Bedingte For
16.02.2009 11:43:41
Holger
Aw:Aw:Wer kann helfen….Kopieren ohne die Bedingte
16.02.2009 18:16:20
Werner
Aw:Aw:Aw:Wer kann helfen….Kopieren ohne die Beding
18.02.2009 10:56:31
Holger
Ansicht des Beitrags:
Von:
Werner
Datum:
15.02.2009 16:54:04
Views:
2619
Rating:
Antwort:
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)
B
ei 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)
B
ei 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
Wer kann helfen….Kopieren ohne die Bedingte Format
15.02.2009 16:54:04
Werner
Aw:Wer kann helfen….Kopieren ohne die Bedingte For
16.02.2009 11:43:41
Holger
Aw:Aw:Wer kann helfen….Kopieren ohne die Bedingte
16.02.2009 18:16:20
Werner
Aw:Aw:Aw:Wer kann helfen….Kopieren ohne die Beding
18.02.2009 10:56:31
Holger