Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 557 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 554, 555, 556, 557, 558, 559, 560 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Bestimmte Werte aus Array löschen 
Phelan XLPH

Antworten: 9
Aufrufe: 866

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Aug 2009, 19:58   Titel: AW: Bestimmte Werte aus Array löschen Version: Office XP (2002)
Poste deinen Code, wie füllst du die ComboBoxen?

Wo steht die Liste der Mitarbeiter?
  Thema: Datenblöcke verschieben 
Phelan XLPH

Antworten: 10
Aufrufe: 331

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Aug 2009, 19:48   Titel: AW: Datenblöcke verschieben Version: Office 2k (2000)
Razz Razz Razz
  Thema: Copy & Paste per Makro funzt nicht 
Phelan XLPH

Antworten: 14
Aufrufe: 1975

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Aug 2009, 18:26   Titel: AW: Copy & Paste per Makro funzt nicht Version: Office 2003
so funzt es jetzt auch, das auskommentieren was du nicht benötigst:
Sub Makro12()
Dim s As Shape
With Tabelle3
For Each s In .Shapes
If s.TopLeftCell.Address = "$B$2" Then _
s.Delete
Next
Tabelle1.Shapes("Grafik 1").Copy
'.Pictures.Paste
'ActiveSheet.PasteSpecial Format:="Microsoft Office-Zeichnungsobjekt"
.PasteSpecial Format:="Bild (Erweiterte Metadatei)"
With .Pictures
.Item(.Count).Left = .Parent.Range("B2").Left
.Item(.Count).Top = .Parent.Range("B2").Top
End With
End With
End Sub


Unterstrich bedeutet nur dass es in der nächsten zeile weiter geht.

Abfrage ob Bild(rechte obere Ecke) sich im Bereich von B5 befindet und löschen
For Each s In .Shapes
If s.TopLeftCell.Address = "$B$5&quo ...
  Thema: Fehlermeldung bei Makro (automatischer Blattname) 
Phelan XLPH

Antworten: 3
Aufrufe: 572

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Aug 2009, 18:10   Titel: AW: Fehlermeldung bei Makro (automatischer Blattname) Version: Office 2003
Es dürfen keine 2 Blätter mit dem gleichen Namen existieren -> Fehlermeldung.

weitere begrenzungen bei der Namensgebung....
  Thema: Bestimmte Werte aus Array löschen 
Phelan XLPH

Antworten: 9
Aufrufe: 866

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Aug 2009, 18:04   Titel: AW: Bestimmte Werte aus Array löschen Version: Office XP (2002)
hallo, ich versteh nicht was dein Ziel ist?!
  Thema: Msgbox unter bestimmter Voraussetzung 
Phelan XLPH

Antworten: 8
Aufrufe: 292

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Aug 2009, 17:53   Titel: AW: Msgbox unter bestimmter Voraussetzung Version: Office 2007
teste nochmal:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sum As Double
Dim rngF As Range
If Not Intersect(Target, Range("B:B")) Is Nothing And Target.Count = 1 Then
If Target = "" Then Exit Sub
sum = WorksheetFunction.SumIf(Range("A:A"), Range("A" & Target.Row), Range("B:B"))
Set rngF = Range("C:C").Find(Range("A" & Target.Row), , xlValues, xlWhole)
If Not rngF Is Nothing Then
If sum > Range("D" & rngF.Row).Value Then
Target.Select
MsgBox "Gesamtbudget von Produkt [" & Range("A" & Target.Row) & "] ist um " & _
Format(Range("D" & rngF.Row).Value - sum, "##0.00 €") & &q ...
  Thema: Ertragsdaten sortieren und summieren 
Phelan XLPH

Antworten: 9
Aufrufe: 253

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Aug 2009, 17:48   Titel: AW: Ertragsdaten sortieren und summieren Version: Office 2003
Poste doch mal wie nach dem Makrodurchlauf die Daten aussehen!
  Thema: WorksheetFunction selbst erstellen 
Phelan XLPH

Antworten: 13
Aufrufe: 1119

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Aug 2009, 17:41   Titel: AW: WorksheetFunction selbst erstellen Version: Office 2003
du meinst eine Selbst definierte Funktion?

bsp.

Sub Test()
MsgBox Verketten2(Range("A1:E20"))
End Sub


Public Function Verketten2(Bereich As Range) As String
Dim zell As Range
For Each zell In Bereich
If zell <> "" Then _
Verketten2 = Verketten2 & ";" & zell.Text
Next
If Verketten2 <> "" Then _
Verketten2 = Mid(Verketten2, 2)
End Function

oder Aufruf in einer Zelle =Verketten2(A1:D20)
  Thema: Copy & Paste per Makro funzt nicht 
Phelan XLPH

Antworten: 14
Aufrufe: 1975

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Aug 2009, 15:25   Titel: AW: Copy & Paste per Makro funzt nicht Version: Office 2003
Nimm einfach den von mir zuletzt geposteten Code.

Ich kann keinen Unterschied feststellen ob Bild(meta...) oder Bild(JPG) oder
was auch immer...
  Thema: Copy & Paste per Makro funzt nicht 
Phelan XLPH

Antworten: 14
Aufrufe: 1975

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Aug 2009, 15:02   Titel: AW: Copy & Paste per Makro funzt nicht Version: Office 2003
Das macht doch keinen unterschied, teste einfach mal....
  Thema: Fehler bei Msgbox 
Phelan XLPH

Antworten: 3
Aufrufe: 194

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Aug 2009, 14:52   Titel: AW: Fehler bei Msgbox Version: Office 2007
...bei mir tuts hab auch 2007
  Thema: Copy & Paste per Makro funzt nicht 
Phelan XLPH

Antworten: 14
Aufrufe: 1975

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Aug 2009, 14:40   Titel: AW: Copy & Paste per Makro funzt nicht Version: Office 2003
Was ist eine Windows Meta-Datei?

Sub Makro12()
Dim s As Shape
With Tabelle2
For Each s In .Shapes
If s.TopLeftCell.Address = "$B$2" Then _
s.Delete
Next
Tabelle1.Shapes("Grafik 2").Copy
.Pictures.Paste
With .Pictures
.Item(.Count).Left = .Parent.Range("B2").Left
.Item(.Count).Top = .Parent.Range("B2").Top
End With
End With
End Sub
  Thema: Daten abhängig von Auswahl in ComboBox in Listbox anzeigen 
Phelan XLPH

Antworten: 8
Aufrufe: 2862

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Aug 2009, 14:06   Titel: AW: Daten abhängig von Auswahl in ComboBox in Listbox anzeig Version: Office 2003
Hab auch was...
  Thema: Userformen verbinden 
Phelan XLPH

Antworten: 1
Aufrufe: 274

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Aug 2009, 13:29   Titel: AW: Userformen verbinden Version: Office 2003
UF1 mit Me.Hide nur verstecken und beim Schliessen von UF2, UF1 mit
Me.Show wieder anzeigen
  Thema: MsgBox wenn Daten fehlen 
Phelan XLPH

Antworten: 6
Aufrufe: 287

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Aug 2009, 13:25   Titel: AW: MsgBox wenn Daten fehlen Version: Office 2003
Beim Laden der UF wird als erstes das Initializ-Ereignis ausgefürt.

in meinem Bsp:

Private Sub UserForm_Initialize()
ListBox1.AddItem 1
ListBox1.AddItem 2
ListBox1.AddItem 3

ComboBox1.RowSource = Range("A1:A10").Address

TextBox1.Tag = "Name"
TextBox2.Tag = "Vorname"
TextBox3.Tag = "Ort"
ComboBox1.Tag = "PLZ"
ComboBox2.Tag = "Jahr"
ListBox1.Tag = "Element"
End Sub
 
Seite 557 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 554, 555, 556, 557, 558, 559, 560 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP JavaScript