Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 10:31:56
Bilder in Userform per VBA aus Sharepoint Ordner anzeigen
16.04.2024 10:29:44
Mittelwert für Zeilen mit gleichen Zeitstempel
16.04.2024 09:54:17
Durchschnittswerte zwischen Tagen berechnen
16.04.2024 09:51:15
Frage: KPI - Logistik Dashboard
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
328to332
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
328to332
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Problem - Copy Destination

VBA Problem - Copy Destination
30.10.2003 13:30:55
Daniel
Hallo XL-Folks & Friends

Ich habe ein Skript welches wenn eine Zelle auf A steht dann gewisse Zelle in ein andere Zellen kopiert (siehe Skript). Ich möchte dieses Skript nun wiederholen und für andere Zellen auch verwenden. Doch nun funktioniert das untere Skript nicht. Das obere (alte) funktioniert weiterhin einwandfrei.

Vielen Dank!!!


Private Sub Worksheet_Change(ByVal Target As Range)
' 1. (altes) Skript - funktioniert einwandfrei
If Intersect(Target, Range("F15")) Is Nothing And _
Intersect(Target, Range("BK15:BN26")) Is Nothing Then Exit Sub
If Range("F15").Value = "Automatisch" Then
Range("BK15:BN26").Copy _
Destination:=Range("X15:AA26")
ElseIf Range("F15").Value = "Manuell" Then
Range("X15:AA15").Select
MsgBox ("Bitte geben Sie die Sendungen pro Monat manuell ein")
'Range("X15:AA26").ClearContents
Range("BP15:BS26").Copy _
Destination:=Range("X15:AA26")
ElseIf Range("F15").Value <> "" Then
Range("F15").Select
MsgBox ("Automatisch oder Manuell wählen")
Range("F15").ClearContents
End If
' 2.tes Skript - funktioniert nicht (warum?) - habe nur die Zellen geändert.
If Intersect(Target, Range("F22")) Is Nothing And _
Intersect(Target, Range("BK36:BR36")) Is Nothing Then Exit Sub
If Range("F22").Value = "Ja" Then
Range("BK36:BR36").Copy _
Destination:=Range("T36:AA36")
ElseIf Range("F22").Value = "Nein" Then
Range("T36:AA36").Select
MsgBox ("Bitte geben Sie die Sendungen pro Monat manuell ein")
'Range("T36:AA36").ClearContents
Range("BT36:CA36").Copy _
Destination:=Range("T36:AA36")
ElseIf Range("F22").Value <> "" Then
Range("F22").Select
MsgBox ("Automatisch oder Manuell wählen")
Range("F22").ClearContents
End If
End Sub



VIELEN DANK!!!!

Daniel.

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Problem - Copy Destination
30.10.2003 13:49:00
Martin Bolleter
Hallo Daniel

weil du mit der If-Bedingung im ersten Teil schon aussteigst (exit sub), sofern nicht das Target des 1. Teils getroffen wurde. Und falls die Target-Bedingung im 1. Teil erfüllt war, kann sie nicht auch noch im 2. Teil erfüllt sein.

Gruss
Martin
Wie geht das?
30.10.2003 14:00:48
Daniel
Hallo Martin

Also sollte ich das Exit Sub aus dem ersten Skript entfernen????

Danke

Daniel
AW: Wie geht das?
30.10.2003 14:13:37
Hajo_Zi
Hallo Daniel

mal Live, schreibe es um

If Intersect(Target, Range("F15,BK15:BN26")) Is Nothing Then Exit Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.


Anzeige
AW: Wie geht das? - Fehlermeldung
30.10.2003 14:19:18
Daniel
Hi Hajo

Dann kommt die Fehlermeldung:

Laufzeitfehler '1004?
Die Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen.

Ich habe zuerst die 1 Zeile beim 1.Skript geändert. Dann kam die Fehlermeldung und danach habe ich auch die 1. Zeile beim 2. Skript entsprechend geändert, aber die Fehlermeldung kam immer noch.

Danke!!!

Daniel.
AW: Wie geht das? - Fehlermeldung
30.10.2003 14:28:26
Hajo_Zi
allo Daniel

ich habe es jetzt getestet ohne Probleme


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("F22,BK36:BR36")) Is Nothing Then Exit Sub
' wozu der zweite Bereich der wird nicht behandelt
If Range("F22").Value = "Ja" Then
Range("BK36:BR36").Copy _
Destination:=Range("T36:AA36")
ElseIf Range("F22").Value = "Nein" Then
Range("T36:AA36").Select
MsgBox ("Bitte geben Sie die Sendungen pro Monat manuell ein")
'Range("T36:AA36").ClearContents
Range("BT36:CA36").Copy _
Destination:=Range("T36:AA36")
ElseIf Range("F22").Value <> "" Then
Range("F22").Select
MsgBox ("Automatisch oder Manuell wählen")
Range("F22").ClearContents
End If
End Sub



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.


Anzeige
Immer noch nicht
30.10.2003 14:34:45
Daniel
Hi Hajo

Leider gehts immer noch nicht. Nach dem ich den zweiten Bereich rausgenommen habe, kam zwar keine Fehlermeldung mehr, aber der zweite Skript funktioniert immer noch nicht.

Ich poste mal den ganze Script hier. Es sind noch ein paar Sache davor drin. Vielleicht liegt der Fehler ja dort.

Vielen Dank


Private Sub Worksheet_Change(ByVal Target As Range)
'Sponsorship
If Target.Address(0, 0) = "F29" Then
If Target = "Nein" Then Rows("30:70").Hidden = True
If Target = "Ja" Then Rows("30:70").Hidden = False
If Target = "Ja" Then Range("F34").Value = "Ja"
If Target = "Ja" Then Range("F41").Value = "Ja"
If Target = "Ja" Then Range("F49").Value = "6"
If Target = "Ja" Then Range("F48").Value = "Ja"
If Target = "Ja" Then Range("F62").Value = "Ja"
End If
'Indikativ
If Target.Address(0, 0) = "F34" Then
If Target = "Nein" Then Rows("35:38").Hidden = True
If Target = "Ja" Then Rows("35:38").Hidden = False
End If
'Abdikativ
If Target.Address(0, 0) = "F41" Then
If Target = "Nein" Then Rows("42:45").Hidden = True
If Target = "Ja" Then Rows("42:45").Hidden = False
End If
'Reminder
If Target.Address(0, 0) = "F48" Then
If Target = "Nein" Then Rows("49:58").Hidden = True
If Target = "Ja" Then Range("F49").Value = "6"
If Target = "Ja" Then Rows("49:58").Hidden = False
End If
If Target.Address(0, 0) = "F49" Then
If Target = "1" Then Rows("53:58").Hidden = True
If Target = "2" Then Rows("53:58").Hidden = True
If Target = "3" Then Rows("53:58").Hidden = False
If Target = "3" Then Rows("56:58").Hidden = True
If Target = "4" Then Rows("53:58").Hidden = False
If Target = "4" Then Rows("56:58").Hidden = True
If Target = "5" Then Rows("53:58").Hidden = False
If Target = "6" Then Rows("53:58").Hidden = False
End If
'Promotrailer
If Target.Address(0, 0) = "F62" Then
If Target = "Nein" Then Rows("63:70").Hidden = True
If Target = "Ja" Then Rows("63:70").Hidden = False
End If
'Exklusivinseln
If Target.Address(0, 0) = "F75" Then
If Target = "Nein" Then Rows("76:97").Hidden = True
If Target = "Ja" Then Rows("76:97").Hidden = False
If Target = "Ja" Then Range("F79").Value = "Ja"
If Target = "Ja" Then Range("F93").Value = "Ja"
If Target = "Ja" Then Range("F80").Value = "6"
End If
'Preminder
If Target.Address(0, 0) = "F79" Then
If Target = "Nein" Then Rows("80:89").Hidden = True
If Target = "Ja" Then Range("F80").Value = "6"
If Target = "Ja" Then Rows("80:89").Hidden = False
End If
If Target.Address(0, 0) = "F80" Then
If Target = "1" Then Rows("84:89").Hidden = True
If Target = "2" Then Rows("84:89").Hidden = True
If Target = "3" Then Rows("84:89").Hidden = False
If Target = "3" Then Rows("87:89").Hidden = True
If Target = "4" Then Rows("84:89").Hidden = False
If Target = "4" Then Rows("87:89").Hidden = True
If Target = "5" Then Rows("84:89").Hidden = False
If Target = "6" Then Rows("84:89").Hidden = False
End If
'Abspannspot
If Target.Address(0, 0) = "F93" Then
If Target = "Nein" Then Rows("94:96").Hidden = True
If Target = "Ja" Then Rows("94:96").Hidden = False
End If
'Infomercials
If Target.Address(0, 0) = "F101" Then
If Target = "Nein" Then Rows("102:147").Hidden = True
If Target = "Ja" Then Range("F102").Value = "15"
If Target = "Ja" Then Rows("102:147").Hidden = False
End If
If Target.Address(0, 0) = "F102" Then
If Target = "1" Then Rows("106:147").Hidden = True
If Target = "2" Then Rows("106:147").Hidden = False
If Target = "2" Then Rows("109:147").Hidden = True
If Target = "3" Then Rows("106:147").Hidden = False
If Target = "3" Then Rows("112:147").Hidden = True
If Target = "4" Then Rows("106:147").Hidden = False
If Target = "4" Then Rows("115:147").Hidden = True
If Target = "5" Then Rows("106:147").Hidden = False
If Target = "5" Then Rows("118:147").Hidden = True
If Target = "6" Then Rows("106:147").Hidden = False
If Target = "6" Then Rows("121:147").Hidden = True
If Target = "7" Then Rows("106:147").Hidden = False
If Target = "7" Then Rows("124:147").Hidden = True
If Target = "8" Then Rows("106:147").Hidden = False
If Target = "8" Then Rows("127:147").Hidden = True
If Target = "9" Then Rows("106:147").Hidden = False
If Target = "9" Then Rows("130:147").Hidden = True
If Target = "10" Then Rows("106:147").Hidden = False
If Target = "10" Then Rows("133:147").Hidden = True
If Target = "11" Then Rows("106:147").Hidden = False
If Target = "11" Then Rows("136:147").Hidden = True
If Target = "12" Then Rows("106:147").Hidden = False
If Target = "12" Then Rows("139:147").Hidden = True
If Target = "13" Then Rows("106:147").Hidden = False
If Target = "13" Then Rows("142:147").Hidden = True
If Target = "14" Then Rows("106:147").Hidden = False
If Target = "14" Then Rows("145:147").Hidden = True
If Target = "15" Then Rows("106:147").Hidden = False
End If
' Start Kalender
If Intersect(Target, Range("F15")) Is Nothing Then Exit Sub
If Range("F15").Value = "Automatisch" Then
Range("BK15:BN26").Copy _
Destination:=Range("X15:AA26")
ElseIf Range("F15").Value = "Manuell" Then
Range("X15:AA15").Select
MsgBox ("Bitte geben Sie die Sendungen pro Monat manuell ein")
'Range("X15:AA26").ClearContents
Range("BP15:BS26").Copy _
Destination:=Range("X15:AA26")
ElseIf Range("F15").Value <> "" Then
Range("F15").Select
MsgBox ("Automatisch oder Manuell wählen")
Range("F15").ClearContents
End If
' Preisgruppe Samstag
If Intersect(Target, Range("F22")) Is Nothing Then Exit Sub
If Range("F22").Value = "Ja" Then
Range("BK36:BR36").Copy _
Destination:=Range("T36:AA36")
ElseIf Range("F22").Value = "Nein" Then
Range("T36:AA36").Select
MsgBox ("Bitte geben Sie die Sendungen pro Monat manuell ein")
'Range("T36:AA36").ClearContents
Range("BT36:CA36").Copy _
Destination:=Range("T36:AA36")
ElseIf Range("F22").Value <> "" Then
Range("F22").Select
MsgBox ("Automatisch oder Manuell wählen")
Range("F22").ClearContents
End If
End Sub

Anzeige
AW: Immer noch nicht
30.10.2003 14:44:22
Hajo_Zi
Hallo Daniel

ich sehe nicht den Bezug zum Code über den wir bisher geschrieben haben.

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub ' falls mehrere Zellen mit einmal gefüllt werden
'Sponsorship
If Target.Address(0, 0) = "F29" Then
If Target = "Nein" Then Rows("30:70").Hidden = True
If Target = "Ja" Then Rows("30:70").Hidden = False
If Target = "Ja" Then Range("F34").Value = "Ja"
If Target = "Ja" Then Range("F41").Value = "Ja"
If Target = "Ja" Then Range("F49").Value = "6"
If Target = "Ja" Then Range("F48").Value = "Ja"
If Target = "Ja" Then Range("F62").Value = "Ja"
ElseIf Target.Address(0, 0) = "F34" Then 'Indikativ
If Target = "Nein" Then Rows("35:38").Hidden = True
If Target = "Ja" Then Rows("35:38").Hidden = False
ElseIf Target.Address(0, 0) = "F41" Then 'Abdikativ
If Target = "Nein" Then Rows("42:45").Hidden = True
If Target = "Ja" Then Rows("42:45").Hidden = False
ElseIf Target.Address(0, 0) = "F48" Then 'Reminder
If Target = "Nein" Then Rows("49:58").Hidden = True
If Target = "Ja" Then Range("F49").Value = "6"
If Target = "Ja" Then Rows("49:58").Hidden = False
ElseIf Target.Address(0, 0) = "F49" Then
If Target = "1" Then Rows("53:58").Hidden = True
If Target = "2" Then Rows("53:58").Hidden = True
If Target = "3" Then Rows("53:58").Hidden = False
If Target = "3" Then Rows("56:58").Hidden = True
If Target = "4" Then Rows("53:58").Hidden = False
If Target = "4" Then Rows("56:58").Hidden = True
If Target = "5" Then Rows("53:58").Hidden = False
If Target = "6" Then Rows("53:58").Hidden = False
ElseIf Target.Address(0, 0) = "F62" Then 'Promotrailer
If Target = "Nein" Then Rows("63:70").Hidden = True
If Target = "Ja" Then Rows("63:70").Hidden = False
ElseIf Target.Address(0, 0) = "F75" Then 'Exklusivinseln
If Target = "Nein" Then Rows("76:97").Hidden = True
If Target = "Ja" Then Rows("76:97").Hidden = False
If Target = "Ja" Then Range("F79").Value = "Ja"
If Target = "Ja" Then Range("F93").Value = "Ja"
If Target = "Ja" Then Range("F80").Value = "6"
ElseIf Target.Address(0, 0) = "F79" Then 'Preminder
If Target = "Nein" Then Rows("80:89").Hidden = True
If Target = "Ja" Then Range("F80").Value = "6"
If Target = "Ja" Then Rows("80:89").Hidden = False
ElseIf Target.Address(0, 0) = "F80" Then
If Target = "1" Then Rows("84:89").Hidden = True
If Target = "2" Then Rows("84:89").Hidden = True
If Target = "3" Then Rows("84:89").Hidden = False
If Target = "3" Then Rows("87:89").Hidden = True
If Target = "4" Then Rows("84:89").Hidden = False
If Target = "4" Then Rows("87:89").Hidden = True
If Target = "5" Then Rows("84:89").Hidden = False
If Target = "6" Then Rows("84:89").Hidden = False
ElseIf Target.Address(0, 0) = "F93" Then 'Abspannspot
If Target = "Nein" Then Rows("94:96").Hidden = True
If Target = "Ja" Then Rows("94:96").Hidden = False
ElseIf Target.Address(0, 0) = "F101" Then 'Infomercials
If Target = "Nein" Then Rows("102:147").Hidden = True
If Target = "Ja" Then Range("F102").Value = "15"
If Target = "Ja" Then Rows("102:147").Hidden = False
ElseIf Target.Address(0, 0) = "F102" Then
If Target = "1" Then Rows("106:147").Hidden = True
If Target = "2" Then Rows("106:147").Hidden = False
If Target = "2" Then Rows("109:147").Hidden = True
If Target = "3" Then Rows("106:147").Hidden = False
If Target = "3" Then Rows("112:147").Hidden = True
If Target = "4" Then Rows("106:147").Hidden = False
If Target = "4" Then Rows("115:147").Hidden = True
If Target = "5" Then Rows("106:147").Hidden = False
If Target = "5" Then Rows("118:147").Hidden = True
If Target = "6" Then Rows("106:147").Hidden = False
If Target = "6" Then Rows("121:147").Hidden = True
If Target = "7" Then Rows("106:147").Hidden = False
If Target = "7" Then Rows("124:147").Hidden = True
If Target = "8" Then Rows("106:147").Hidden = False
If Target = "8" Then Rows("127:147").Hidden = True
If Target = "9" Then Rows("106:147").Hidden = False
If Target = "9" Then Rows("130:147").Hidden = True
If Target = "10" Then Rows("106:147").Hidden = False
If Target = "10" Then Rows("133:147").Hidden = True
If Target = "11" Then Rows("106:147").Hidden = False
If Target = "11" Then Rows("136:147").Hidden = True
If Target = "12" Then Rows("106:147").Hidden = False
If Target = "12" Then Rows("139:147").Hidden = True
If Target = "13" Then Rows("106:147").Hidden = False
If Target = "13" Then Rows("142:147").Hidden = True
If Target = "14" Then Rows("106:147").Hidden = False
If Target = "14" Then Rows("145:147").Hidden = True
If Target = "15" Then Rows("106:147").Hidden = False
ElseIf Target.Address(0, 0) = "F15" Then ' Start Kalender
If Range("F15").Value = "Automatisch" Then
Range("BK15:BN26").Copy _
Destination:=Range("X15:AA26")
ElseIf Range("F15").Value = "Manuell" Then
Range("X15:AA15").Select
MsgBox ("Bitte geben Sie die Sendungen pro Monat manuell ein")
'Range("X15:AA26").ClearContents
Range("BP15:BS26").Copy _
Destination:=Range("X15:AA26")
ElseIf Range("F15").Value <> "" Then
Range("F15").Select
MsgBox ("Automatisch oder Manuell wählen")
Range("F15").ClearContents
End If
ElseIf Target.Address(0, 0) = "F22" Then ' Preisgruppe Samstag
If Range("F22").Value = "Ja" Then
Range("BK36:BR36").Copy _
Destination:=Range("T36:AA36")
ElseIf Range("F22").Value = "Nein" Then
Range("T36:AA36").Select
MsgBox ("Bitte geben Sie die Sendungen pro Monat manuell ein")
'Range("T36:AA36").ClearContents
Range("BT36:CA36").Copy _
Destination:=Range("T36:AA36")
ElseIf Range("F22").Value <> "" Then
Range("F22").Select
MsgBox ("Automatisch oder Manuell wählen")
Range("F22").ClearContents
End If
End If
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.


Anzeige
VIELEN VIELEN DANK!!!!!!
30.10.2003 14:47:38
Daniel
Super Hajo

Du bist der Beste!!!

Es hat geklappt - Vielen vielen DANK!!!

Daniel
AW: VIELEN VIELEN DANK!!!!!!
30.10.2003 15:01:07
Hajo_Zi
Hallo Daniel

ein klein wenig schneller läuft der Code noch mit Application.EnableEvents und wenn Du Deine Vergleichn noch ein Wenig optimierst


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub ' falls mehrere Zellen mit einmal gefüllt werden
Application.EnableEvents = False
'Sponsorship
If Target.Address(0, 0) = "F29" Then
If Target = "Nein" Then
Rows("30:70").Hidden = True
ElseIf Target = "Ja" Then
Rows("30:70").Hidden = False
Range("F34,F41,F48,F49,F62").Value = "Ja"
End If
ElseIf Target.Address(0, 0) = "F34" Then 'Indikativ
Application.EnableEvents = True
End Sub


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.


Anzeige

300 Forumthreads zu ähnlichen Themen

per VBA Range finden, die im cutcopy-mode ist
anugyan

Hi Leute,
gibt es eine Möglichkeit in Excel die Range zu finden (und in eine Variable zu speichern), die sich im cutcopy-mode befindet, wenn nach SelectionsChange schon eine andere Zelle markiert ist?
Über eine schnelle Hilfe würde ich mich sehr freuen. Danke
Anugyan
14.07.2002 12:46:57
Thread-ID: 136397
3 Beiträge
Anzeige
Cells in Range bei VBA
Ulrich

Hallo,
ich hoffe ihr könnt helfen
folgende Zeile geht
Worksheets("vorl").Range("H34:BK34").Copy
gewandelt in cells geht nicht
Worksheets("vorl").Range(Cells(34, 8), Cells(34, 63)).Copy
benutzt in
Worksheets("vorl").Range(Cells(34, 8), Cells(34, 63)).Copy
Range...
06.05.2015 10:03:50
Thread-ID: 1424850
26 Beiträge
Copy Excel cell via VBA
Frank

Hallo,
ich benötige Hilfe. Ich habe eine Exceldatei, bei der die Daten nebeneinander enthalten sind. Ich möchte nun die hinteren Daten untereinander haben und auf einem neuen Tabellenblatt und komme damit nicht weiter. Ich würde mich sehr freuen, wenn mir hierbei jemand weiterhelfen könnte....
06.03.2017 20:05:59
Thread-ID: 1545824
12 Beiträge
Anzeige
VBA: Copy_Destination
Franz W.
Hallo Fachleute,
ich versuche wie folgt zu kopieren:
Worksheets("Offene").Range(Cells(rw, 1), Cells(rw, 11)).Copy _
Destination:=Worksheets("bez" & jZahl).Range(Cells(loLetzte + 1, 1), Cells(loLetzte + 1, 11))
Geht aber nicht, es kommt: " Anwendungs- oder objektdefinierter Fehler...
30.07.2003 17:20:29
Thread-ID: 287826
4 Beiträge
Range(Cells, Cells).Copy tut nicht...
Janine

Hallo Forumsteilnehmer,

ich bin in einer Schleife und benötige die erste Aktion:
(1) WB.Worksheets("Dokumentationsplanung").Range(Cells(a, 78), Cells(a, 83)).Copy

sie funktioniert aber leider nicht: "Anwendungs- oder Objektdefinierter Fehler".
Ich dachte es liegt an meiner...
07.11.2003 12:33:31
Thread-ID: 334796
7 Beiträge
Copy Range VBA
Frank
Hallo Leute,
ich will per VBA immer zwei bestimmte Zellen kopieren um diese dann in ein anderes Sheet zu pasten. Hier der Code: Was ist falsch?
Sub Coefficients() ' Coefficients Macro Dim Coefficients As Worksheet Dim Regressions As Worksheet Set Coefficients = Sheets("Coefficients") Set Re...
25.08.2004 15:22:44
Thread-ID: 475104
6 Beiträge
Cells range variablen.... in VBA
der

Hallo ihr Cracks!
was mache ich falsch?
Worksheets("LOP").PageSetup.PrintArea = "$A$1:(cells(endpunkt))"
will den Druckbereich festlegen mit der dynamischen Zellmarkierung -
A1 bis endpunkt (wird automatisch gesucht und ist z.B. dann N3)
Der markierte Bereich ist immer 14 Sp...
02.09.2005 10:00:05
Thread-ID: 661545
2 Beiträge
VBA - Copy Value - autom. Aufrunden unterdrücken
Guest
Hallo,
ich habe das Problem, dass ich bei unten stehendem Code als Value für 0,007 € den Wert 0,010 € erhalte, d.h. Excel rundet automatisch auf. Hat jemand einen Tipp, wie das unterbunden werden kann?
Sub SaveCopy() Application.ScreenUpdating = False Dim WBS As Workbook Dim WS As Worksheet...
01.03.2021 10:32:27
Thread-ID: 1816411
4 Beiträge

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
7
25
11
6
3
6
5
1
3
5
5
5
2
3
3
2
3
5
7
1
5
2
2
3