Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 731 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 728, 729, 730, 731, 732, 733, 734 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Listbox - schreibt nur 1. Auswahl 
Phelan XLPH

Antworten: 15
Aufrufe: 545

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. März 2009, 21:51   Titel: AW: Listbox - schreibt nur 1. Auswahl Version: Office 2003
hi,

.List verwendet man um die ganze Liste als Datenfeld zuzuweisen.

die antwort auf deine frage:
wksT.Cells(lngLetzteZeile + 1, 14).Value = ListBox1.Value
  Thema: Variable in Bezug einbauen 
Phelan XLPH

Antworten: 2
Aufrufe: 725

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. März 2009, 21:40   Titel: AW: Variable in Bezug einbauen Version: Office 2003
...einfach dazwischenflicken:

"=Sheet1!R" & i & "C3"
  Thema: Variabel Tabellenblätter drucken 
Phelan XLPH

Antworten: 6
Aufrufe: 1865

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. März 2009, 18:53   Titel: AW: Variabel Tabellenblätter drucken
...oder du lässt dir den Drucker-Dialog anzeigen in dem du den Drucker
wählen kannst.

Application.Dialogs(xlDialogPrint).Show
  Thema: Eine Zeile weiter(pro Monat) 
Phelan XLPH

Antworten: 9
Aufrufe: 355

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. März 2009, 18:48   Titel: AW: Eine Zeile weiter(pro Monat) Version: Office 2003
Bitte,

Sub Spaltekopieren()
Dim wks As Worksheet
Dim lngLS As Long

If Day(Date) = 2 Then
Set wks = Worksheets("Tabelle1")
lngLS = wks.Cells(1, wks.Columns.Count).End(xlToLeft).Column
If lngLS < 100 Then lngLS = 100
wks.Columns(1).Copy wks.Columns(lngLS + 1)
End If
End Sub
  Thema: Seek and Find 3.Teil 
Phelan XLPH

Antworten: 6
Aufrufe: 410

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. März 2009, 18:36   Titel: AW: Seek and Find 2.Teil Version: Office 2003
Das hätte es auch getan:

das:
LookAt:=xlPart

statt :
LookAt:=xlWhole
  Thema: Mit Spinbutton Spalten verschieben ? 
Phelan XLPH

Antworten: 10
Aufrufe: 974

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. März 2009, 18:17   Titel: AW: Mit Spinbutton Spalten verschieben ? Version: Office 2003
...vergessen einzuloggen

oder so:
Sub SpaltenTauschen(RechtsLauf As Boolean)
Dim rng As Range
Dim rngR As Range
Dim rngL As Range
Dim arr As Variant

Set rng = ActiveSheet.UsedRange.Columns(ActiveCell.Column)

If RechtsLauf Then
On Error GoTo fehler
Set rngR = ActiveSheet.UsedRange.Columns(ActiveCell.Offset(0, 1).Column)
ActiveCell.Offset(0, 1).Activate

arr = rng
rng.Value = rngR.Value
rngR.Value = arr
Else
On Error GoTo fehler
Set rngL = ActiveSheet.UsedRange.Columns(ActiveCell.Offset(0, -1).Column)
ActiveCell.Offset(0, -1).Activate

arr = rng
rng.Value = rngL.Value
rngL.Value = arr
End If
fehler:
End Sub
  Thema: Schleife für Volorindex 
Phelan XLPH

Antworten: 4
Aufrufe: 260

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. März 2009, 17:21   Titel: AW: Schleife für Volorindex Version: Office 2007
Ja aber bei hundert verschiedenen Farben bringts ja dann auch nix.
Das wird nicht übersichtlicher.

Kannst du das nicht in eine Gruppe fassen?
wenn deine Sachnummer z.B so aussieht:

12-635-98 ...und 98 für Produkt1 steht, dann könnte man alle
die mit 98 enden (also Produkt1 als Überbegriff haben) einer Farbe
zuordnen.

Sonst haste statt einem Klaren-Null-Durchblick einen
Farbigen-Null-Durchblick.

hoffentlich hab ich mich verständlich ausgedrückt?!...
  Thema: Tabellenblätter zusammenfügen 
Phelan XLPH

Antworten: 5
Aufrufe: 345

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. März 2009, 17:13   Titel: AW: Tabellenblätter zusammenfügen Version: Office 2k (2000)
hi,

so müsste das funzen...in ein standardmodul kopieren:

Sub BlattBereicheZusammenfuegen()
Dim wksZ As Worksheet
Dim zell As Range
Dim lngLZ As Long

Set wksQ = Worksheets("Tabelle1")
Set wksZ = Worksheets.Add(After:=Sheets(1))
wksZ.Name = "BlaetterKonsol"

For Each zell In Worksheets("Tabelle1").Range("A3:A200")
lngLZ = wksZ.Cells(wksZ.Rows.Count, 1).End(xlUp).Row
Worksheets(zell.Value).Range("A37:G200").Copy _
wksZ.Range("A" & lngLZ + 1)
Next

End Sub
  Thema: Diverse Spalten mit verschiedenen Passwörtern schützen 
Phelan XLPH

Antworten: 1
Aufrufe: 435

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. März 2009, 16:52   Titel: AW: Diverse Spalten mit verschiedenen Passwörtern schützen Version: Office 2003
Excel-Hilfe:
Zulassen der Bearbeitung von Bereichen auf geschützten Arbeitsblättern durch bestimmte Benutzer
  Thema: Sheet schützen vor löschen 
Phelan XLPH

Antworten: 4
Aufrufe: 3382

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. März 2009, 15:17   Titel: AW: Sheet schützen vor löschen Version: Office 2007
Das geht über
-> Arbeitsmappe schützen
->Struktur und Windows
->Fenter und Struktur wählen (evtl. Passwort)
  Thema: Eingaben per VBA nur bis bestimmte Zeile erlauben!!! 
Phelan XLPH

Antworten: 14
Aufrufe: 1097

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. März 2009, 14:57   Titel: AW: Eingaben per VBA nur bis bestimmte Zeile erlauben!!! Version: Office 2003
Für den Code aus und versuch mal den curser zur Zelle "A501" zu navigieren.
  Thema: Schleife für Volorindex 
Phelan XLPH

Antworten: 4
Aufrufe: 260

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. März 2009, 13:41   Titel: AW: Schleife für Volorindex Version: Office 2007
Du musst doch erstmal deffinieren:

Welche Sachnummer mit welcher Farbe markiert werden soll!!!

Wieviele Sachnummer sind das eigentlich....hört sich nach unzählig viele an.
Dann musst du überlegen wie du diese gruppieren kannst!
  Thema: Seek and Find 
Phelan XLPH

Antworten: 5
Aufrufe: 378

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. März 2009, 13:37   Titel: AW: Seek and Find Version: Office 2003
Tatsache habs übersehen, wie kommt man auf Range("A74")
...überbleibsel aus Tests?

Wenn du den wert aus SpalteB haben möchtest dann muss das so heißen:

txtInfo = rngInfo.Offset(0,1).Value
  Thema: Userform für alle Tabellen nutzen 
Phelan XLPH

Antworten: 3
Aufrufe: 654

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. März 2009, 13:32   Titel: AW: Userform für alle Tabellen nutzen Version: Office 2003
...die 2.Variante ist ja lustig Smile
  Thema: Seek and Find 
Phelan XLPH

Antworten: 5
Aufrufe: 378

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. März 2009, 13:25   Titel: AW: Seek and Find Version: Office 2003
...ich seh da jetzt keinen Fehler
 
Seite 731 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 728, 729, 730, 731, 732, 733, 734 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Dreamweaver Forum