Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 716 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 713, 714, 715, 716, 717, 718, 719 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Code umschreiben - Wert in Tabelle speichern 
Phelan XLPH

Antworten: 36
Aufrufe: 1797

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. März 2009, 20:27   Titel: AW: Code umschreiben - Wert in Tabelle speichern Version: Office 2007
Mappe: Datenbank.xlsx Blatt:Application
Mappe: Eingabemaske Werker.xlsm Blatt: ???

Könntest du die Fragezeichen noch mit einem Namen Füllen? Very Happy
  Thema: Listboxeinträge anzeigen, bearbeiten, speichern??? 
Phelan XLPH

Antworten: 18
Aufrufe: 2844

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. März 2009, 20:22   Titel: AW: Listboxeinträge anzeigen, bearbeiten, speichern??? Version: Office 2003
Also:

'Listbox wir gefüllt
'***************** Nach Einträgen suchen und Liste füllen ***************

Dim Found As Range
Dim FirstAddress As String
Dim Search As String
Dim Zeile As Long ' zeilenzähler

Zeile = 0
Search = TextBox3

If Search = "" Then Exit Sub

Me.ListBox1.ColumnCount = 7 ' anzahl spalten in der liste
Me.ListBox1.ColumnWidths = "60;40;50;120;50;80;0" ' Spaltenbreiten definieren, letzte Spalte 0 weil Lösung nicht angezeigt werden soll

With Sheets("Thun").Range("D1:D65536") ' suche in spalte D1 etc.
Set Found = .Find(Search, LookIn:=xlValues) ' suche nach wert "search" in zellenwert
If Not Found Is Nothing Then ' wenn nicht nichts gefunden wurde mache das folgende
...
  Thema: Prüfen ob PERSONL.xls geöffnet ist 
Phelan XLPH

Antworten: 6
Aufrufe: 1968

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. März 2009, 19:55   Titel: AW: Prüfen ob PERSONL.xls geöffnet ist Version: Office 2003
Danke A4711 (AK47) könnte ich mir besser merken... Very Happy
Darf man eigentlich nicht schreiben nach dem Amoklauf im Schwabenland Rolling Eyes
  Thema: Tabellen vergleichen 
Phelan XLPH

Antworten: 11
Aufrufe: 375

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. März 2009, 19:46   Titel: AW: Tabellen vergleichen Version: Office 2007
hallo teste mal, mach vorher ne Sicherungskopie!

Sub BestellNrOhneDatumLoeschen()
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim arrQ As Variant
Dim arrZ As Variant
Dim Dic As Object
Dim keyD As Variant
Dim lngI As Long
Dim rngDel As Range

Set Dic = CreateObject("Scripting.Dictionary")
Set wksQ = Workbooks("WBQ.xls").Worksheets("ALVXXL01")
Set wksZ = Workbooks("WBZ.xls").Worksheets("Tabelle1")

arrQ = wksQ.Range(wksQ.Cells(2, 4), wksQ.Cells(wksQ.Rows.Count, 9).End(xlUp))
For lngI = 1 To UBound(arrQ)
If arrQ(lngI, 1) <> "" And arrQ(lngI, 6) = "" Then
Dic(arrQ(lngI, 1)) = ""
End If
Next

arrZ = wksZ.Range(wksZ.Cells(19, 5), wksZ.Cells(wksZ.Rows.Count, 5).End(xlUp))
For Each keyD In Dic.Keys
For lngI = 1 To ...
  Thema: Listboxeinträge anzeigen, bearbeiten, speichern??? 
Phelan XLPH

Antworten: 18
Aufrufe: 2844

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. März 2009, 18:57   Titel: AW: Listboxeinträge anzeigen, bearbeiten, speichern??? Version: Office 2003
Wo ist der Code der die den neuen Eintrag erstellt?
(Du meinst doch einen Eintrag im sheet erstellen, oder?)
  Thema: Prüfen ob PERSONL.xls geöffnet ist 
Phelan XLPH

Antworten: 6
Aufrufe: 1968

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. März 2009, 18:45   Titel: AW: Prüfen ob PERSONL.xls geöffnet ist Version: Office 2003
@A4711 was bedeutet INSTANZ was ist der Unterschied zur
Objektvariablen

Ist die instanz zur Collection, was die Objektvariable zum einzelnen Objekt
zB sheet(1) und Sheets

Wan benötigt man die Instanz hab das nie richtig begriffen
  Thema: Listboxeinträge anzeigen, bearbeiten, speichern??? 
Phelan XLPH

Antworten: 18
Aufrufe: 2844

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. März 2009, 18:38   Titel: AW: Listboxeinträge anzeigen, bearbeiten, speichern??? Version: Office 2003
Meinst du anfügen?
Wie liest du denn die Werte ein?
  Thema: Bei Verlassen der Zelle soll ein Kommentar ausgefüllt werden 
Phelan XLPH

Antworten: 7
Aufrufe: 385

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. März 2009, 18:32   Titel: AW: Bei Verlassen der Zelle soll ein Kommentar ausgefüllt we Version: Office 2003
Das Perfekte:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 Then
If Target.Comment Is Nothing Then
Target.AddComment Environ("Username") & " " & Date & ":" & vbLf & "Text " & Target.Value
Target.Comment.Shape.TextFrame.Characters(1, Len(Environ("Username") & " " & Date & ":")).Font.Bold = True
Else
Target.Comment.Text Environ("Username") & " " & Date & ":" & vbLf & "NEUER Text " & Target.Value
Target.Comment.Shape.TextFrame.Characters(1, Len(Environ("Username") & " " & Date & ":")).Font.Bold = True
End If
End If
End Sub
  Thema: 2 Fragen zur Zeitsteuerung 
Phelan XLPH

Antworten: 3
Aufrufe: 804

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. März 2009, 18:18   Titel: AW: 2 Fragen zur Zeitsteuerung Version: Office 2003
zu 2. von A4711

das muss nicht so kompliziert sein, schreibe es in ein Extrablatt und blende dieses
aus.
  Thema: Bei Verlassen der Zelle soll ein Kommentar ausgefüllt werden 
Phelan XLPH

Antworten: 7
Aufrufe: 385

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. März 2009, 18:10   Titel: AW: Bei Verlassen der Zelle soll ein Kommentar ausgefüllt we Version: Office 2003
hallo,

füg das mal ins Codefenster der jeweiligen Tabelle ein:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 Then
If Target.Comment Is Nothing Then
Target.AddComment Date & ":" & vbLf & "Hier der Text" & Target.Value
Else
Target.Comment.Text Date & ":" & vbLf & "Hier NEUER der Text" & Target.Value
End If
End If
End Sub
  Thema: Code umschreiben - Wert in Tabelle speichern 
Phelan XLPH

Antworten: 36
Aufrufe: 1797

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. März 2009, 17:55   Titel: AW: Code umschreiben - Wert in Tabelle speichern Version: Office 2007
Zwischen vier Dateien werden Daten kopiert.
Leider ist aus dem Code nicht ersichtlich
wie die Tabellenblätter heißen.

Gib bitte grob an von welcher Datei/welchem Blatt zu Welcher datei/ welchem
Blatt Bereiche kopiert werden sollen!
  Thema: Evaluate und Formel 
Phelan XLPH

Antworten: 24
Aufrufe: 3058

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. März 2009, 17:30   Titel: AW: Evaluate und Formel Version: Office XP (2002)
Du hast ja jetzt vier Varianten aufgezeigt die funzen, von dem her
weiß man jetzt welche man meiden sollte.

Damit hake ich das Thema für mich ab, könnten ja Bill Gates nen
Beschwerde-Brief schreiben Very Happy !

Das Thema hat sich jetzt lang genug ins Hirn gebrannt!
  Thema: langen Quelltext übersichtlicher machen 
Phelan XLPH

Antworten: 4
Aufrufe: 252

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. März 2009, 17:12   Titel: AW: langen Quelltext übersichtlicher machen Version: Office XP (2002)
Hallo,

im VBA-Edito hast du im Codefenster unten links unte zwei kleine
quadratische Buttons:

1. "Prozeduransicht"
2. "Vollständige Modulansicht"

...mehr brauch ich dazu nicht sagen Very Happy
  Thema: Geänderte Zellen in globalen Array speichern 
Phelan XLPH

Antworten: 2
Aufrufe: 364

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. März 2009, 15:03   Titel: AW: Geänderte Zellen in globalen Array speichern Version: Office 2k (2000)
wo ist da jetzt der vergleich?

so:
' Ranges der geänderten Zellen
Public aChangedRanges() As String
  Thema: Zelleninhalt in eine CoboBox 
Phelan XLPH

Antworten: 6
Aufrufe: 276

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. März 2009, 14:23   Titel: AW: Zelleninhalt in eine CoboBox Version: Office 2003
Das ist jetzt die erwiterung für die Zeilen in Spalte G.
wird beim selectieren der Box neu eingelesen.

Private Sub ComboBox1_GotFocus()
ComboBox1.RowSource = "G11:G" & Cells(Rows.Count, 7).End(xlUp).Row
End Sub
 
Seite 716 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 713, 714, 715, 716, 717, 718, 719 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS