VBA Befehl funktioniert nicht

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
Hinweis: gleiche Frage wie hier!
Kopieren aus anderem Tabellenblatt/VBA - Volker 16.01.2023 10:49:16
Nepumuk ist ein exellenter Fachmann, Hut ab, aber sein Tipp wird m.E. das Problem nicht lösen.
Sehr verblüffend:
weil ich auf einem uralten XP Laptop arbeite muss ich alle 2007 Dateien zuerst mit ApacheOffice4 in eine Excel 2003 Datei formatieren. Sehr verblüffend ist bei mir die VBA EditorAnzeige bei Excel 2003!!
Sheet1 (Rast) Ohne Tabellencode
Sheet2 (Infothek)
Sheet3 (Liste Auswahl)
Tab Auswahl
Tabelle1 Mit Tabellencode
Tabelle2
Die Sheets sind grau markiert, Tab Auswahl + Tabellen als Excel Tabelle
Amüsante Frage an alle Kollegen:
wie kann ein Excel Tabellencode aus der Original Tabelle verschwinden, und von ApacheOffice4 in einer Tabelle1 wieder erscheinen?
Für Volker, prüfe bitte mal wo dein Tabellen Code geblieben ist?
Technisch erklaeren kann ich ddas seltsame Phaenomen nicht!
mfg Piet

Hallo Volker
öffne bitte die Datei, öffne mit der Tasten Kombi Alt + F11 den VBA Editor, aktiviere VBA Projekt Fenster.
Dort werden dir die Tabellen und Module angezeigt. In der Tabelle (Rast) sollte sich der Code befinden.
Wenn nicht schau bitte mal ob er in eine andere Tabelle verschoben wurde. Dann kopiere ihn nach (Rast)
Wenn du dich nicht traust lege bitte zuerst eine Kopie Datei an, und übe es bitte in der Kopie Datei!!
Ist vielleicht besser bist du die Sache sicher im Griff hast. Unten siehst du wie der Code bei mir aussieht!
mfg Piet


Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ende
ActiveSheet.Unprotect Password:="info"
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Not (Intersect(Range("B15,D15,F15,H15,B36,D36,F36,H36"), Target) Is Nothing) Then
Target.Offset(1).Resize(6).ClearContents
Target.Offset(1).Resize(6).ClearFormats
Select Case Target.Value
Case "k"
Worksheets("Liste Auswahl").Range("A2:A5").Copy Target.Offset(1)
Case "e"
Worksheets("Liste Auswahl").Range("A11:A16").Copy Target.Offset(1)
Case "u"
Worksheets("Liste Auswahl").Range("A25:A28").Copy Target.Offset(1)
Case "Sonstiges"
Worksheets("Liste Auswahl").Range("A19:A22").Copy Target.Offset(1)
End Select
Application.CutCopyMode = False
End If
ende:
Target.Offset(1).Resize(6).RowHeight = 18#
Application.EnableEvents = True
ActiveSheet.Protect Password:="info"
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$J$14" Then speichern
If Target.Address = "$J$35" Then speichern1
End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

166 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Befehl funktioniert nicht

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

166 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread