Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1244to1248
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
1244to1248
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel als Code in VBA

Formel als Code in VBA
Claudia
Hallo guten Abend alle zusammen,
wer kann mir bitte mit einem kleinen VBA-Code helfen?
Welchen VBA-Code benötige ich wenn ich die letzten 4 Stellen des Dateinamens in die Zelle V2 des Tabellenblattes Einstellungen reinschreiben möchte.
Das besagte Tabellenblatt ist/wird mit xlVeryHidden im Workbook_Open am Anfang ausgeblendet.
Mit einer Formel geht das ja so: =TEIL(ZELLE("Dateiname");FINDEN("]";ZELLE("Dateiname"))-9;4)
Aber mit VBA bekomme ich es einfach nicht hin.
Danke für Eure Mithilfe
Gruß Claudia

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Formel als Code in VBA
09.01.2012 20:40:00
Josef

Hallo Claudia,
Sheets("Einstellungen").Range("V2") = Right(ThisworkBook.Name, 4)

« Gruß Sepp »

AW: Formel als Code in VBA
09.01.2012 20:41:02
ransi
Hallo
Hm...,
Wo ist das Problem ?
Sheets("Einstellungen").Range("V2").Value = Right(ThisWorkbook.Name, 4)
ransi
Anzeige
AW: Formel als Code in VBA
09.01.2012 20:44:52
JoWe
Hi Claudia,
vllt. aber auch so, falls Du nicht nur ".xls" in V2 benötigst: 
Sub Teil_Dateiname_in_Zelle()
Sheets("Einstellungen").Range("V2") = _
Right(Replace(ThisWorkbook.FullName, ".xls", ""), 4)
End Sub

Gruß
Jochen
AW: Formel als Code in VBA
09.01.2012 20:56:08
Claudia
Hallo Jochen,
da die Datei eine xlsm ist brauchte ich das xls nur in xlsm ändern und genau das wars dann.
Danke Claudia
Die Formel war aber falsch ...
09.01.2012 20:55:03
Matthias
Hallo
Zitat
Mit einer Formel geht das ja so: =TEIL(ZELLE("Dateiname");FINDEN("]";ZELLE("Dateiname"))-9;4)
Das ist aber nicht ganz korrekt!
Tabelle1

 BC
6Dateiname:MeinDateiname.xls
7 inam

Formeln der Tabelle
ZelleFormel
C7=TEIL(ZELLE("Dateiname");FINDEN("]";ZELLE("Dateiname"))-9;4)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Du müsstest 4 Zeichen links vom Punkt darstellen. Es gibt ja .xls .xlsx .xlsm usw.

Du kannst aber den Namen auch so auslesen
Für eine .xls-Datei z.B so ...
Sub myCode()
Dim Strg$
Strg = ThisWorkbook.FullName
MsgBox Mid(Strg, Len(Strg) - 7, 4)
End Sub
Je nach Dateiendung einfach anpassen
für .xlsm z.B
Sub myCode()
Dim Strg$
Strg = ThisWorkbook.FullName
MsgBox Mid(Strg, Len(Strg) - 8, 4)
End Sub
Gruß Matthias
Anzeige

324 Forumthreads zu ähnlichen Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Anzeige
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:34:08
Thread-ID: 1000867
5 Beiträge
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Anzeige
VBA Formel finden
Baywatch

Hi,
ich brauche etwas hilfe, mit einer VBA programmierung, vielleicht hat jemand ein paar MInuten Zeit.
Ich habe eine Tabelle 1 in der eine eingabe passiert und eine TAbelle 2 sollen die Einträge aus TAbelle 1 hinkopiert werden und erst nach Spalte G dann nach B und dann nach A sortiert...
25.08.2008 08:47:34
Thread-ID: 1004371
7 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Makrostart wenn in Zelle was geschrieben wird
Bernd

Hallo,
wie stelle ich es an, damit ein Makro startet, sobald ich in einer bestimmten Zelle etwas schreibe?
Mein Code will irgendwie nicht so wie ich will. Der läuft ohne nonstop.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("D3") "" Then Call tabelle_kopi...
31.08.2008 11:09:00
Thread-ID: 1006152
2 Beiträge
Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Anzeige

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
5
2
4
5
16
6
5
1
13
2
3
4
3
2
8
5
4
30
3
8
11
10
12
5
4