Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1004to1008
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
1004to1008
1004to1008
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

per VBA kopieren Original behalten

per VBA kopieren Original behalten
02.09.2008 08:09:35
Peter
Guten Morgen allerseits,
ich gebe über eine Userform Daten in ein Tabellenblatt "Protokoll" ein. Damit dieses Protokoll immer mit richtigem Namen abgespeichert wird, bezieht es seinen Namen aus einer bestimmten Zelle. Ich möchte jetzt dieses Tabellenblatt mit seinem neuen Namen in der gleichen Mappe speichern und das Original Protokoll ohne eingebene Daten aus der Userform wieder zur Verfügung haben. Meine Frage ist, " ist das mit VBA möglich" ? Es wär schön wenn Ihr mir helfen könnt, ich habe schon alles mögliche abgesucht aber nichts passendes gefunden.
Viele Grüße Peter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: per VBA kopieren Original behalten
02.09.2008 11:10:49
fcs
Hallo Peter,
kier ein Beispielcode, den du an deine Datei anpassen muss.
Gruß
Franz

Sub ProtokollKopieren()
Dim wksProtokoll As Worksheet, wksKopie As Worksheet, bolExit As Boolean
Const strZelleName As String = "A4" 'Zelle mit dem Blattnamen
Set wksProtokoll = Worksheets("Protokoll")
'Blattname für Kopie prüfen
With wksProtokoll
If .Range(strZelleName) = "" Then
MsgBox "Im Protokoll-Blatt ist kein Blattname eingetragen!"
bolExit = True
Else
For Each wksKopie In ActiveWorkbook.Worksheets
If LCase(wksKopie.Name) = LCase(.Range(strZelleName)) Then
MsgBox "Ein Blatt mit dem im Protokoll-Blatt eingetragen Namen ist schon vorhanden!"
bolExit = True
Exit For
End If
Next
End If
End With
If bolExit = False Then
'Kopie des Protokolls am Ende einfügen
wksProtokoll.Copy After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
Set wksKopie = ActiveSheet
'Kopie umbenennen
wksKopie.Name = wksKopie.Range(strZelleName)
'Inhalte der Eingabefelder im Original löschen
With wksProtokoll
.Range("A2:C2").ClearContents
.Range(strZelleName).ClearContents
.Range("A5:C5").ClearContents
End With
End If
End Sub


Anzeige
AW: per VBA kopieren Original behalten
02.09.2008 11:42:00
Peter
Hallo Franz,
ich bin begeistert, es funktioniert hervorragend.
vielen Dank für Deine schnelle Hilfe
Gruß Peter

303 Forumthreads zu ähnlichen Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Anzeige
Bezug auf Blatt abhängig von Zellinhalt
Zellinhalt

Hallo!
Meine Arbeitsmappe hat vier Blätter, diese heißen: "Übersicht" "Hans", "Klaus" und "Karl".
In Zelle A1 von "Übersicht" steht entweder "Hans", "Klaus" oder "Karl".
In Zelle A2 soll das stehen, was in Zelle B16 des Blattes steht, das in Zelle A1 von "Übersicht" genannt ist.
...
11.08.2008 16:55:00
Thread-ID: 1000917
3 Beiträge
Ausgabe von Teilen des Zellinhaltes
Teilen

Hallo
Ich habe über SVERWEIS mir Zellinhalte aus einer großen Tabelle ausgeben lassen.
Nun möchte ich aber bei der Ausgabe nicht den gesamten Zellinhalt mir anzeigen lassen, sondern nur die ersten 4 Ziffern.
Ist das möglich?
Vielen Dank für die Hilfe
MfG
Andreas
...
14.08.2008 08:45:54
Thread-ID: 1001719
4 Beiträge
Anzeige
Ordnerinhalt in Tabelle schreiben
Johann

Hallo Excel-Profis!
Ich brauch wieder einmal eure Hilfe.
Im Archiv habe ich mir den nachfolgenden Code besorgt und ein wenig verändert.
Der Code schreibt den Inhalt des aktuellen Ordners und der Unterordner in die Spalte B einer Tabelle und verlinkt noch dazu die einzelnen Einträge...
15.08.2008 17:19:52
Thread-ID: 1002256
8 Beiträge
Autokorrektur abschalten
Pia

Guten Abend zusammen,
wie kann man eine Autokorrektur in Excel abschalten? Ich muss WEI eintippen aber jedesmal wenn ich mit Enter bestätigen, es wechselt automatisch zu WIE.
Vielen Dank
20.08.2008 21:03:44
Thread-ID: 1003317
7 Beiträge
Belegung Schaltfläche msgbox
Lars

Hallo,
kann ich bei einer msgbox die Schaltflächen auch selber benennen?
Ich würde gerne wissen, ob ein Wert ober- oder unterhalb eines Grenzwertes liegt und somit die Tasten "oberhalb" und "unterhalb" in der msgbox haben.
Lars
21.08.2008 14:10:31
Thread-ID: 1003485
4 Beiträge
Schriftgröße Zelle automatisch an Inhalt anpassen
Peter

Hallo Leute!
Folgende Situation: ich habe in einer Arbeitsmappe auf mehreren Tabellenblättern zu oberst das gleiche Design. Unter anderem steht auf jedem Blatt oben in einer Zelle die gleiche Information. Aus Gründen der Einfachheit muss man diese Information nur einmal auf dem ersten Tabel...
21.08.2008 15:04:06
Thread-ID: 1003519
4 Beiträge
Pro Passwort eine Zeile freischalten...
amina

Hallo alle zusammen,
gibt es eine Möglichkeit in Excel pro Passwort eine Zeile freizuschalten.
Also z.b hab ich 20 Leute
1. Person = Zeile 1
2. Person = Zeile 2
usw.
und jede Person darf nur jeweils seine Zeile bearbeiten und die anderen bleiben gesperrt also so ähnlich...
21.08.2008 15:04:36
Thread-ID: 1003520
7 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

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
4
2
3
3
7
6
3
3
6
5
3
2
1
6
7
4
2
1
7
4
8
5
3
1