Thema Datum  Von Nutzer Rating
Antwort
20.08.2008 17:51:21 Roadrunner1988
NotSolved
Blau Aw:vba in Excel 2003
22.08.2008 13:11:36 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger
Datum:
22.08.2008 13:11:36
Views:
938
Rating: Antwort:
  Ja
Thema:
Aw:vba in Excel 2003
Hallo Roadrunner1988,
wenn ich dich richtig verstanden habe, brauchst du nur den Code für das Benennen des aktiven Tabellenblattes, wobei der Name in D2 dieses Tabellenblattes steht:
activesheet.name=cells(2,4)
Gruß
Holger


Roadrunner1988 schrieb am 20.08.2008 17:51:21:

seid gegrüßt

ich habe ein verdammt dringendes Problem


soa...also mal ne kurze erläuterung
Es geht um viele Werkzeuge
Ich hab ne Gundtabelle "Auswertung"
da stehen alle daten drin, die die datenblätter [für jedes werkzeug eins] übernehmen..
--> Zellbezogen..
Also das was in der Auswertung in der ersten zeile steht, sth auch im ersten Datenblatt...

"D2" ist immer der name des Werkzeuges
[ per formel übernommen aus "Auswertung"]


soo.. und jetz sollten sich jedes Datenblatt an dem jeweiligen zellwert "D2" orientieren..

das funktioniert auch, wenn ich in der auswertung die Werkzeugkennung ändere, wird der Wert auf das jeweilige Datenblatt übernommen und die Bilder hinzugefügt.


nur dass halt die datenblattnamen nicht umbenannt werden, wenn ich in "auswertung" auf sortieren gehe [Command button]..
wie gesagt es werden alle daten übernommen.. nur nicht die tabellenblattnamen..
[beim sortieren]




Code:
Private Sub CommandButton1_Click()

'schaltet Bildschirmaktualisierung während der Berechnung aus
Application.ScreenUpdating = False

'Deaktivieren des Blattschutzes mit dem Passwort "rogles"
With ActiveSheet
.Unprotect Password:="rogles"

'aufsteigendes sortieren der Spalte A
Range("A3:K100").Sort Key1:=Range("A3"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal


'Definition der Funktionen, welche nach Blattschutz aktiv bleiben
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True, AllowFormattingRows:=True, AllowSorting _
:=True, AllowFiltering:=True, AllowUsingPivotTables:=True


'aktivieren des Blattschutzes mit dem Passwort "rogles"
Sheets("Auswertung").Protect Password:="rogles", userinterfaceonly:=True

End With




'schaltet Bildschirmaktualisierung nach Berechnung ein
Application.ScreenUpdating = True


End Sub



Coder der in jedem Werkzeugdatenblatt verankert ist

Code:
Option Explicit
Dim LetzterWert As String
Private Const Verzeichnis As String = "D:\Arbeit\tool-pics\"

Private Sub Worksheet_Calculate()
Dim Bezeichnung As String
Bezeichnung = Me.Range("D2").Text
If LetzterWert <> Bezeichnung Then
LetzterWert = Bezeichnung
On Error Resume Next
Me.Name = Bezeichnung

Call Bildereinfügen(Bezeichnung)
End If
End Sub

Sub Bildereinfügen(ByVal Schlüssel As String)
Dim Pfad As String, Pic As Picture
Dim Bereich As Range

'Alte Bilder Löschen, falls bereits erzeugt
On Error Resume Next
Me.Pictures("ErstesBild").Delete
Me.Pictures("ZweitesBild").Delete
On Error GoTo 0

'Variablen zuordnen
Pfad = Verzeichnis & Schlüssel & ".jpg"
Set Bereich = Range("B5:D34")

'erstes Bild Laden
If Dir(Verzeichnis & Schlüssel & ".jpg") = "" Then _
MsgBox "Datei " & Schlüssel & " nicht vorhanden!", vbOKOnly, "Mitteilung"

Set Pic = Me.Pictures.Insert(Pfad)


'Namen für erstes Bild vergeben
Pic.Name = "ErstesBild"

'Größe und Position anpassen
Pic.Top = Bereich.Top
Pic.Left = Bereich.Left
Pic.Width = Bereich.Width
Pic.Height = Bereich.Height

'Variablen zuordnen
Pfad = Verzeichnis & Schlüssel & "r.jpg"
Set Bereich = Range("E5:G34")

'zweites Bild Laden
If Dir(Verzeichnis & Schlüssel & "r.jpg") = "" Then _
MsgBox "Datei " & Schlüssel & "r nicht vorhanden!", vbOKOnly, "Mitteilung"
Set Pic = Me.Pictures.Insert(Pfad)

'Namen für zweites Bild vergeben
Pic.Name = "ZweitesBild"

'Größe und Position anpassen
Pic.Top = Bereich.Top
Pic.Left = Bereich.Left
Pic.Width = Bereich.Width
Pic.Height = Bereich.Height

'Aufräumen
Set Pic = Nothing
Set Bereich = Nothing
End Sub


brauche echt dringend hilfe, da ich mit vba noc nicht so vertraut bin.

bei Fragen...

ICQ 223687950


Danke schonmal..

Viele grüße

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)
  • Bei 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)
  • Bei 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
20.08.2008 17:51:21 Roadrunner1988
NotSolved
Blau Aw:vba in Excel 2003
22.08.2008 13:11:36 Holger
NotSolved