Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 683 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 680, 681, 682, 683, 684, 685, 686 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Bild mit Makro steuren 
Phelan XLPH

Antworten: 3
Aufrufe: 323

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2009, 18:15   Titel: AW: Bild mit Makro steuren Version: Office 2003
Hallo,

hier mal ein beispiel:

Dim bolAbbruchBB As Boolean

Sub BildBewegenRun()
Dim s As Shape
Dim li As Integer
Dim ob As Integer

If bolAbbruchBB = True Then
bolAbbruchBB = False
Exit Sub
End If

li = 1
ob = 2

Set s = Tabelle1.Shapes(1)
s.Left = s.Left + li
s.Top = s.Top + ob
Application.OnTime Now + TimeValue("00:00:01"), "BildBewegenRun"
End Sub

Sub BildBewegenStop()
bolAbbruchBB = True
End Sub
  Thema: monthview abfrage 
Phelan XLPH

Antworten: 3
Aufrufe: 539

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2009, 18:01   Titel: AW: monthview abfrage Version: Office 2003
...welche zeile genau....geh mal mit F8 durch
  Thema: monthview abfrage 
Phelan XLPH

Antworten: 3
Aufrufe: 539

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2009, 17:50   Titel: AW: monthview abfrage Version: Office 2003
Hallo,

ins codefenster der Tabelle:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
UserForm1.Show
Cancel = True
End If
End Sub
Bei Doppelklick in SpalteA wird die UserForm geladen.



Private Sub MonthView1_DateDblClick(ByVal DateDblClicked As Date)
MsgBox DateDblClicked
ActiveCell = DateDblClicked
Unload Me
End Sub


...konnte es nicht testen müsste so gehen... Smile
  Thema: gewünschtes Workbooks.Open ausführen 
Phelan XLPH

Antworten: 13
Aufrufe: 1184

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2009, 17:22   Titel: AW: gewünschtes Workbooks.Open ausführen Version: Office 2003
Hallo,

gucksduhier:

Sub Öffnen()
Dim intJahr As Integer
Dim strPfad As String

On Error Resume Next
intJahr = InputBox("Welches Jahr haben wir?")
If Err.Number <> 0 Then Exit Sub

strPfad = "G:\irgendwas\irgendwas\" & intJahr & "\Datei " & intJahr & ".xls"
Workbooks.Open strPfad
End Sub
  Thema: Exceltabelle öffnet sich alleine immer wieder .... 
Phelan XLPH

Antworten: 2
Aufrufe: 753

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2009, 17:01   Titel: AW: Exceltabelle öffnet sich alleine immer wieder .... Version: Office 2003
Hallo,

das in ein StandardModul:

Public bolAbbruchZS As Boolean 'ZeitSchleife

Public Sub Intervall()
If bolAbbruchZS = True Then Exit Sub
Workbooks("CentralR1.xls").Activate
ZeitAbfrage = Excel4MacroSheets("!").Cells(3, 2)
If ZeitAbfrage = 0 Or ZeitAbfrage = "" Then ZeitAbfrage = 1
If ZeitAbfrage < 10 Then ZeitAbfrage = "0" & ZeitAbfrage
Dim NextTime As Date
NextTime = Now + TimeValue("00" & ":" & ZeitAbfrage & ":" & "00")
Application.OnTime NextTime, "reminder"
End Sub


ins KlassenModul "DieseArbeitsmappe":
Private Sub Workbook_BeforeClose(Cancel As Boolean)
bolAbbruchZS = True
End Sub
  Thema: Buttons löschen 
Phelan XLPH

Antworten: 5
Aufrufe: 295

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2009, 16:52   Titel: AW: Buttons löschen Version: Office 97
Hallo,teste das hier mal:

Sub ButtonsLoeschen()
Dim ws As Excel.Worksheet
Dim s As Shape
On Error Resume Next
For Each ws In ThisWorkbook.Worksheets
For Each s In Worksheets(1).Shapes
If s.Type = msoOLEControlObject Then
If s.OLEFormat.progID = "Forms.CommandButton.1" Then _
s.Delete
End If
If s.Type = msoFormControl Then
If s.FormControlType = xlButtonControl Then _
s.Delete
End If
Next
Next ws
Set ws = Nothing
Set s = Nothing
End Sub
  Thema: Office 2003 über Zelle A1 div. Zellen ausblenden... 
Phelan XLPH

Antworten: 29
Aufrufe: 1439

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2009, 16:22   Titel: AW: Office 2003 über Zelle A1 div. Zellen ausblenden... Version: Office 2003
Hallo,

dafür hats ne tolle Methode.

ins codefenster der Tabelle:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Dim rng As Range
On Error Resume Next
Set rng = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
rng.Offset(1, 0).Resize(rng.Rows.Count - 1).EntireRow.Hidden = True
rng.ColumnDifferences(rng(1, 1)).EntireRow.Hidden = False
End If
End Sub

Änder den wert in [A1] -> diese Werte werden alle ausgefiltert
"leer" -> Alle werden angezeigt.
  Thema: Wertekopie bzw. nur Werte aus Quelle kopieren 
Phelan XLPH

Antworten: 2
Aufrufe: 2433

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2009, 15:54   Titel: AW: Wertekopie bzw. nur Werte aus Quelle kopieren Version: Office 2003
Hallo,

Austauschen und testen:

With ActiveWorkbook.Sheets("Zeiterfassung")
'in der gerade geöffneten Datei wird die letzte, beschriebene Zelle in Spalte A ermnittelt
loActWkb = .Cells(Rows.Count, 2).End(xlUp).Row
.Range("B7:G" & loActWkb).Copy
ThisWorkbook.Sheets("Rohdaten").Range("A" & loThisWkb).PasteSpecial Paste:=xlPasteValues
.Range("V7:X" & loActWkb).Copy
ThisWorkbook.Sheets("Rohdaten").Range("G" & loThisWkb).PasteSpecial Paste:=xlPasteValues
End With
  Thema: steuerelement calendar control 11.0 
Phelan XLPH

Antworten: 2
Aufrufe: 1787

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2009, 15:43   Titel: AW: steuerelement calendar control 11.0 Version: Office 2003
Hallo,

...ja das würde mich auch interessieren wie man das per VBA einbindet.
  Thema: Einzelne Ziffern einer Zahl auslesen 
Phelan XLPH

Antworten: 8
Aufrufe: 1924

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2009, 15:31   Titel: AW: Einzelne Ziffern einer Zahl auslesen Version: Office 2007
Hallo,

versuch das mal:

Sub SummeBilden()
Dim Dic As Object
Dim i As Long

Set Dic = CreateObject("Scripting.Dictionary")
With Worksheets("Tabelle2")
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(i, 1) <> "" Then
Dic(Mid(.Cells(i, 1), 7, 2)) = _
Val(Dic(Mid(.Cells(i, 1), 7, 2))) + .Cells(i, 2)
End If
Next
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If Dic.Exists(Mid(.Cells(i, 1), 7, 2)) Then
.Cells(i, 3) = Dic(Mid(.Cells(i, 1), 7, 2))
Dic(Mid(.Cells(i, 1), 7, 2)) = ""
End If
Next
End With
End Sub
  Thema: individueller Autofilter über Eingabefeld in Zelle 
Phelan XLPH

Antworten: 25
Aufrufe: 2633

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2009, 14:35   Titel: AW: individueller Autofilter über Eingabefeld in Zelle Version: Office 2003
Hallo,

sieht ganz gut aus. Hiermit hälst den SortierBereich dynamisch:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:N6")) Is Nothing And Target.Count = 1 Then
Filtern
End If
End Sub

Sub Filtern()
Dim wks As Worksheet
Dim rngSort As Range

Set wks = ActiveSheet
Set rngSort = wks.Range("A8:N" & wks.Range("I" & wks.Rows.Count).End(xlUp).Row)

wks.Range("A8:N8").CurrentRegion.AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=wks.Range("A1").CurrentRegion
rngSort.Sort Key1:=wks.Range("I8"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
  Thema: ComboBox -- 1.Befüllen? 2. Durch Auswahl in Tabelle springen 
Phelan XLPH

Antworten: 1
Aufrufe: 1893

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2009, 10:41   Titel: AW: ComboBox -- 1.Befüllen? 2. Durch Auswahl in Tabelle spri Version: Office 2k (2000)
Hallo,

ins Codefenster der UserForm:

Dim strBereich As String

Private Sub ComboBox1_Change()
ComboBox1 = Format(ComboBox1.List(ComboBox1.ListIndex), "ddd dd.mm.yyyy")
End Sub

Private Sub CommandButton1_Click()
Label1 = Range(strBereich).Find(What:=DateValue(Right(ComboBox1.Value, 10)), LookIn:=xlFormulas).Address(1, 1, , 1)
End Sub

Private Sub UserForm_Initialize()
strBereich = "Tabelle2!H2:H31" 'ANPASSEN
ComboBox1.RowSource = strBereich
End Sub

Du benötigst: Combobox, CommanButton und Label
  Thema: Excelmappen aus tabellen erstellen... 
Phelan XLPH

Antworten: 7
Aufrufe: 414

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2009, 09:54   Titel: AW: Excelmappen aus tabellen erstellen... Version: Office 2003
Hallo,

kann auch nicht funktionieren Very Happy

habs oben korrigiert
  Thema: Datenblatt auf Knopfdruck in neuer Mappe speichern 
Phelan XLPH

Antworten: 19
Aufrufe: 1085

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2009, 09:36   Titel: AW: Datenblatt auf Knopfdruck in neuer Mappe speichern Version: Office 2003
Hallo,

Sind es mehrere Links nach denen gesucht wird oder ist es nur ein Link?

...ich frage weil:
Suchen des entsprechenden Hyperlinks (Datenblatt Preisliste / Zelle C3 ff)
(Wichtig: Der Hyperlink verbirgt sich hinter der Bezeichnung "Website")
  Thema: listbox füllen aus tabelle 
Phelan XLPH

Antworten: 3
Aufrufe: 3252

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2009, 02:33   Titel: AW: listbox füllen aus tabelle Version: Office 2007
Hallo,

sehe du hast 2007:

kannst das hier mal probieren

Private Sub UserForm_Initialize()
ListBox1.List = LBF(1)
End Sub

Function LBF(spalte As Integer) As Variant
Application.ScreenUpdating = False
Columns(spalte).Copy
With Columns(spalte)
.Insert xlToRight
.RemoveDuplicates Columns:=1, Header:=xlYes
.Sort Key1:=.Cells(1), Header:=xlYes
LBF = Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
'MsgBox Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp)).Address
.Delete xlToLeft
End With
Application.ScreenUpdating = True
End Function
 
Seite 683 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 680, 681, 682, 683, 684, 685, 686 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps