Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 752 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 749, 750, 751, 752, 753, 754, 755 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: kleinsten wert mit VBA finden und in msg box ausgeben 
Phelan XLPH

Antworten: 7
Aufrufe: 7476

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Feb 2009, 10:20   Titel: AW: kleinsten wert mit VBA finden und in msg box ausgeben Version: Office 2007
Moin,

lass mal in beiden das

.Address

weg!

Bitte!!!
  Thema: Zeilen ausblenden 
Phelan XLPH

Antworten: 2
Aufrufe: 227

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Feb 2009, 09:42   Titel: AW: Zeilen ausblenden Version: Office 2003
Moin moin,

bitte sehr:

Sub ausblenden()
Dim zeilen As Variant
Dim i As Long
zeilen = Array(1, 3, 5) 'Zeile 1,3,5 werden ausgeblendet ANPASSEN
For i = 0 To 2
ActiveSheet.Rows(zeilen(i)).Hidden = True
Next i
End Sub

Sub einblenden()
Dim zeilen As Variant
Dim i As Long
zeilen = Array(1, 3, 5) 'Zeile 1,3,5 werden eingeblendet ANPASSEN
For i = 0 To 2
ActiveSheet.Rows(zeilen(i)).Hidden = False
Next i
End Sub
  Thema: Frage zu Range-Zugriff 
Phelan XLPH

Antworten: 1
Aufrufe: 281

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Feb 2009, 09:27   Titel: Frage zu Range-Zugriff Version: Office 2007
Moin,

hab auf Haserodts Seite folgenden Code gefunden und mir ist da was aufgefallen:

Private Sub CommandButton2_Click()
ListBoxRausSimple ListBox1, ThisWorkbook.Worksheets("Tabelle1").Range("K3")
End Sub

Private Sub ListBoxRausSimple(DieListbox As MSForms.ListBox, StartZelle As Range)
If DieListbox.ListCount = 0 Then Exit Sub ' Raus wenn nix drin ist
With StartZelle
Range(.Parent.Cells(StartZelle.Row, StartZelle.Column), _
.Parent.Cells(StartZelle.Row + DieListbox.ListCount - 1, _
StartZelle.Column + DieListbox.ColumnCount - 1)).Value = DieListbox.List
End With
End Sub


Warum muss diese Zeile:

Range(.Parent.Cells(StartZelle.Row, StartZelle.Column), _ ...

nicht so heissen:
.Parent.Range(.Parent.Cells(StartZelle.Row, StartZelle.Column), _ ...

Ist es wirklich nur wichtig die Elemente "absolut" anzusprechen?

Danke im Voraus
  Thema: Andere Schreibweise bei Verwendung des Zooms 
Phelan XLPH

Antworten: 2
Aufrufe: 253

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Feb 2009, 09:20   Titel: AW: Andere Schreibweise bei Verwendung des Zooms Version: Office 2003
Hallo Matti 25,

veilleciht so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B5:B200")) Is Nothing Then
ActiveWindow.Zoom = 120
Else
ActiveWindow.Zoom = 75
End If
End Sub
  Thema: zahl aus tabelle als variable 
Phelan XLPH

Antworten: 7
Aufrufe: 196

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Feb 2009, 23:36   Titel: AW: zahl aus tabelle als variable Version: Office 2003
zB Double. Schau in der hilfe unter Datentypen
  Thema: Spaltenbreite per Makro ausrechnen 
Phelan XLPH

Antworten: 3
Aufrufe: 316

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Feb 2009, 23:22   Titel: AW: Spaltenbreite per Makro ausrechnen Version: Office 2003
Hallo pefeu,

ich dachte eher an:

MsgBox Tabelle1.VPageBreaks(1).Location.Left

um die Breite festzustellen.

..aber funzt nicht, weisst du warum?
  Thema: Tabellenblatt in Excel ansprechen 
Phelan XLPH

Antworten: 3
Aufrufe: 393

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Feb 2009, 22:47   Titel: AW: Tabellenblatt in Excel ansprechen Version: Office XP (2002)
Hallo wieso get das hier nicht

ActiveWorkbook.Sheets(1).Range("A1").Activate
  Thema: Nur bestimmte Zahlenwerte möglich 
Phelan XLPH

Antworten: 4
Aufrufe: 268

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Feb 2009, 22:43   Titel: AW: Nur bestimmte Zahlenwerte möglich Version: Office 2k (2000)
Hallo,

If Target.Value <> 1 Or Target.Value <> 1.7 Or Target.Value < 1.9 Or Target.Value > 7 Then

...wenn etweder 1 oder 1,7 oder >1,9 oder <7 dann "Falsche Eingabe"

...du musst es dir nur laut vorsagen, dann weisst du dass da ein ODER
hingehört und kein UND Very Happy
  Thema: zahl aus tabelle als variable 
Phelan XLPH

Antworten: 7
Aufrufe: 196

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Feb 2009, 22:33   Titel: AW: zahl aus tabelle als variable Version: Office 2003
Hallo

Bereiche werden immer durch Zeilen und Spaltenangaben bestimmt:

Range("A1").Select

...Feld "A1" wird markiert! A=Spalte; 1=Zeile
  Thema: Schutz 
Phelan XLPH

Antworten: 3
Aufrufe: 189

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Feb 2009, 22:08   Titel: AW: Schutz Version: Office 2k (2000)
Kannst du dir auch aufzeichnen.

Hab Xl2007 weiss net obs bei dir auch geht:

ActiveSheet.Protect
ActiveSheet.EnableSelection = xlUnlockedCells
  Thema: Makro erstellen klappt nicht. Laaufzeitfehler 9 
Phelan XLPH

Antworten: 2
Aufrufe: 210

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Feb 2009, 21:58   Titel: AW: Makro erstellen klappt nicht. Laaufzeitfehler 9 Version: Office 2003
Hallo,

so:

Sub OZ()
Dim x As Long
Dim y As Long
ActiveCell.Value = "OZ"
x = ActiveCell.Row
y = ActiveCell.Column
ActiveSheet.Cells(x, y + 1).Select
End Sub

oder so:
Sub OZ2()
ActiveCell.Value = "OZ"
ActiveCell.Offset(0, 1).Select
End Sub
  Thema: Maximum von 3 Werten rausfinden 
Phelan XLPH

Antworten: 5
Aufrufe: 628

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Feb 2009, 21:53   Titel: AW: Maximum von 3 Werten rausfinden Version: Office 2k (2000)
hallo,

For y = 2 to Ubound(Z)

...Ubound gibt den MaxIndex zurück. -> also 3
  Thema: Kommentare in Zelle kopieren 
Phelan XLPH

Antworten: 1
Aufrufe: 239

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Feb 2009, 21:45   Titel: AW: Kommentare in Zelle kopieren Version: Office 2003
Hallo,

versuchs mal hiermit:

Sub KommentareAuslesen()
Dim rngZ As Range
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim Kom As Comment

Set wksQ = Worksheets("Tabelle1")
Set wksZ = Worksheets("Tabelle2")

For Each Kom In wksQ.Comments
Set rngZ = wksZ.Cells(wksZ.Rows.Count, 4).End(xlUp).Offset(1, 0)
If Kom.Parent.Column = 2 Then
rngZ = Kom.Text
End If
Next
End Sub
  Thema: Tabellen in jew. neuer Mappe und neume Ordner 
Phelan XLPH

Antworten: 2
Aufrufe: 235

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Feb 2009, 20:57   Titel: AW: Tabellen in jew. neuer Mappe und neume Ordner Version: Office 2003
Hallo,

den Pfad musst du noch anpassen:

Private Declare Function MakeSureDirectoryPathExists _
Lib "imagehlp.dll" (ByVal Pfad As String) As Long

Sub Ordner_MappeProSheet()
Dim wks As Worksheet
Dim Pfad As String

Pfad = "D:\TestX\" 'ANPASSEN
On Error Resume Next
For Each wks In ThisWorkbook.Worksheets
MakeSureDirectoryPathExists (Pfad & wks.Name & "\") 'Pfad/Ordner erstellen
wks.Copy 'Neue Mappe als Kopie erstellen
ActiveWorkbook.SaveAs (Pfad & wks.Name & "\" & wks.Name & ".xls") ' Neue Mappe abspeichern
ActiveWorkbook.Close False ' Neue Mappe schließen
Next
End Sub
  Thema: Suche Literautur für Fortgeschrittene 
Phelan XLPH

Antworten: 5
Aufrufe: 295

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Feb 2009, 16:29   Titel: AW: Suche Literautur für Fortgeschrittene Version: Office 2007
Also,

ich hol mal etwas aus!

Vor sechs Jahren hab ich zum ersten mal, mich mit Excel beschäftigt(oberflächlich).

Habe dann im Netz folgende PDF gefunden:
ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b012.pdf

wird hier auch immer wieder für den Einstieg empfohlen.

Ehrlich gesagt hat mir das Excel-VBA in 14(2007) Tagen schon was gebracht.
Es zeigt einem schon einiges!
Es gab mir ebenso neue Anregungen wie andere Sachen auch.

Klar ein Profi-Fussballer wird sich auch über die KreisligaA-Spieler aufregen!
So schlecht ist das Buch auch nicht. Den einen oder anderen Fehler hab ich da
auch gefunden, aber wo hats die nicht.

Musst halt schritt für Schritt machen, Excel kann sehr zeitintensiv sein.

ich hol mir noch das "Excel-VBA Codebook" !

ansonsten:

hier die Tutorials durchmachen bin ich auch grad dran!

und die Tutorials hier(wird auch immer drauf verwiesen):
http://www.online-excel.de/excel/grusel_vba.php?f=2

Dan ...
 
Seite 752 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 749, 750, 751, 752, 753, 754, 755 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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